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

提出ソース

結果

問題	No.955 ax^2+bx+c=0
ユーザー	しぶつまひ
提出日時	2019-12-18 08:01:33
言語	F# (F# 4.0)
結果	AC
実行時間	392 ms / 2,000 ms
コード長	1,388 bytes
コンパイル時間	13,094 ms
コンパイル使用メモリ	193,676 KB
実行使用メモリ	39,416 KB
最終ジャッジ日時	2023-10-19 02:10:36
合計ジャッジ時間	57,075 ms
ジャッジサーバーID （参考情報）	judge13 / judge11

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	385 ms 38,512 KB
testcase_01	AC	377 ms 38,420 KB
testcase_02	AC	93 ms 34,180 KB
testcase_03	AC	81 ms 32,744 KB
testcase_04	AC	81 ms 32,744 KB
testcase_05	AC	81 ms 32,744 KB
testcase_06	AC	81 ms 32,744 KB
testcase_07	AC	81 ms 32,744 KB
testcase_08	AC	82 ms 32,744 KB
testcase_09	AC	82 ms 32,744 KB
testcase_10	AC	81 ms 32,744 KB
testcase_11	AC	82 ms 32,744 KB
testcase_12	AC	81 ms 32,744 KB
testcase_13	AC	81 ms 32,744 KB
testcase_14	AC	367 ms 37,392 KB
testcase_15	AC	365 ms 37,392 KB
testcase_16	AC	366 ms 37,424 KB
testcase_17	AC	367 ms 37,424 KB
testcase_18	AC	368 ms 37,424 KB
testcase_19	AC	367 ms 37,412 KB
testcase_20	AC	367 ms 37,372 KB
testcase_21	AC	367 ms 37,416 KB
testcase_22	AC	370 ms 37,392 KB
testcase_23	AC	367 ms 37,392 KB
testcase_24	AC	368 ms 37,388 KB
testcase_25	AC	367 ms 37,392 KB
testcase_26	AC	363 ms 37,392 KB
testcase_27	AC	366 ms 37,412 KB
testcase_28	AC	365 ms 37,412 KB
testcase_29	AC	367 ms 37,412 KB
testcase_30	AC	369 ms 37,412 KB
testcase_31	AC	368 ms 37,412 KB
testcase_32	AC	366 ms 37,416 KB
testcase_33	AC	367 ms 37,416 KB
testcase_34	AC	384 ms 39,416 KB
testcase_35	AC	390 ms 39,416 KB
testcase_36	AC	392 ms 39,416 KB
testcase_37	AC	389 ms 39,416 KB
testcase_38	AC	387 ms 39,408 KB
testcase_39	AC	385 ms 39,412 KB
testcase_40	AC	385 ms 39,412 KB
testcase_41	AC	384 ms 39,412 KB
testcase_42	AC	384 ms 39,416 KB
testcase_43	AC	386 ms 39,416 KB
testcase_44	AC	385 ms 39,416 KB
testcase_45	AC	386 ms 39,416 KB
testcase_46	AC	385 ms 39,416 KB
testcase_47	AC	384 ms 39,404 KB
testcase_48	AC	387 ms 39,408 KB
testcase_49	AC	384 ms 39,416 KB
testcase_50	AC	386 ms 39,408 KB
testcase_51	AC	384 ms 39,412 KB
testcase_52	AC	385 ms 39,412 KB
testcase_53	AC	386 ms 39,412 KB
testcase_54	AC	385 ms 39,404 KB
testcase_55	AC	388 ms 39,408 KB
testcase_56	AC	384 ms 39,412 KB
testcase_57	AC	384 ms 39,412 KB
testcase_58	AC	383 ms 39,300 KB
testcase_59	AC	380 ms 39,256 KB
testcase_60	AC	93 ms 34,508 KB
testcase_61	AC	93 ms 34,508 KB
testcase_62	AC	383 ms 39,408 KB
testcase_63	AC	383 ms 39,408 KB
testcase_64	AC	93 ms 34,508 KB
testcase_65	AC	384 ms 39,408 KB
testcase_66	AC	94 ms 34,508 KB
testcase_67	AC	382 ms 39,400 KB
testcase_68	AC	93 ms 34,508 KB
testcase_69	AC	391 ms 39,404 KB
testcase_70	AC	385 ms 39,404 KB
testcase_71	AC	94 ms 34,504 KB
testcase_72	AC	95 ms 34,504 KB
testcase_73	AC	384 ms 39,404 KB
testcase_74	AC	385 ms 39,404 KB
testcase_75	AC	93 ms 34,508 KB
testcase_76	AC	95 ms 34,508 KB
testcase_77	AC	385 ms 39,404 KB
testcase_78	AC	384 ms 39,404 KB
testcase_79	AC	386 ms 39,388 KB
testcase_80	AC	94 ms 34,504 KB
testcase_81	AC	383 ms 39,408 KB
testcase_82	AC	368 ms 37,416 KB
testcase_83	AC	375 ms 39,068 KB
testcase_84	AC	376 ms 39,068 KB
testcase_85	AC	378 ms 39,068 KB
testcase_86	AC	374 ms 39,064 KB
testcase_87	AC	368 ms 37,412 KB
testcase_88	AC	366 ms 37,412 KB
testcase_89	AC	367 ms 37,412 KB
testcase_90	AC	376 ms 39,064 KB
testcase_91	AC	374 ms 39,068 KB
testcase_92	AC	82 ms 32,740 KB
testcase_93	AC	80 ms 32,740 KB
testcase_94	AC	373 ms 39,068 KB
testcase_95	AC	372 ms 39,004 KB
testcase_96	AC	376 ms 39,068 KB
testcase_97	AC	375 ms 39,068 KB
testcase_98	AC	375 ms 39,064 KB
testcase_99	AC	375 ms 39,064 KB
testcase_100	AC	82 ms 32,744 KB
testcase_101	AC	372 ms 39,064 KB
testcase_102	AC	368 ms 37,652 KB
testcase_103	AC	368 ms 37,716 KB
testcase_104	AC	367 ms 37,720 KB
testcase_105	AC	365 ms 37,712 KB
testcase_106	AC	364 ms 37,716 KB
testcase_107	AC	366 ms 37,716 KB
testcase_108	AC	368 ms 37,712 KB
testcase_109	AC	365 ms 37,716 KB
testcase_110	AC	368 ms 37,712 KB
testcase_111	AC	365 ms 37,716 KB
testcase_112	AC	365 ms 37,716 KB
testcase_113	AC	364 ms 37,720 KB
testcase_114	AC	365 ms 37,720 KB
testcase_115	AC	369 ms 37,720 KB
testcase_116	AC	367 ms 37,720 KB
testcase_117	AC	367 ms 37,716 KB
testcase_118	AC	370 ms 37,712 KB
testcase_119	AC	370 ms 37,716 KB
testcase_120	AC	368 ms 37,716 KB
testcase_121	AC	368 ms 37,716 KB
testcase_122	AC	382 ms 39,416 KB
testcase_123	AC	374 ms 37,892 KB
testcase_124	AC	375 ms 37,660 KB

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

コンパイルメッセージ

  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (234 ms)。
MSBuild のバージョン 17.7.3+8ec440e68 (.NET)
  main -> /home/judge/data/code/bin/Release/net7.0/main.dll
  main -> /home/judge/data/code/bin/Release/net7.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|] -> pr [bigint 0]
| [|a;0;c|] when -bigint c  * e30 / 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

結果

テストケース

コンパイルメッセージ

ソースコード