Subject: Re: Case independence and (case) From: "Russell Steven Shawn O'Connor" <roconnor@xxxxxxxxxxxxxxxxxxxxxxxxx> Date: Sat, 18 Apr 1998 12:39:51 -0400 (EDT) |
At 17 Apr 1998 19:12 -0400, Russell Steven Shawn O'Connor wrote: > Everytime I find that Jade doesn't support a function in the standard > that I want to use, I write my own: > > (define (assoc elm lst) > (cond ((null? lst) #f) > ((equal? elm (caar lst)) (car lst)) > (#t (assoc elm (cdr lst))) > ) > ) I guess I need to add (define (caar lst) (car (car lst))) -- Russell O'Connor roconnor@xxxxxxxxxxxx <URL:http://www.undergrad.math.uwaterloo.ca/%7Eroconnor/> "And truth irreversibly destroys the meaning of its own message" -- Anindita Dutta, "The Paradox of Truth, the Truth of Entropy" DSSSList info and archive: http://www.mulberrytech.com/dsssl/dssslist
Current Thread |
---|
|
<- Previous | Index | Next -> |
---|---|---|
Re: Case independence and (case), Tony Graham | Thread | Re: Case independence and (case), Norman Walsh |
Re: DSSSL design choices - question, Paul Prescod | Date | Free SGML for WinNT, Dr. Markus Hönicka |
Month |