2011-04-18から1日間の記事一覧
#Hit and Blow use List::Util(shuffle); ($max_kind, $max_length) = (26, 70); ($kind, $length, $seed) = @ARGV; unless($kind){ print <<"EOM"; Hit and Blow 答えの文字を推理する遊びです。答えだと思う文字列を入力してください。 使い方: スクリプト…
#Hit and Blow use List::Util(shuffle); ($max_kind, $max_length) = (26, 70); ($kind, $length, $seed) = @ARGV; unless($kind){ print <<"EOM"; Hit and Blow 答えの文字を推理する遊びです。答えだと思う文字列を入力してください。 使い方: スクリプト…
