提出 #1207507

ソースコード 拡げる

main = getLine >>= putStrLn . (\[a,b,c] -> if b-a == c-b then "YES" else "NO") . map read . words

提出情報

提出日時
問題 A - ι⊥l
ユーザ sato
言語 Haskell (GHC 7.10.3)
得点 100
コード長 97 Byte
結果 AC
実行時間 3 ms
メモリ 508 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
AC × 3
AC × 12
セット名 テストケース
Sample 0_000.txt, 0_001.txt, 0_002.txt
All 0_000.txt, 0_001.txt, 0_002.txt, A.txt, fever0.txt, fever7.txt, kure.txt, ma.txt, max.txt, nhk.txt, v.txt, xam.txt
ケース名 結果 実行時間 メモリ
0_000.txt AC 1 ms 508 KiB
0_001.txt AC 1 ms 508 KiB
0_002.txt AC 1 ms 508 KiB
A.txt AC 1 ms 508 KiB
fever0.txt AC 1 ms 508 KiB
fever7.txt AC 1 ms 508 KiB
kure.txt AC 1 ms 508 KiB
ma.txt AC 1 ms 508 KiB
max.txt AC 3 ms 508 KiB
nhk.txt AC 1 ms 508 KiB
v.txt AC 1 ms 508 KiB
xam.txt AC 1 ms 508 KiB