結果

問題 No.21 平均の差
ユーザー 情報学生
提出日時 2019-08-14 19:29:57
言語 Haskell
(8.8.1)
結果
AC  
実行時間 4 ms
コード長 127 Byte
コンパイル時間 903 ms
使用メモリ 8,920 KB
最終ジャッジ日時 2019-11-12 22:58:49

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
01.txt AC 4 ms
8,920 KB
02.txt AC 4 ms
6,872 KB
03.txt AC 4 ms
6,872 KB
04.txt AC 3 ms
6,872 KB
05.txt AC 4 ms
6,872 KB
06.txt AC 3 ms
6,876 KB
07.txt AC 3 ms
6,872 KB
08.txt AC 3 ms
6,872 KB
09.txt AC 3 ms
6,876 KB
10.txt AC 3 ms
8,920 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 #
main :: IO ()
main = interact $ show . solve . map read . words

solve :: [Int] -> Int
solve (_:_:xs) = maximum xs - minimum xs
0