(define foo
(lambda (a b c)
(body
)))
|
function foo | $foo = function
($a, $b, $c) | ($a, $b, $c) use (&$foo)
{return | {return
body; | body;
} | };
[1], [2]
|
(cond
(p1 e1)
(p2 e2)
...
(else en))
|
p1 ? e1
: (p2 ? e2
...
: en);
[3]
|
#t
#f
|
TRUE
FALSE [4]
|
(or ...)
(and ...)
|
... or ...
... and ...
[5]
|
(define lat?
(lambda l
(cond
((null? l) #t)
((atom? (car l)) (lat? (cdr l)))
(else #f))))
|
|
(define member?
(lambda (a lat)
(cond
((null? lat) #f)
(else (or (eq? (car lat) a)
(member? a (cdr lat)))))))
|
|