結果
問題 | No.550 夏休みの思い出(1) |
ユーザー |
![]() |
提出日時 | 2017-07-28 23:15:34 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 134 ms / 2,000 ms |
コード長 | 271 bytes |
コンパイル時間 | 1,045 ms |
コンパイル使用メモリ | 16,896 KB |
実行使用メモリ | 17,152 KB |
最終ジャッジ日時 | 2024-10-11 05:32:09 |
合計ジャッジ時間 | 9,499 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 55 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use POSIX; use bignum; ($a,$b,$c)=glob<>; $x=-$a/3; for(0..99){ $x-=((($x+$a)*$x+$b)*$x+$c)/((3*$x+2*$a)*$x+$b); } $x=floor($x+.5); $d=$a+$x; $e=$b+$x*$d; $y=floor((-$d+sqrt($d**2-4*$e))/2+.5); $z=floor((-$d-sqrt($d**2-4*$e))/2+.5); print join$",sort{$a-$b}$x,$y,$z;