ここまでできればほとんど完成してるようなものです。あとはゲームの流れを考えればよいことになります。
ゲームの流れは
となります。
$answer=&make_answer; # 答え作成 $count=0; # 回数を数える変数 while () { $count++; # 回数を増やす $number=&input; # 入力 ($hit, $blow)=&hantei($answer, $number); # 判定 print "$count回目 $number: ".$hit."H".$blow."B\n"; # 結果表示 if ($hit==3) { # 正解かどうか場合分け print "正解!"; exit; } } #以下、前回のサブルーチン