<>; hoge: for(<>){ ($d,$x,$t)=/\d+/g; --$d; # if($x>$d){ # $y=$x;$x=$d;$d=$y; # } $a=1; for(1..$x){ $a*=$d+$_; $a/=$_; if($a>$t){ print"ZETUBOU\n"; next hoge; } } print"AC\n"; }