mc #5080(2008/01/01 01:17 GMT) [ Other ] Rating0/0=0.00
Lisp 1.5はもちろん再帰でも書けます。 実行結果: FUNCTION EVALQUOTE HAS BEEN ENTERED, ARGUMENTS.. DIFF ((3 1 4 1 5 9 2 6 5)) END OF EVALQUOTE, VALUE IS .. (-2 3 -3 4 4 -7 4 -1)
1 2 3 4 5 6 7 8
DEFINE(( (DIFF (LAMBDA (LST) (COND ((NULL (CDR LST)) NIL) (T (CONS (DIFFERENCE (CADR LST) (CAR LST)) (DIFF (CDR LST))))))) )) DIFF((3 1 4 1 5 9 2 6 5))
Rating0/0=0.00-0+
[ reply ]
mc
#5080()
[
Other
]
Rating0/0=0.00
DEFINE(( (DIFF (LAMBDA (LST) (COND ((NULL (CDR LST)) NIL) (T (CONS (DIFFERENCE (CADR LST) (CAR LST)) (DIFF (CDR LST))))))) )) DIFF((3 1 4 1 5 9 2 6 5))Rating0/0=0.00-0+
[ reply ]