#409928 (F#) No.955 ax^2+bx+c=0

提出ソース

結果

問題	No.955 ax^2+bx+c=0
ユーザー	しぶつまひ
提出日時	2019-12-18 07:49:40
言語	F# (F# 4.0)
結果	WA
実行時間	-
コード長	1,379 bytes
コンパイル時間	18,507 ms
コンパイル使用メモリ	185,328 KB
実行使用メモリ	37,664 KB
最終ジャッジ日時	2024-07-07 00:34:13
合計ジャッジ時間	46,507 ms
ジャッジサーバーID （参考情報）	judge2 / judge1

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	361 ms 37,432 KB
testcase_01	AC	356 ms 36,124 KB
testcase_02	AC	77 ms 32,128 KB
testcase_03	AC	69 ms 31,104 KB
testcase_04	AC	69 ms 30,960 KB
testcase_05	AC	69 ms 30,844 KB
testcase_06	AC	69 ms 30,816 KB
testcase_07	AC	68 ms 30,976 KB
testcase_08	AC	69 ms 30,848 KB
testcase_09	AC	69 ms 30,720 KB
testcase_10	AC	69 ms 30,720 KB
testcase_11	AC	70 ms 30,976 KB
testcase_12	AC	68 ms 30,720 KB
testcase_13	AC	69 ms 31,088 KB
testcase_14	AC	351 ms 35,420 KB
testcase_15	AC	349 ms 35,996 KB
testcase_16	AC	348 ms 36,056 KB
testcase_17	AC	350 ms 35,944 KB
testcase_18	AC	349 ms 35,696 KB
testcase_19	AC	349 ms 35,776 KB
testcase_20	AC	349 ms 35,696 KB
testcase_21	AC	350 ms 35,820 KB
testcase_22	AC	350 ms 35,820 KB
testcase_23	AC	349 ms 35,936 KB
testcase_24	WA	-
testcase_25	WA	-
testcase_26	WA	-
testcase_27	WA	-
testcase_28	WA	-
testcase_29	WA	-
testcase_30	WA	-
testcase_31	WA	-
testcase_32	WA	-
testcase_33	WA	-
testcase_34	AC	362 ms 37,164 KB
testcase_35	AC	361 ms 37,408 KB
testcase_36	AC	363 ms 37,540 KB
testcase_37	AC	361 ms 37,152 KB
testcase_38	AC	364 ms 37,536 KB
testcase_39	AC	361 ms 37,152 KB
testcase_40	AC	362 ms 37,536 KB
testcase_41	AC	361 ms 37,420 KB
testcase_42	AC	362 ms 37,032 KB
testcase_43	AC	363 ms 37,160 KB
testcase_44	AC	361 ms 37,288 KB
testcase_45	AC	361 ms 37,476 KB
testcase_46	AC	363 ms 37,156 KB
testcase_47	AC	361 ms 37,664 KB
testcase_48	AC	361 ms 37,496 KB
testcase_49	AC	362 ms 37,420 KB
testcase_50	AC	363 ms 37,376 KB
testcase_51	AC	365 ms 37,280 KB
testcase_52	AC	361 ms 37,292 KB
testcase_53	AC	363 ms 37,352 KB
testcase_54	AC	360 ms 37,540 KB
testcase_55	AC	363 ms 37,528 KB
testcase_56	AC	363 ms 37,280 KB
testcase_57	AC	363 ms 37,276 KB
testcase_58	AC	361 ms 37,436 KB
testcase_59	AC	361 ms 37,388 KB
testcase_60	AC	78 ms 32,640 KB
testcase_61	AC	77 ms 32,512 KB
testcase_62	AC	361 ms 37,344 KB
testcase_63	AC	363 ms 36,488 KB
testcase_64	AC	77 ms 32,256 KB
testcase_65	AC	362 ms 37,284 KB
testcase_66	AC	78 ms 32,608 KB
testcase_67	AC	363 ms 36,620 KB
testcase_68	AC	78 ms 32,384 KB
testcase_69	AC	362 ms 37,160 KB
testcase_70	AC	363 ms 37,156 KB
testcase_71	AC	78 ms 32,512 KB
testcase_72	AC	79 ms 32,640 KB
testcase_73	AC	362 ms 37,376 KB
testcase_74	AC	364 ms 37,156 KB
testcase_75	AC	78 ms 32,384 KB
testcase_76	AC	77 ms 32,768 KB
testcase_77	AC	362 ms 37,164 KB
testcase_78	AC	362 ms 37,464 KB
testcase_79	AC	364 ms 37,140 KB
testcase_80	AC	78 ms 32,384 KB
testcase_81	AC	360 ms 37,388 KB
testcase_82	WA	-
testcase_83	AC	356 ms 36,924 KB
testcase_84	AC	355 ms 37,248 KB
testcase_85	AC	355 ms 36,944 KB
testcase_86	AC	356 ms 37,064 KB
testcase_87	WA	-
testcase_88	WA	-
testcase_89	WA	-
testcase_90	AC	354 ms 37,068 KB
testcase_91	AC	353 ms 37,064 KB
testcase_92	AC	69 ms 30,848 KB
testcase_93	AC	68 ms 30,720 KB
testcase_94	AC	353 ms 37,024 KB
testcase_95	AC	355 ms 36,940 KB
testcase_96	AC	354 ms 36,476 KB
testcase_97	AC	356 ms 37,076 KB
testcase_98	AC	353 ms 37,048 KB
testcase_99	AC	352 ms 37,068 KB
testcase_100	AC	69 ms 30,960 KB
testcase_101	AC	354 ms 36,792 KB
testcase_102	AC	348 ms 34,868 KB
testcase_103	AC	349 ms 35,424 KB
testcase_104	AC	350 ms 35,224 KB
testcase_105	AC	348 ms 35,236 KB
testcase_106	AC	349 ms 35,868 KB
testcase_107	AC	349 ms 36,208 KB
testcase_108	AC	350 ms 35,164 KB
testcase_109	AC	352 ms 34,876 KB
testcase_110	AC	353 ms 35,932 KB
testcase_111	AC	349 ms 35,292 KB
testcase_112	AC	354 ms 35,940 KB
testcase_113	AC	353 ms 35,104 KB
testcase_114	AC	351 ms 34,820 KB
testcase_115	AC	354 ms 35,160 KB
testcase_116	AC	350 ms 35,040 KB
testcase_117	AC	351 ms 35,872 KB
testcase_118	AC	350 ms 35,108 KB
testcase_119	AC	352 ms 35,240 KB
testcase_120	AC	351 ms 35,176 KB
testcase_121	AC	350 ms 35,088 KB
testcase_122	AC	365 ms 37,072 KB
testcase_123	AC	358 ms 35,424 KB
testcase_124	AC	355 ms 36,092 KB

