#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
コンパイル時間	4,727 ms
コンパイル使用メモリ	158,308 KB
実行使用メモリ	25,784 KB
最終ジャッジ日時	2023-09-21 06:07:13
合計ジャッジ時間	19,394 ms
ジャッジサーバーID （参考情報）	judge12 / judge11

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	110 ms 25,704 KB
testcase_01	AC	103 ms 23,500 KB
testcase_02	AC	78 ms 22,832 KB
testcase_03	AC	72 ms 22,704 KB
testcase_04	AC	72 ms 22,660 KB
testcase_05	AC	72 ms 22,544 KB
testcase_06	AC	71 ms 22,700 KB
testcase_07	AC	71 ms 24,592 KB
testcase_08	AC	72 ms 24,652 KB
testcase_09	AC	72 ms 24,600 KB
testcase_10	AC	70 ms 20,600 KB
testcase_11	AC	71 ms 22,636 KB
testcase_12	AC	72 ms 22,692 KB
testcase_13	AC	71 ms 20,504 KB
testcase_14	AC	99 ms 25,620 KB
testcase_15	AC	98 ms 23,772 KB
testcase_16	AC	99 ms 23,708 KB
testcase_17	AC	99 ms 23,720 KB
testcase_18	AC	98 ms 23,604 KB
testcase_19	AC	98 ms 23,668 KB
testcase_20	AC	98 ms 25,708 KB
testcase_21	AC	100 ms 23,592 KB
testcase_22	AC	98 ms 23,552 KB
testcase_23	AC	98 ms 23,628 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	110 ms 23,528 KB
testcase_35	AC	112 ms 23,600 KB
testcase_36	AC	110 ms 23,584 KB
testcase_37	AC	110 ms 23,596 KB
testcase_38	AC	112 ms 25,724 KB
testcase_39	AC	110 ms 23,520 KB
testcase_40	AC	112 ms 25,648 KB
testcase_41	AC	109 ms 23,544 KB
testcase_42	AC	109 ms 25,724 KB
testcase_43	AC	110 ms 23,584 KB
testcase_44	AC	109 ms 23,572 KB
testcase_45	AC	111 ms 23,568 KB
testcase_46	AC	110 ms 25,772 KB
testcase_47	AC	110 ms 23,656 KB
testcase_48	AC	110 ms 23,588 KB
testcase_49	AC	111 ms 23,592 KB
testcase_50	AC	111 ms 23,640 KB
testcase_51	AC	110 ms 23,764 KB
testcase_52	AC	110 ms 23,648 KB
testcase_53	AC	110 ms 21,432 KB
testcase_54	AC	110 ms 23,556 KB
testcase_55	AC	110 ms 23,600 KB
testcase_56	AC	110 ms 23,592 KB
testcase_57	AC	110 ms 25,564 KB
testcase_58	AC	110 ms 23,652 KB
testcase_59	AC	111 ms 25,644 KB
testcase_60	AC	81 ms 24,836 KB
testcase_61	AC	81 ms 20,816 KB
testcase_62	AC	112 ms 23,704 KB
testcase_63	AC	113 ms 23,592 KB
testcase_64	AC	80 ms 22,888 KB
testcase_65	AC	112 ms 25,604 KB
testcase_66	AC	80 ms 20,836 KB
testcase_67	AC	112 ms 23,684 KB
testcase_68	AC	80 ms 22,752 KB
testcase_69	AC	112 ms 25,704 KB
testcase_70	AC	111 ms 23,520 KB
testcase_71	AC	82 ms 22,876 KB
testcase_72	AC	81 ms 24,868 KB
testcase_73	AC	112 ms 23,572 KB
testcase_74	AC	111 ms 23,596 KB
testcase_75	AC	80 ms 22,820 KB
testcase_76	AC	80 ms 22,824 KB
testcase_77	AC	111 ms 23,592 KB
testcase_78	AC	111 ms 21,604 KB
testcase_79	AC	111 ms 23,604 KB
testcase_80	AC	79 ms 24,868 KB
testcase_81	AC	110 ms 23,632 KB
testcase_82	WA	-
testcase_83	AC	103 ms 23,568 KB
testcase_84	AC	103 ms 23,500 KB
testcase_85	AC	102 ms 23,496 KB
testcase_86	AC	103 ms 23,488 KB
testcase_87	WA	-
testcase_88	WA	-
testcase_89	WA	-
testcase_90	AC	103 ms 23,560 KB
testcase_91	AC	103 ms 23,496 KB
testcase_92	AC	72 ms 22,548 KB
testcase_93	AC	72 ms 22,568 KB
testcase_94	AC	103 ms 25,504 KB
testcase_95	AC	102 ms 23,488 KB
testcase_96	AC	104 ms 25,504 KB
testcase_97	AC	103 ms 23,608 KB
testcase_98	AC	103 ms 23,508 KB
testcase_99	AC	103 ms 23,592 KB
testcase_100	AC	71 ms 22,644 KB
testcase_101	AC	103 ms 23,592 KB
testcase_102	AC	100 ms 25,700 KB
testcase_103	AC	100 ms 23,584 KB
testcase_104	AC	100 ms 23,552 KB
testcase_105	AC	99 ms 21,716 KB
testcase_106	AC	101 ms 25,744 KB
testcase_107	AC	101 ms 23,656 KB
testcase_108	AC	100 ms 25,604 KB
testcase_109	AC	101 ms 23,776 KB
testcase_110	AC	100 ms 23,544 KB
testcase_111	AC	99 ms 21,676 KB
testcase_112	AC	101 ms 25,784 KB
testcase_113	AC	99 ms 23,612 KB
testcase_114	AC	100 ms 25,652 KB
testcase_115	AC	100 ms 23,568 KB
testcase_116	AC	101 ms 25,592 KB
testcase_117	AC	100 ms 23,644 KB
testcase_118	AC	100 ms 23,680 KB
testcase_119	AC	100 ms 23,568 KB
testcase_120	AC	100 ms 25,676 KB
testcase_121	AC	99 ms 23,544 KB
testcase_122	AC	111 ms 23,668 KB
testcase_123	AC	106 ms 23,632 KB
testcase_124	AC	105 ms 25,692 KB

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

コンパイルメッセージ

Microsoft (R) F# Compiler version 11.0.0.0 for F# 5.0
Copyright (c) Microsoft Corporation. All Rights Reserved.

ソースコード

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

結果

テストケース

コンパイルメッセージ

ソースコード