#166122 (F#) No.182 新規性の虜 - yukicoder

提出ソース

結果

問題	No.182 新規性の虜
ユーザー	regerege
提出日時	2017-04-15 15:54:08
言語	F# (F# 4.0)
結果	AC
実行時間	218 ms / 5,000 ms
コード長	146 bytes
コンパイル時間	4,593 ms
コンパイル使用メモリ	154,408 KB
実行使用メモリ	50,808 KB
最終ジャッジ日時	2023-08-27 14:49:09
合計ジャッジ時間	8,719 ms
ジャッジサーバーID （参考情報）	judge12 / judge14

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	99 ms 23,308 KB
testcase_01	AC	98 ms 23,448 KB
testcase_02	AC	98 ms 23,484 KB
testcase_03	AC	99 ms 23,512 KB
testcase_04	AC	99 ms 25,420 KB
testcase_05	AC	97 ms 23,476 KB
testcase_06	AC	97 ms 21,388 KB
testcase_07	AC	98 ms 23,312 KB
testcase_08	AC	164 ms 43,520 KB
testcase_09	AC	208 ms 50,336 KB
testcase_10	AC	194 ms 49,048 KB
testcase_11	AC	173 ms 43,368 KB
testcase_12	AC	136 ms 36,768 KB
testcase_13	AC	98 ms 23,436 KB
testcase_14	AC	97 ms 23,468 KB
testcase_15	AC	96 ms 25,352 KB
testcase_16	AC	97 ms 23,412 KB
testcase_17	AC	98 ms 23,456 KB
testcase_18	AC	150 ms 35,008 KB
testcase_19	AC	138 ms 33,048 KB
testcase_20	AC	127 ms 28,556 KB
testcase_21	AC	153 ms 35,492 KB
testcase_22	AC	133 ms 32,292 KB
testcase_23	AC	97 ms 23,532 KB
testcase_24	AC	218 ms 50,808 KB
testcase_25	AC	135 ms 32,908 KB
testcase_26	AC	115 ms 27,088 KB
testcase_27	AC	97 ms 23,436 KB
evil01.txt	AC	223 ms 49,888 KB
evil02.txt	AC	226 ms 52,188 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 _ = stdin.ReadLine()
stdin.ReadLine().Split(' ')
|> Seq.groupBy id
|> Seq.filter (fun (_,b) -> Seq.length b = 1)
|> Seq.length
|> printfn "%d"

0