結果

問題 No.406 鴨等間隔の法則
コンテスト
ユーザー nukosuke
提出日時 2016-10-20 14:07:18
言語 Raku
(rakudo v2026.03)
コンパイル:
raku -c _filename_
実行:
raku _filename_
結果
AC  
実行時間 577 ms / 2,000 ms
コード長 290 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 425 ms
コンパイル使用メモリ 148,352 KB
実行使用メモリ 180,736 KB
最終ジャッジ日時 2026-05-18 14:22:56
合計ジャッジ時間 15,813 ms
ジャッジサーバーID
（参考情報） 		judge1_1 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 29
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff #
raw source code 

get();
my @x = get().split(' ').map({.Int}).sort({ $^a <=> $^b });
my $diff = @x[1] - @x[0];
my $expect = @x[1];
my $ans  = True;

for 1..@x.end {
  if $expect != @x[$_] {
    $ans = False;
    last;
  }
  $expect += $diff;
}

if $diff == 0 {
  $ans = False;
}

say($ans ?? 'YES' !! 'NO');
0