Perlで7記号FizzBuzz書いた

MacBook Air 11インチ欲しい!


30byteで書くとか無理ですけど7種類の記号でなら書けます! キリッ
いちおうちゃんとPerlプログラムとして実行できますからね。

"^                                 "
=~                                 (
("(").("~"^"."^"^"^(""=="")."").("^"
^"="^(""=="").""^")").("^"^".").("="
^"~"^(""=="")."").("("^(""=="^").""^
"."^"^").("("^(""=="").""^"^"^")").(
("                  ^(             "
                    ==             "
                    ")             .
                    ""             ^
                    "(             "
                 ^"."^""           ^
                 "="^"~"           )
                                  .(
                                 "="
                             ^"^"^("
                             "=="^")
."                  "^
"~"^")"^".").("(").(("     "=="
").""^")"^"^").("."^("    "=="")
.""^"^"^"(").("^"^"("^     "="^
("

"               =="").
"")             .(("^"
=="").              ""
^"="^"^"            ."
"^"(").(")"         ).
( "~"^(""=="        ")
." "^"="^")")       .(
"=     "^"("^(""    ==
""       )."").("(  "^
""          ."^"^")").
((            ""=="").
""^              ")"."
"^"="              .""
)               .("~"^
"."             .""^"^
"^"=")              .(
"("^"="^"."         ^(
"" =="^").""^       "~
"^     ")").("."    ).
""       .("(").""  .(
""          ^"".""^"".
""            ."("^"="
^""              .")"^
"~").              (("

^~                                 "
==                                 "
").""^"."^"="^")"^"~").((""=="").""^
"("^"^"^"=").("="^(""=="").""^"("^"^
").(")").((""=="").""^")"^"~"^"=").(
"="^(""=="").""^"(").("("^")"^"^").(
"=                  "^             (
""                  ==             "
^~                  ^"             .
""                  ."             ^
~^                  ()            ^"
 ).                "".            ""
 ^""              ^")").        (""^
 "("^"~        "^"=" ^"^").((""==""
  ).""^"~"^"."^"("^   ")"^"=").(""
   ^"."^"^"^"="^("      "=="^").
     "").("="^"^          "^("

                    ^"
     =="").""^".").("=
 "^"("^(""=="^")."").(
 "^"^")"^"(").((""=="^
~^").
""^
 ~(
 ""
  ).                ""
."^"^""."= "^"~").((""
=="").""^"="^"(").("."
^"("^")").(")"^(""=="~
")
.               ""^"~"
).(             "^"^("
"=="^"              ).
"").("".            "=
"^"~"^(""==         "^
") ."").("~"^       ""
^(     "")."^").    ((
""       =="")."")  .(
""          ^".").("."
).            ((""=="~
").              "").(
"."^(              "="

)               ^"("^(
"^"             )).("(
"^")"^              ""
."="^"~"            ^(
"^")^".").(         ""
^( ")")^(""==       ""
).     ""^"("^""    ^(
""       ^".")^"^"  ^(
""          ."=")).(""
^(            ")").(""
^""              ^"".(
"").""             )))

https://gist.github.com/792942
仕組みは7種類の記号だけでPerlプログラムを書く - JPerl Advent Calendar 2010 Sym Trackの通り。