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