JoyでFizzBuzz

ぜんぜんJoyっぽくないんですが手習い中ということで…

DEFINE fizz == 3 rem 0 =;
buzz == 5 rem 0 =;
fizzbuzz == 15 rem 0 =;
fbnum == [fizzbuzz]
[pop "FizzBuzz"]
[ [fizz]
[pop "Fizz"]
[ [buzz]
[pop "Buzz"]
[]
ifte]
ifte]
ifte;
fblist == [fbnum] map;
interval == swap [<=]
[pop [] cons]
[dup [swap] dip succ]
[cons]
linrec.

こんな感じです。（だっさー）。苦労したのはinterval。他に見るべきものはないですね。

1 100 interval fblist.
[1 2 "Fizz" 4 "Buzz" "Fizz" 7 8 "Fizz" "Buzz" 11 "Fizz" 13 14 "FizzBuzz" 16 17 "Fizz" 19 "Buzz" "Fizz" 22 23 "Fizz" "Buzz" 26 "Fizz" 28 29 "FizzBuzz" 31 32 "Fizz" 34 "Buzz" "Fizz" 37 38 "Fizz" "Buzz" 41 "Fizz" 43 44 "FizzBuzz" 46 47 "Fizz" 49 "Buzz" "Fizz" 52 53 "Fizz" "Buzz" 56 "Fizz" 58 59 "FizzBuzz" 61 62 "Fizz" 64 "Buzz" "Fizz" 67 68 "Fizz" "Buzz" 71 "Fizz" 73 74 "FizzBuzz" 76 77 "Fizz" 79 "Buzz" "Fizz" 82 83 "Fizz" "Buzz" 86 "Fizz" 88 89 "FizzBuzz" 91 92 "Fizz" 94 "Buzz" "Fizz" 97 98 "Fizz" "Buzz"]

もうちょっと、らしくしないと。