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

提出ソース

結果

問題	No.955 ax^2+bx+c=0
ユーザー	しぶつまひ
提出日時	2019-12-18 07:45:25
言語	F# (F# 4.0)
結果	WA
実行時間	-
コード長	1,354 bytes
コンパイル時間	19,272 ms
コンパイル使用メモリ	192,160 KB
実行使用メモリ	37,548 KB
最終ジャッジ日時	2024-07-07 00:33:16
合計ジャッジ時間	56,248 ms
ジャッジサーバーID （参考情報）	judge1 / judge5

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	362 ms 36,940 KB
testcase_01	AC	355 ms 37,076 KB
testcase_02	AC	77 ms 32,128 KB
testcase_03	AC	68 ms 30,976 KB
testcase_04	AC	70 ms 30,976 KB
testcase_05	AC	69 ms 30,976 KB
testcase_06	AC	68 ms 30,976 KB
testcase_07	AC	68 ms 30,944 KB
testcase_08	AC	68 ms 30,956 KB
testcase_09	AC	69 ms 30,976 KB
testcase_10	AC	69 ms 30,720 KB
testcase_11	AC	68 ms 31,084 KB
testcase_12	AC	69 ms 30,976 KB
testcase_13	AC	69 ms 30,976 KB
testcase_14	AC	350 ms 34,996 KB
testcase_15	AC	349 ms 35,948 KB
testcase_16	AC	350 ms 35,112 KB
testcase_17	AC	351 ms 35,008 KB
testcase_18	AC	349 ms 35,404 KB
testcase_19	AC	350 ms 35,004 KB
testcase_20	AC	350 ms 35,688 KB
testcase_21	AC	352 ms 35,228 KB
testcase_22	AC	355 ms 35,384 KB
testcase_23	AC	350 ms 36,076 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	360 ms 37,528 KB
testcase_35	AC	367 ms 37,292 KB
testcase_36	AC	364 ms 37,284 KB
testcase_37	AC	363 ms 37,416 KB
testcase_38	AC	361 ms 37,448 KB
testcase_39	AC	361 ms 37,504 KB
testcase_40	AC	360 ms 37,528 KB
testcase_41	AC	361 ms 37,280 KB
testcase_42	AC	365 ms 37,544 KB
testcase_43	AC	361 ms 37,424 KB
testcase_44	AC	370 ms 37,416 KB
testcase_45	AC	362 ms 37,412 KB
testcase_46	AC	363 ms 37,528 KB
testcase_47	AC	363 ms 37,292 KB
testcase_48	AC	362 ms 37,388 KB
testcase_49	AC	361 ms 37,284 KB
testcase_50	AC	362 ms 37,288 KB
testcase_51	AC	361 ms 36,756 KB
testcase_52	AC	361 ms 37,548 KB
testcase_53	AC	384 ms 37,392 KB
testcase_54	AC	380 ms 37,416 KB
testcase_55	AC	361 ms 37,280 KB
testcase_56	AC	361 ms 37,416 KB
testcase_57	AC	362 ms 37,424 KB
testcase_58	AC	361 ms 37,316 KB
testcase_59	AC	362 ms 37,264 KB
testcase_60	AC	78 ms 32,128 KB
testcase_61	AC	77 ms 32,488 KB
testcase_62	AC	361 ms 37,032 KB
testcase_63	AC	364 ms 36,444 KB
testcase_64	AC	79 ms 32,640 KB
testcase_65	AC	361 ms 37,164 KB
testcase_66	AC	77 ms 32,380 KB
testcase_67	AC	362 ms 37,420 KB
testcase_68	AC	78 ms 32,380 KB
testcase_69	AC	363 ms 37,396 KB
testcase_70	AC	361 ms 37,160 KB
testcase_71	AC	83 ms 32,384 KB
testcase_72	AC	77 ms 32,768 KB
testcase_73	AC	363 ms 37,032 KB
testcase_74	AC	361 ms 36,244 KB
testcase_75	AC	78 ms 32,768 KB
testcase_76	AC	78 ms 32,380 KB
testcase_77	AC	363 ms 37,416 KB
testcase_78	AC	360 ms 37,412 KB
testcase_79	AC	358 ms 37,272 KB
testcase_80	AC	77 ms 32,380 KB
testcase_81	AC	363 ms 37,292 KB
testcase_82	WA	-
testcase_83	AC	356 ms 36,496 KB
testcase_84	AC	356 ms 36,124 KB
testcase_85	AC	354 ms 36,260 KB
testcase_86	AC	356 ms 37,028 KB
testcase_87	WA	-
testcase_88	WA	-
testcase_89	WA	-
testcase_90	AC	355 ms 36,928 KB
testcase_91	AC	358 ms 36,256 KB
testcase_92	AC	69 ms 30,720 KB
testcase_93	AC	69 ms 30,944 KB
testcase_94	AC	355 ms 36,476 KB
testcase_95	AC	354 ms 37,072 KB
testcase_96	AC	354 ms 36,128 KB
testcase_97	AC	353 ms 36,264 KB
testcase_98	AC	354 ms 35,980 KB
testcase_99	AC	357 ms 36,136 KB
testcase_100	AC	69 ms 30,976 KB
testcase_101	AC	356 ms 36,252 KB
testcase_102	AC	349 ms 35,816 KB
testcase_103	AC	349 ms 35,040 KB
testcase_104	AC	350 ms 34,996 KB
testcase_105	AC	348 ms 36,072 KB
testcase_106	AC	349 ms 35,060 KB
testcase_107	AC	351 ms 35,000 KB
testcase_108	AC	348 ms 35,308 KB
testcase_109	AC	348 ms 35,908 KB
testcase_110	AC	350 ms 36,068 KB
testcase_111	AC	352 ms 35,944 KB
testcase_112	AC	350 ms 35,820 KB
testcase_113	AC	362 ms 35,816 KB
testcase_114	AC	347 ms 36,072 KB
testcase_115	AC	350 ms 35,000 KB
testcase_116	AC	348 ms 35,204 KB
testcase_117	AC	349 ms 36,196 KB
testcase_118	AC	349 ms 36,072 KB
testcase_119	AC	350 ms 35,372 KB
testcase_120	AC	350 ms 36,288 KB
testcase_121	AC	349 ms 35,864 KB
testcase_122	AC	360 ms 37,420 KB
testcase_123	AC	355 ms 36,196 KB
testcase_124	AC	358 ms 36,388 KB

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

コンパイルメッセージ

  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (360 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 -c / a < 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

結果

テストケース

コンパイルメッセージ

ソースコード