1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
` Ink: FizzBuzz
https://github.com/thesephist/ink `
std := load('/opt/ink/lib/std')
log := std.log
range := std.range
each := std.each
fizzbuzz := n => each(
range(1, n + 1, 1)
n => [n % 3, n % 5] :: {
[0, 0] -> log('FizzBuzz')
[0, _] -> log('Fizz')
[_, 0] -> log('Buzz')
_ -> log(n)
}
)
fizzbuzz(100)
Enter to Rename, <Shift>+Enter to Preview