mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 13:19:17 +02:00
11 lines
242 B
Scheme
11 lines
242 B
Scheme
;; This should run forever using a constant amount of memory
|
|
;; and max CPU:
|
|
|
|
(define (foo) (bar))
|
|
(define (bar) (foo))
|
|
(foo)
|
|
|
|
;; Another way to write it:
|
|
;; (letrec ((foo (lambda () (bar)))
|
|
;; (bar (lambda () (foo))))
|
|
;; (foo))
|