aboutsummaryrefslogtreecommitdiff
path: root/example/fizzbuzz.slang
blob: 5693c9a7fdd9ec710371d76a13443bdf18d3c854 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
1 i $

§ incr dup @ 1 + swp $ ;
§ withinBounds @ 100 < ;

§ fizz? @ 3 % 0 = ;
§ buzz? @ 5 % 0 = ;

§ fizzbuzz_or_fizz     buzz? if fizzbuzz then fizz else . pop ;
§ buzz_or_print    dup buzz? if pop buzz then @    else . pop ;

§ branch dup fizz? if fizzbuzz_or_fizz then buzz_or_print else ;

§ loop i withinBounds if i branch i incr loop then else ;

loop