結果

問題 No.79 過小評価ダメ・ゼッタイ
ユーザー むらため
提出日時 2017-08-15 18:46:05
言語 Nim
(2.2.0)
結果
AC  
実行時間 32 ms / 5,000 ms
コード長 535 bytes
コンパイル時間 3,537 ms
コンパイル使用メモリ 69,492 KB
実行使用メモリ 9,344 KB
最終ジャッジ日時 2024-06-30 02:40:03
合計ジャッジ時間 4,997 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 22
権限があれば一括ダウンロードができます
コンパイルメッセージ
/home/judge/data/code/Main.nim(1, 50) Warning: Use the new 'sugar' module instead; future is deprecated [Deprecated]
/home/judge/data/code/Main.nim(1, 26) Warning: imported and not used: 'strscans' [UnusedImport]

ソースコード

diff # 

import sequtils,strutils,strscans,algorithm,math,future,macros
template get*():string = stdin.readLine() #.strip()

proc coundDuplicate[T](arr:seq[T]): seq[tuple[key:T,val:int]] =
  let arr2 = arr.sorted(cmp[T])
  result = @[(arr2[0],1)]
  for a in arr2[1..arr2.len()-1]:
    if result[^1].key == a:
      result[^1].val += 1
    else:
      result &= (a,1)

let
  N = get().parseInt
  L = get().split().map(parseInt)
echo L.coundDuplicate()
  .sorted((x,y) => (if x.val != y.val : x.val - y.val else: x.key - y.key),Descending)[0].key
0