玉 (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.