DouKaku?beta

Comment detail

不動点演算子 (Nested Flatten)

#5783 を Scheme で写経。 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
(define (fix f)
  (rec (g x) ((f g) x)))

(let ((fib (fix (lambda (f)
                  (lambda (x)
                    (if (<= x 2)
                        1
                        (+ (f (- x 1)) (f (- x 2)))))))))
  (display (map fib '(1 2 3 4 5 6 7 8 9 10)))
  (newline))

Index

Feed

Other

Link

Pathtraq

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