13 lines
374 B
Scheme
13 lines
374 B
Scheme
(letrec ((iter (λ (n f)
|
|
(if (zero? n)
|
|
#f
|
|
(begin (f n)
|
|
(iter (- n 1) f))))))
|
|
(call/cc
|
|
(λ (k)
|
|
(iter 10 (λ (n)
|
|
;; i don't feel like implementing (= n 5) right now lmfao
|
|
(if (zero? (- n 5))
|
|
(k #t)
|
|
#f))))))
|