結果
問題 | No.550 夏休みの思い出(1) |
ユーザー |
![]() |
提出日時 | 2017-07-28 23:02:29 |
言語 | Perl (5.40.0) |
結果 |
RE
|
実行時間 | - |
コード長 | 261 bytes |
コンパイル時間 | 818 ms |
コンパイル使用メモリ | 7,808 KB |
実行使用メモリ | 8,192 KB |
最終ジャッジ日時 | 2024-10-10 04:38:34 |
合計ジャッジ時間 | 3,009 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 53 RE * 2 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use POSIX; ($a,$b,$c)=glob<>; $x=rand; for(0..99){ $x-=($x**3+$a*$x**2+$b*$x+$c)/(3*$x**2+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;