ゲームの流れを作る（メインルーチン）

ここまでできればほとんど完成してるようなものです。あとはゲームの流れを考えればよいことになります。

ゲームの流れは

  1. 答えを作成する。（答え作成サブルーチン）
  2. ユーザーから入力をもらう。（入力サブルーチン）
  3. 答えと入力された数字を判定する。（判定サブルーチン）
  4. 入力回数と入力された数と結果を表示する。
  5. 正解ならばメッセージを表示して終了。そうでなければ2.に戻る（無限ループ）。

となります。

メインルーチン

$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;
	}
}

#以下、前回のサブルーチン