結果

問題 No.406 鴨等間隔の法則
ユーザー mkanenobu
提出日時 2018-03-20 20:12:38
言語 Nim
(2.2.0)
結果
AC  
実行時間 44 ms / 2,000 ms
コード長 361 bytes
コンパイル時間 3,846 ms
コンパイル使用メモリ 65,556 KB
実行使用メモリ 9,984 KB
最終ジャッジ日時 2024-07-07 12:22:00
合計ジャッジ時間 5,632 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 29
権限があれば一括ダウンロードができます

ソースコード

diff # 

import sequtils, strutils, algorithm

var
    n = readLine(stdin).parseInt
    x = readLine(stdin).split.map(parseInt)

sort(x, cmp[int])

proc main():string =
    var m = x[1] - x[0]
    if m == 0:
        return "NO"
    for i in 1..<n:
        if x[i] - x[i - 1] == m:
            continue
        else:
            return "NO"
    return "YES"

echo main()
0