Subscribed unsubscribe Subscribe Subscribe

素因数分解ワンライナー記号編 その1

とりあえず1つできた!!

$ perl -e '""!~("(?{\$*=".("/@^{_^)@/"^"_/.@/,@.[")."\$;,(\$*/=\$;)-!\$??\"*\":\$/".("^()@>{@]`][[/"^")@@,[_{`;:)>_")."{!(\$*%\$_)}!\$?..\$*]->[!\$?]})")' 2009
7*7*41

150文字を超えてしまったので、もうすこし短くできないかどうか検討しよう。
いやー、試行錯誤した結果ようやく動いたときにはかなり嬉しかった。