結果
問題 | No.662 スロットマシーン |
ユーザー | tak |
提出日時 | 2018-03-16 14:19:24 |
言語 | F# (F# 4.0) |
結果 |
AC
|
実行時間 | 110 ms / 2,000 ms |
コード長 | 1,132 bytes |
コンパイル時間 | 3,690 ms |
コンパイル使用メモリ | 166,376 KB |
実行使用メモリ | 27,720 KB |
最終ジャッジ日時 | 2023-08-23 11:48:21 |
合計ジャッジ時間 | 6,678 ms |
ジャッジサーバーID (参考情報) |
judge11 / judge15 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 103 ms
26,988 KB |
testcase_01 | AC | 103 ms
26,972 KB |
testcase_02 | AC | 104 ms
25,024 KB |
testcase_03 | AC | 104 ms
25,124 KB |
testcase_04 | AC | 103 ms
25,120 KB |
testcase_05 | AC | 104 ms
27,168 KB |
testcase_06 | AC | 104 ms
25,228 KB |
testcase_07 | AC | 104 ms
25,136 KB |
testcase_08 | AC | 105 ms
23,232 KB |
testcase_09 | AC | 110 ms
25,308 KB |
testcase_10 | AC | 109 ms
27,496 KB |
testcase_11 | AC | 109 ms
27,432 KB |
testcase_12 | AC | 110 ms
27,720 KB |
testcase_13 | AC | 109 ms
27,540 KB |
testcase_14 | AC | 110 ms
25,460 KB |
testcase_15 | AC | 108 ms
25,432 KB |
testcase_16 | AC | 104 ms
25,204 KB |
testcase_17 | AC | 108 ms
25,436 KB |
testcase_18 | AC | 109 ms
25,480 KB |
コンパイルメッセージ
Microsoft (R) F# Compiler version 11.0.0.0 for F# 5.0 Copyright (c) Microsoft Corporation. All Rights Reserved.
ソースコード
open System open System.Collections.Generic let read() = Console.ReadLine() let readInt() = read() |> int let make() = let num = readInt() let arr = Array.init num (fun _ -> read()) int64 num,arr let cnt keys arr = let t = new Dictionary<string,int64>() for k in keys do t.[k] <- 0L for v in arr do t.[v] <- t.[v] + 1L t let scores = let t = new Dictionary<string,int64>() for i in 1..5 do let tt = Console.ReadLine().Split() t.[tt.[0]] <- tt.[1] |> int64 t let n1,A = make() let n2,B = make() let n3,C = make() let cnt0 = cnt scores.Keys let cntA = cnt0 A let cntB = cnt0 B let cntC = cnt0 C let occurrences = let t = new Dictionary<string,int64>() for k in scores.Keys do t.[k] <- 0L t let mutable sum = 0L for k in scores.Keys do let occur = cntA.[k] * cntB.[k] * cntC.[k] * 5L if occur <> 0L then sum <- sum + occur * scores.[k] occurrences.[k] <- occurrences.[k] + occur float sum / float (n1 * n2 * n3) |> printfn "%f" scores.Keys |> seq |> Seq.iter(fun k -> printfn "%i" occurrences.[k])