Click Ana to go to profile page
(define c (call/cc (lambda (cont) (let lp ((elt '(10))) (if (= (car elt) 0) (cont (lambda () elt)) (lp (append `(,(- (car elt) 1)) elt)))))))(print (c))イヒヒ,まずこの位を理解できる様にしましょう!
(define c (call/cc (lambda (cont) (let lp ((elt '(10))) (if (= (car elt) 0) (cont (lambda () elt)) (lp (append `(,(- (car elt) 1)) elt)))))))
返信削除(print (c))
イヒヒ,まずこの位を理解できる様にしましょう!