7 lines
176 B
Scheme
7 lines
176 B
Scheme
#lang frtime
|
|
(define x (rec y (0 . until . (add1 (inf-delay y)))))
|
|
|
|
(==> (filter-e zero? (changes (modulo seconds 10)))
|
|
(lambda (v)
|
|
(printf "~S~n" (value-now x))))
|