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. |