JoyでFizzBuzz(3)
もう少し整理してみました。 DEFINE roll4 == swap [swap [swap] dip] dip; mkifte == [unitlist swap] dip unitlist swap; fbq == ...
もう少し整理してみました。 DEFINE roll4 == swap [swap [swap] dip] dip; mkifte == [unitlist swap] dip unitlist swap; fbq == ...
少しパワーアップしました。 DEFINE rem2 == swap [integer] [swap rem 0 =] [pop pop false] ifte; lst == [] cons; fbq == [dup] ...
ぜんぜんJoyっぽくないんですが手習い中ということで… DEFINE fizz == 3 rem 0 =; buzz == 5 rem 0 =; fizzbuzz == 15 rem 0 =; fbnum =...
https://propella.hatenablog.com/さんも記事https://propella.hatenablog.com/entry/20070518/p1で述べられているとおりJoyにはたくさんのソース...