Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- fn divisible-by-3?
- 3 mod 0 =
- endfn
- fn divisible-by-5?
- 5 mod 0 =
- endfn
- fn and
- #_"Crappy Implementation of 'and"
- true =
- if
- true = if true else false then
- else
- drop false
- then
- endfn
- fn fizzbuzz
- 1 do
- i divisible-by-3? i divisible-by-5? and if
- "FizzBuzz"
- else
- i divisible-by-3? if
- "Fizz"
- else
- i divisible-by-5? if
- "Buzz"
- else
- i
- then then then
- loop
- endfn
- 100 fizzbuzz
Add Comment
Please, Sign In to add comment