# validator # WA ==> OK # RE ==> NG $_=<>; die if not /^\d+\n/ && $_ >= 1 && $_ <= 1000; $n=$_; while(<>){ die if not /^(\d+) (\d+) (\d+)\n/; die if not $1 >= 1 && $1 < 1e8; die if not $2 >= 1 && $2 < 1e8; die if not $3 >= 1 && $3 < 1e8; ++$c; } die if not $c == $n;