Orz日記 by Akio Morita

_ [SAD]無名関数でFizzBuzzしてみた

WriteString[6, #, " "]&/@(With[{core = #},
  With[{procedure = #},
    core[procedure[procedure][##]&]]&[
      With[{procedure = #},
        core[procedure[procedure][##]&]]&]]&[With[{action = #},
  If[#2 > #1, #3, action[#1, #2 + 1, Append[#3,
    Switch[{Mod[#2, 3], Mod[#2, 5]},
      {0, 0}, "FizzBuzz",
      {0, _}, "Fizz",
      {_, 0}, "Buzz",
      _, #2]]]]&]&][#, 1, {}])&[100];