30byteで書くとか無理ですけど7種類の記号でなら書けます！ ｷﾘｯ
いちおうちゃんとPerlプログラムとして実行できますからね。
"^ "
=~ (
("(").("~"^"."^"^"^(""=="")."").("^"
^"="^(""=="").""^")").("^"^".").("="
^"~"^(""=="")."").("("^(""=="^").""^
"."^"^").("("^(""=="").""^"^"^")").(
(" ^( "
== "
") .
"" ^
"( "
^"."^"" ^
"="^"~" )
.(
"="
^"^"^("
"=="^")
." "^
"~"^")"^".").("(").((" "=="
").""^")"^"^").("."^(" "=="")
.""^"^"^"(").("^"^"("^ "="^
("
" =="").
"") .(("^"
==""). ""
^"="^"^" ."
"^"(").(")" ).
( "~"^(""==" ")
." "^"="^")") .(
"= "^"("^("" ==
"" )."").("( "^
"" ."^"^")").
(( ""=="").
""^ ")"."
"^"=" .""
) .("~"^
"." .""^"^
"^"=") .(
"("^"="^"." ^(
"" =="^").""^ "~
"^ ")").("." ).
"" .("(")."" .(
"" ^"".""^"".
"" ."("^"="
^"" .")"^
"~"). (("
^~ "
== "
").""^"."^"="^")"^"~").((""=="").""^
"("^"^"^"=").("="^(""=="").""^"("^"^
").(")").((""=="").""^")"^"~"^"=").(
"="^(""=="").""^"(").("("^")"^"^").(
"= "^ (
"" == "
^~ ^" .
"" ." ^
~^ () ^"
). "". ""
^"" ^")"). (""^
"("^"~ "^"=" ^"^").((""==""
).""^"~"^"."^"("^ ")"^"=").(""
^"."^"^"^"="^(" "=="^").
"").("="^"^ "^("
^"
=="").""^".").("=
"^"("^(""=="^")."").(
"^"^")"^"(").((""=="^
~^").
""^
~(
""
). ""
."^"^""."= "^"~").((""
=="").""^"="^"(").("."
^"("^")").(")"^(""=="~
")
. ""^"~"
).( "^"^("
"=="^" ).
"").("". "=
"^"~"^(""== "^
") ."").("~"^ ""
^( "")."^"). ((
"" =="")."") .(
"" ^".").("."
). ((""=="~
"). "").(
"."^( "="
) ^"("^(
"^" )).("(
"^")"^ ""
."="^"~" ^(
"^")^".").( ""
^( ")")^(""== ""
). ""^"("^"" ^(
"" ^".")^"^" ^(
"" ."=")).(""
^( ")").(""
^"" ^"".(
"")."" )))https://gist.github.com/792942
仕組みは7種類の記号だけでPerlプログラムを書く - JPerl Advent Calendar 2010 Sym Trackの通り。
