Lain FizzBuzz - Pastebin.com

2 min read Original article ↗

Guest User

a guest

Aug 19th, 2014

531

0

Never

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

  1. (letrec-syntax ((three?

  2. (syntax-rules ()

  3. ((_ ks kf) ks)

  4. ((_ ks kf a b c . r)

  5. (three? ks kf . r))

  6. ((_ ks kf . ?) kf)))

  7. (five?

  8. (syntax-rules ()

  9. ((_ ks kf) ks)

  10. ((_ ks kf a b c d e . r)

  11. (five? ks kf . r))

  12. ((_ ks kf . ?) kf)))

  13. (fizz-buzz

  14. (syntax-rules ()

  15. ((_ n) 'done)

  16. ((_ n l . lr)

  17. (begin (fizz-buzz (- n 1) . lr)

  18. (five? (three? (display "FizzBuzz")

  19. (display "Buzz")

  20. l . lr)

  21. (three? (display "Fizz")

  22. (display n)

  23. l . lr)

  24. l . lr)

  25. (newline))))))

  26. (fizz-buzz 100

  27.                           l____,mmmmmm,___l

  28. l,---@@@@@@@@@@@@@@@@@@@@@@@@---__l

  29. l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l

  30. l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l

  31. l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l

  32. l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l

  33. l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l

  34. l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l

  35. l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l

  36. l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l

  37. l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l

  38. l@@@@@@@@@@@@@@@@@/@@@@A@@@l`'ll@@@@@ll@@AA@@@@@@@@@@@@@@l

  39. l@@@@@@@@@@@@@@@@ll@@@ll@@rE  DD A@@@@li@@li@@@@@@@@@@@@@l

  40. l@@@@@@@@@@@@@@@l:l@@@l ll l  l: :l@@@lk@@l@@l@l@@@@@@@l

  41. l@@@@@@@@@@@@ll@l:l/:Al ll (  l:::l Y l l )l/A@l ln@@@@@l

  42. l@@@@@@@@@@@ll@@l: ::___Al_l  l::: ::Al ll__::A/ l@@@@@@l

  43. l@@@@@@@@@@@l@ l-==^======^= / :::  :--l/=====--l@@@@@@lA

  44. l@@@@@@@@@@/ @@l: '____:,             :/ ____ ':^l@@@@@l

  45. l@@@@@@@@@@l /^' //:: AA::              //::A'k :l@@@@l:

  46. l@@@@@@@@@@l::: ((::o:) )::            l(:o::) >:lAA@@l

  47. l@@@@@@@@@@l::   AA::/_/:`              AA::/_/ :l@AAkl

  48. l@@@@@@@@@@@l:                                  :l@//kl

  49. d@@@@@@AlAl:                                  :ll/@@l

  50. l@@@@/l:Al::                   ,             ,:l@@@@l

  51.          :l@@  : `                   :,            :ll@@@@l

  52. l@@l@@@ l:                    ':,           :ll@@@l

  53.         llAl@@@@l:                   , :'           :ll@@@l

  54.         ll@@@@@@l:                                  :ll@@@l

  55.         ll@@@@@@',                   _            ,:/nl@@@l

  56.         '<@@@@@@@@k                 (_)          :/@@l@@@l

  57. l@@@@@@@@l                            :/@@@l@@@l

  58. l@@@l@@@@@b                        :/@@@@@l@@@l

  59. d@/l@@@@@l:b                     :/@@@@@ll@@@l

  60. l@@@l`  b                 :/@@@@@@lll@@@l

  61.                   A@-l     `    ,,       :/:l@@4@f`  l@@@l))

  62. ;;              ,-':::l          %%--___:/:::l/_      l@@l

  63. ;;           ,-'::::::l          ':::::::::::l::'--,  l@@l

  64. ;;       ,-':::::A:::l            ':::::::::l::::::A l@@l

  65. ;;       l::,:::,,A:/:             `::::::::l::/::::ll@@l

  66. ;;       l:LAI:NLAIN  `              `:::::::l/::::::l@@l

  67. ;;      lLAINLAINLAINLA                `:::::/:::::::/@@l

  68. ;;    lLAINLAINLAINLAINLA                `::/::::::::l@@:'-A

  69. ;;  /INLAINLAINLAINLAINLAIA                /:NLA:::::l@l::::%-I

  70. ;;/NLAINLAINLAINLAINLAINLAINA             /LAINLAIN::l@l:::LAIN%-L

  71. ;;/AINLAINLAINLAINLAINLAINLAINLA