mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-20 14:19:18 +02:00
b1c0ea895b
can disable with USE_BIGNUMS=0 - the interactions between this and USE_FLONUMS are messy, so they will likely be merged into a single option in the near future (i.e. you either have only fixnums, or a full range of numeric types). adding rationals based on this would be easy and is a likely future feature. adding native support for complex numbers is unlikely.
34 lines
656 B
Scheme
34 lines
656 B
Scheme
|
|
(define fail
|
|
(lambda () 999999))
|
|
|
|
(define in-range
|
|
(lambda (a b)
|
|
(call-with-current-continuation
|
|
(lambda (cont)
|
|
(enumerate a b cont)))))
|
|
|
|
(define enumerate
|
|
(lambda (a b cont)
|
|
(if (< b a)
|
|
(fail)
|
|
(let ((save fail))
|
|
(begin
|
|
(set! fail
|
|
(lambda ()
|
|
(begin
|
|
(set! fail save)
|
|
(enumerate (+ a 1) b cont))))
|
|
(cont a))))))
|
|
|
|
(write
|
|
(let ((x (in-range 2 9))
|
|
(y (in-range 2 9))
|
|
(z (in-range 2 9)))
|
|
(if (= (* x x)
|
|
(+ (* y y) (* z z)))
|
|
(+ (* x 100) (+ (* y 10) z))
|
|
(fail))))
|
|
|
|
(newline)
|
|
|