結果

問題 No.185 和風
ユーザー tottoripaper
提出日時 2015-04-19 23:25:20
言語 Haskell
(8.8.1)
結果
AC  
実行時間 10 ms
コード長 208 Byte
コンパイル時間 1,055 ms
使用メモリ 6,876 KB
最終ジャッジ日時 2019-09-14 02:55:17

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
1.in AC 6 ms
6,876 KB
2.in AC 10 ms
6,876 KB
3.in AC 5 ms
6,872 KB
4.in AC 5 ms
6,872 KB
5.in AC 10 ms
6,876 KB
6.in AC 5 ms
6,872 KB
7.in AC 9 ms
6,872 KB
テストケース一括ダウンロード
コンパイルメッセージ
Loaded package environment from /root/.ghc/x86_64-linux-8.8.1/environments/default
[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking a.out ...

ソースコード

diff #
import Control.Monad

main = do
  n <- readLn
  xys <- replicateM n $ liftM (map read . words) getLine
  let
      zs@(z:_) = map (\[x, y] -> y - x) xys
   in print $ if all (==z) zs && z > 0 then z else (-1)
0