結果
問題 | No.662 スロットマシーン |
ユーザー | tak |
提出日時 | 2018-03-16 13:58:54 |
言語 | F# (F# 4.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 1,233 bytes |
コンパイル時間 | 5,282 ms |
コンパイル使用メモリ | 159,852 KB |
実行使用メモリ | 27,000 KB |
最終ジャッジ日時 | 2023-08-23 11:47:29 |
合計ジャッジ時間 | 8,670 ms |
ジャッジサーバーID (参考情報) |
judge13 / judge11 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 102 ms
25,064 KB |
testcase_01 | AC | 101 ms
26,920 KB |
testcase_02 | AC | 100 ms
24,956 KB |
testcase_03 | AC | 102 ms
24,928 KB |
testcase_04 | AC | 102 ms
26,888 KB |
testcase_05 | AC | 101 ms
24,892 KB |
testcase_06 | WA | - |
testcase_07 | AC | 101 ms
25,100 KB |
testcase_08 | WA | - |
testcase_09 | WA | - |
testcase_10 | WA | - |
testcase_11 | WA | - |
testcase_12 | WA | - |
testcase_13 | WA | - |
testcase_14 | WA | - |
testcase_15 | WA | - |
testcase_16 | AC | 100 ms
26,948 KB |
testcase_17 | WA | - |
testcase_18 | WA | - |
コンパイルメッセージ
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()) num,arr let cnt keys arr = let t = new Dictionary<string,int>() for k in keys do t.[k] <- 0 for v in arr do t.[v] <- t.[v] + 1 t let scores = let t = new Dictionary<string,int>() for i in 1..5 do let tt = Console.ReadLine().Split() t.[tt.[0]] <- tt.[1] |> int t [<EntryPoint>] let main _ = 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,int>() for k in scores.Keys do t.[k] <- 0 t let mutable sum = 0 for k in scores.Keys do let occur = cntA.[k] * cntB.[k] * cntC.[k] * 5 if occur <> 0 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]) 0