[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Nov 14 17:09:55 1992 
Subject:Re: A little Pop history 
From:Brian Harvey 
Volume-ID:921114.21 

jcl@deshaw.com (Jonathan Laventhol) writes:
|	define recursivemember(item, list);
|	var item, list, element;
|		if list = [] then
|			return(false)
|		endif;
|
|		for el in list do
|			if el = item then
|				return(true)
|			elseif islist(el) then
|				return(recursivemember(item, el));
|			endif
|		endfor;
|
|		return(false);
|	enddefine;

Can this be right?  It looks to me as if it'll say that X isn't
a recursivemember of [[A B C] [X Y Z]] because it isn't in the
first sublist.