結果

問題 No.955 ax^2+bx+c=0
コンテスト
ユーザー tails
提出日時 2020-12-17 16:23:06
言語 Perl
(5.40.0)
結果
AC  
実行時間 81 ms / 2,000 ms
コード長 136 bytes
コンパイル時間 326 ms
コンパイル使用メモリ 15,872 KB
実行使用メモリ 16,128 KB
最終ジャッジ日時 2024-09-21 08:07:59
合計ジャッジ時間 12,881 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 122
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

use bignum;<>=~/ .* /;$,=$/;print$`?($n,map+($_*$d**.5-$&)/2/$`,0<=>$`,$`<=>0)[0..++($n=($d=$&**2-4*$`*$')<=>0)]:-$&?(1,-$'/$&):-$'?0:-1
0