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

提出ソース

結果

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

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	362 ms 37,060 KB
testcase_01	AC	355 ms 36,376 KB
testcase_02	AC	78 ms 32,000 KB
testcase_03	AC	69 ms 30,960 KB
testcase_04	AC	70 ms 30,960 KB
testcase_05	AC	69 ms 30,848 KB
testcase_06	AC	69 ms 30,848 KB
testcase_07	AC	69 ms 30,848 KB
testcase_08	AC	68 ms 30,848 KB
testcase_09	AC	69 ms 30,976 KB
testcase_10	AC	69 ms 30,720 KB
testcase_11	AC	69 ms 30,720 KB
testcase_12	AC	69 ms 30,976 KB
testcase_13	AC	69 ms 30,848 KB
testcase_14	AC	351 ms 35,948 KB
testcase_15	AC	350 ms 35,032 KB
testcase_16	AC	349 ms 35,820 KB
testcase_17	AC	351 ms 35,820 KB
testcase_18	AC	350 ms 36,076 KB
testcase_19	AC	353 ms 35,036 KB
testcase_20	AC	350 ms 35,952 KB
testcase_21	AC	350 ms 35,948 KB
testcase_22	AC	351 ms 36,024 KB
testcase_23	AC	350 ms 35,924 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	361 ms 37,292 KB
testcase_35	AC	362 ms 37,280 KB
testcase_36	AC	363 ms 37,288 KB
testcase_37	AC	363 ms 37,152 KB
testcase_38	AC	364 ms 37,280 KB
testcase_39	AC	362 ms 37,392 KB
testcase_40	AC	363 ms 37,416 KB
testcase_41	AC	360 ms 37,080 KB
testcase_42	AC	361 ms 37,540 KB
testcase_43	AC	363 ms 37,396 KB
testcase_44	AC	362 ms 37,136 KB
testcase_45	AC	363 ms 37,280 KB
testcase_46	AC	362 ms 37,548 KB
testcase_47	AC	360 ms 37,024 KB
testcase_48	AC	364 ms 37,160 KB
testcase_49	AC	363 ms 37,672 KB
testcase_50	AC	361 ms 37,224 KB
testcase_51	AC	361 ms 37,152 KB
testcase_52	AC	363 ms 37,672 KB
testcase_53	AC	362 ms 37,156 KB
testcase_54	AC	362 ms 37,156 KB
testcase_55	AC	361 ms 37,540 KB
testcase_56	AC	363 ms 37,024 KB
testcase_57	AC	361 ms 37,408 KB
testcase_58	AC	362 ms 37,052 KB
testcase_59	AC	361 ms 36,996 KB
testcase_60	AC	77 ms 32,128 KB
testcase_61	AC	78 ms 32,384 KB
testcase_62	AC	361 ms 37,408 KB
testcase_63	AC	363 ms 37,076 KB
testcase_64	AC	77 ms 32,512 KB
testcase_65	AC	361 ms 37,284 KB
testcase_66	AC	77 ms 32,512 KB
testcase_67	AC	362 ms 37,396 KB
testcase_68	AC	78 ms 32,380 KB
testcase_69	AC	362 ms 37,284 KB
testcase_70	AC	361 ms 37,288 KB
testcase_71	AC	78 ms 32,380 KB
testcase_72	AC	77 ms 32,480 KB
testcase_73	AC	359 ms 37,416 KB
testcase_74	AC	372 ms 37,280 KB
testcase_75	AC	77 ms 32,256 KB
testcase_76	AC	77 ms 32,512 KB
testcase_77	AC	361 ms 37,152 KB
testcase_78	AC	364 ms 37,600 KB
testcase_79	AC	363 ms 37,268 KB
testcase_80	AC	78 ms 32,384 KB
testcase_81	AC	364 ms 37,160 KB
testcase_82	WA	-
testcase_83	AC	355 ms 36,512 KB
testcase_84	AC	354 ms 36,804 KB
testcase_85	AC	354 ms 37,064 KB
testcase_86	AC	355 ms 36,912 KB
testcase_87	WA	-
testcase_88	WA	-
testcase_89	WA	-
testcase_90	AC	354 ms 36,936 KB
testcase_91	AC	357 ms 36,664 KB
testcase_92	AC	69 ms 30,976 KB
testcase_93	AC	70 ms 30,976 KB
testcase_94	AC	355 ms 36,928 KB
testcase_95	AC	355 ms 37,064 KB
testcase_96	AC	356 ms 36,464 KB
testcase_97	AC	354 ms 37,028 KB
testcase_98	AC	356 ms 36,256 KB
testcase_99	AC	356 ms 36,208 KB
testcase_100	AC	69 ms 30,976 KB
testcase_101	AC	355 ms 36,804 KB
testcase_102	AC	347 ms 35,168 KB
testcase_103	AC	349 ms 35,040 KB
testcase_104	AC	351 ms 35,860 KB
testcase_105	AC	350 ms 34,812 KB
testcase_106	AC	352 ms 36,020 KB
testcase_107	AC	350 ms 35,108 KB
testcase_108	AC	352 ms 35,784 KB
testcase_109	AC	350 ms 34,852 KB
testcase_110	AC	351 ms 36,080 KB
testcase_111	AC	351 ms 35,164 KB
testcase_112	AC	354 ms 34,912 KB
testcase_113	AC	349 ms 35,104 KB
testcase_114	AC	352 ms 35,292 KB
testcase_115	AC	353 ms 35,112 KB
testcase_116	AC	350 ms 35,128 KB
testcase_117	AC	352 ms 34,864 KB
testcase_118	AC	352 ms 35,004 KB
testcase_119	AC	352 ms 35,328 KB
testcase_120	AC	352 ms 35,136 KB
testcase_121	AC	351 ms 35,292 KB
testcase_122	AC	364 ms 37,160 KB
testcase_123	AC	354 ms 35,212 KB
testcase_124	AC	355 ms 35,236 KB

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

コンパイルメッセージ

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

結果

テストケース

コンパイルメッセージ

ソースコード