Entries from 2009-07-01 to 1 month

PHPでArcチャレンジしてみるテスト

今日は朝から秋葉原のダイビルで2008年度下期未踏IT人材発掘・育成事業「未踏ユース」成果報告会に参加しています。発表の中で Arc Challenge の話が出たので、とりあえずPHPで簡単に書いてみました。said.php: click here</a>'; else echo'

anarchy golf の出題ミス?

いまさらの話題で恐縮なのですが、anarchy golf - Decompose integer into sum of squares の Sample output が手元の計算結果と違ってしまいました。差分は以下の通り。 Sample output: @@ -129 +129 @@ -129: 8 8 1 +129: 11 2 2 @@ -143 +143 @@ -143: 9 …

Perlで記号プログラミング

all your BASE32 are belong to us.■ UTF-8 版 #!/usr/bin/perl $^='-^\\\\%+"<&]\\$=/**:.](%_,//;<#)\\^_%$=]."\\&=\'?/:$?({/!_})(([=##!-^/\'%_#"]{"?~<]$\':$;#"&]`<#:?', $^_='_~`||`]@^_`"./,))<%?%<"(?

頑張って正規表現内で円周率を999桁計算するPerlプログラム

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

Perlで64bit整数対応かどうか調べる

#!/usr/bin/perl print((~0>>31==1)?"32bit":"64bit");