結果

問題 No.316 もっと刺激的なFizzBuzzをください
ユーザー Nobita GomuNobita Gomu
提出日時 2017-10-01 23:37:42
言語 F#
(F# 4.0)
結果
TLE  
実行時間 -
コード長 376 bytes
コンパイル時間 9,666 ms
コンパイル使用メモリ 193,420 KB
実行使用メモリ 67,924 KB
最終ジャッジ日時 2024-11-15 21:50:33
合計ジャッジ時間 61,881 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 TLE -
testcase_01 TLE -
testcase_02 TLE -
testcase_03 AC 343 ms
37,668 KB
testcase_04 TLE -
testcase_05 TLE -
testcase_06 AC 345 ms
38,228 KB
testcase_07 AC 342 ms
41,600 KB
testcase_08 AC 344 ms
64,600 KB
testcase_09 TLE -
testcase_10 AC 349 ms
41,736 KB
testcase_11 AC 342 ms
67,924 KB
testcase_12 AC 657 ms
38,236 KB
testcase_13 AC 510 ms
40,992 KB
testcase_14 AC 654 ms
64,244 KB
testcase_15 AC 889 ms
38,100 KB
testcase_16 AC 679 ms
41,712 KB
testcase_17 AC 646 ms
64,640 KB
testcase_18 TLE -
testcase_19 TLE -
testcase_20 TLE -
testcase_21 TLE -
testcase_22 AC 671 ms
41,116 KB
testcase_23 TLE -
testcase_24 TLE -
testcase_25 TLE -
testcase_26 AC 343 ms
64,732 KB
testcase_27 AC 344 ms
38,224 KB
testcase_28 AC 357 ms
40,976 KB
testcase_29 TLE -
testcase_30 TLE -
testcase_31 TLE -
testcase_32 TLE -
testcase_33 TLE -
testcase_34 TLE -
testcase_35 TLE -
testcase_36 TLE -
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (251 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/

ソースコード

diff # 

let sq =
    stdin.ReadLine ()
    |> int
    |> fun n -> seq { 1..n }

let calc =
    stdin.ReadLine ()
    |> fun s -> s.Split ' '
    |> Array.map int
    |> fun a -> fun n -> match (n % a.[0], n % a.[1], n % a.[2]) with
                         | (a,b,c) when a <> 0 && b <> 0 && c <> 0 -> 0
                         | _ -> 1

sq |> Seq.map calc |> Seq.sum |> printfn "%d"
0