ヤドカリ自習室(第二倉庫)

 | 

2009-09-03

こないだのデモメモ 08:22

(load "trace.blk")

読み込み

(trace n)

(define (fact n) (if (= n 0) 1 (* n (fact (- n 1)))))

fact

(fact 3)

(exit 'bye)

eval-application

(define (fact n) (if (= n 0) 1 (* n (fact (- n 1)))))

(fact3)

(old-cont 'hello)

(fact 3)

DahrannDahrann2016/05/11 01:48Articles like these put the consumer in the driver seat-very imttnoarp.

 |