|
@prefix u "http://www.genyris.org/lang/utilities#"
|
|
|
|
def fizzbuzz (n)
|
|
map-left ^((3 = 'fizz') (5 = 'buzz'))
|
|
lambda (d)
|
|
cond
|
|
(equal? 0 (% n d!left))
|
|
d!right
|
|
else
|
|
''
|
|
|
|
|
|
for n in (range 1 100)
|
|
define fb (''(.join (fizzbuzz n)))
|
|
u:format "%a\n"
|
|
cond
|
|
(equal? fb '')
|
|
n
|
|
else
|
|
fb
|