玉 (Acme::Magic8Ball)
2011-12-14
さあ、このページをご覧の貴方! 本日のAcmeな記事を書いてみませんか!?
いらっしゃい!
↑って書いたけど結局自分で書いてます!
「玉」なのでAcme::Magic8Ball。マジック8ボールのPerl実装です。そもそもマジック8ボールの実物みたことない…… ちなみにこんなのね。
尋ねたいことを思い浮かべながらボール投げると20種類の答えから一つ返ってきます。
use 5.014;
use Acme::Magic8Ball qw(ask);
say ask("完走できるんですか? このトラック……");
=> # Ask again later.