2007年4月17日星期二

Basic CLisp(1) some test, just try.

>(* 1 2 3 4)
120
>(nth 2 '(1 2 3 4))
3
>(length '(a b c d))
4
>(member 5 '(1 2 3))
nil

'() = (quote())
>(length (quote(a b c d)))
4
>(eval(list '*3 5)) #=(eval(* 3 5))
15
>

没有评论: