頑張って正規表現内で円周率を999桁計算するPerlプログラム - 竹迫の近況報告

というのは嘘です。ごめんなさい。 #!/usr/bin/perl '~!'!~('(?{'.('=&$;<(*/$&:?$+!$+"$&":!;$)(`~"*=#=)"&&$;&('^ '`):&])`<<`]{~@-+*-+{|,`+-#=,/`{)&|"`+@"="='^ '(|{=,`>{"|%-=-```{/,)>#``#.<#+?`%#{+%_??-.').'})') 実行結果 3.141592653589793238462643383279502884197169399375105820974944592307816406286208 99862803482534211706798214808651328230664709384460955058223172535940812848111745 028410270193852110555964462294895493038196

[totttte]

SUSE Linux /Perl 5.8.8でやったら、$ panic: top_env ってなった。

[invent]

ネタだとわかってもすごい。

[eiji8pou]

これが黒魔術か……。ってこれ、999桁までの円周率を表示するワンライナーを暗号化しただけか。

[sugyan]

これは流行る

[Yuichirou]

ヒント：正規表現を活用していない

[serizawawawa]

id:dankogaiのコメントがかわいい顔文字に見えて仕方ない

[dankogai]

perl -MO=Deparse; # コメント欄に http://blog.livedoor.jp/dankogai/archives/51205143.html で生成した別解を

[k_wizard]

(ﾟдﾟ)？

[akakit]

ActivePerl で動作確認しました。でも意味が分かりません。。。-> -MO=Deparse でわかりました

[proverb]

ぶっなんじゃこりゃ！すげぇ

[sarface2012]

わかんねｗ

[lameduck]

FSMから正規表現に変換したのかしら。こんなすごい正規表現では、ノート持ち出さないと解析できないです！

[hazratt]

信じられなかったので、cygwin 上で試してみたらちゃんと出た。これ何してるんだろう？

[at_yasu]

MacMini(Core2Duo)にて実行したけど、panic: top_env と言われて動かなかった。

[yocchan731]

わけわかめ

[georgew]

なんじゃこりゃー。

[Kanasansoft]

やっぱり、 id:TAKESAKO さんは変態(良い意味で)だと思った。どう処理をしているのかさっぱりわからないので、解説が欲しい...。