DouKaku?beta

Comment detail

隣り合う二項の差 (Nested Flatten) 
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))

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]