結果
問題 | No.717 ファッションへのこだわり |
ユーザー | tak |
提出日時 | 2018-07-27 22:53:41 |
言語 | F# (F# 4.0) |
結果 |
AC
|
実行時間 | 95 ms / 2,000 ms |
コード長 | 589 bytes |
コンパイル時間 | 4,162 ms |
コンパイル使用メモリ | 158,904 KB |
実行使用メモリ | 25,308 KB |
最終ジャッジ日時 | 2023-09-18 12:25:46 |
合計ジャッジ時間 | 6,988 ms |
ジャッジサーバーID (参考情報) |
judge11 / judge14 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 88 ms
23,224 KB |
testcase_01 | AC | 89 ms
25,176 KB |
testcase_02 | AC | 89 ms
23,020 KB |
testcase_03 | AC | 89 ms
25,216 KB |
testcase_04 | AC | 89 ms
25,016 KB |
testcase_05 | AC | 88 ms
25,192 KB |
testcase_06 | AC | 89 ms
21,052 KB |
testcase_07 | AC | 91 ms
23,216 KB |
testcase_08 | AC | 95 ms
23,248 KB |
testcase_09 | AC | 90 ms
25,308 KB |
testcase_10 | AC | 89 ms
23,112 KB |
testcase_11 | AC | 90 ms
25,156 KB |
testcase_12 | AC | 90 ms
23,196 KB |
コンパイルメッセージ
Microsoft (R) F# Compiler version 11.0.0.0 for F# 5.0 Copyright (c) Microsoft Corporation. All Rights Reserved.
ソースコード
let R () = stdin.ReadLine() let N, M = let t = R().Split() |> Array.map int in t.[0], t.[1] let S = R().ToCharArray() let T = R().ToCharArray() let toMap = Array.countBy(fun x -> x) >> Map.ofArray let getValue (m:Map<char,int>) c = match m.TryFind c with | Some(x) -> x | None -> 0 let sMap = S |> toMap let tMap = T |> toMap let aCnt = let s = (sMap, 'A') ||> getValue let t = (tMap, 'A') ||> getValue min s t let bCnt = let s = (sMap, 'B') ||> getValue let t = (tMap, 'B') ||> getValue min s t let ans = aCnt + bCnt ans |> printfn "%i"