結果

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

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
01.txt AC 2 ms
8,916 KB
02.txt AC 3 ms
6,872 KB
03.txt AC 2 ms
6,872 KB
04.txt AC 2 ms
6,872 KB
05.txt AC 2 ms
6,868 KB
06.txt AC 2 ms
6,868 KB
07.txt AC 3 ms
6,868 KB
08.txt AC 2 ms
6,868 KB
09.txt AC 3 ms
6,872 KB
10.txt AC 3 ms
6,868 KB
テストケース一括ダウンロード
コンパイルメッセージ
[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