権限があれば一括ダウンロードができます

コンパイルメッセージ

  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (394 ms)。
MSBuild のバージョン 17.9.6+a4ecab324 (.NET)
  main -> /home/judge/data/code/bin/Release/net8.0/main.dll
  main -> /home/judge/data/code/bin/Release/net8.0/publish/

ソースコード

raw source code

let e30 = bigint 1e30 
let e16 = bigint 1e16
let abc =
  stdin.ReadLine().Split(' ')
  |> Array.map int
  

let conv (x:bigint)=
    let y = string <| abs x / e30
    let z = string <| (abs x % e30) + e30
    let s = if x < bigint 0 then "-" else ""
    s + y + "." + (z.Substring(1))

let pr (xs:bigint list) =
    printfn "%d" (List.length xs)
    List.sort xs
    |> List.map conv
    |> List.iter (printfn "%s")

let sq (x:bigint) =
  let rec f e y z =
    if abs (x * e30 - e * e) < e16 * e30 then
      e
    elif e * e < x * e30 then
      f ((e+z)/bigint 2) e z
    else
      f ((y+e)/bigint 2) y e
  f (x/bigint 2) (bigint 0) x
     

match abc with
| [|0;0;0|] -> printfn "-1"
| [|0;0;_|] -> printfn "0"
| [|0;b;c|] -> pr [-bigint c * e30 / bigint b]
| [|a;0;0|] -> printfn "0"
| [|a;0;c|] when -bigint c  * bigint a < bigint  0 -> printfn "0"
| [|a;0;c|] -> let e = -bigint c * e30 / bigint a in let ee = sq e in pr [-ee; ee]
| [|a;b;0|] -> pr [bigint 0; -bigint b * e30 /bigint a]
| [|a;b;c|] ->
    let d = bigint b * bigint b - bigint 4 * bigint a * bigint c
    if d < bigint 0 then
      printfn "0"
    elif d = bigint 0 then
      pr [- bigint b * e30 / (bigint 2 * bigint a)]
    else
      let y = (-bigint b * e30 + sq (d *e30)) / (bigint 2 * bigint a)
      let z = (-bigint b * e30 - sq (d * e30)) / (bigint 2 * bigint a)
      pr [y;z]
| _ -> ()

yukicoder

結果

テストケース

コンパイルメッセージ

ソースコード