結果

問題 No.21 平均の差
ユーザー highdhighd
提出日時 2016-08-16 20:44:34
言語 Haskell
(9.8.2)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 480 bytes
コンパイル時間 180 ms
コンパイル使用メモリ 157,568 KB
最終ジャッジ日時 2024-11-14 19:48:36
合計ジャッジ時間 537 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )

Main.hs:7:10: error: [GHC-59692]
    Duplicate instance declarations:
      instance Monoid a => Monoid (IO a) -- Defined at Main.hs:7:10
      instance Monoid a => Monoid (IO a) -- Defined in ‘GHC.Base’
  |
7 | instance Monoid a => Monoid (IO a) where
  |          ^^^^^^^^^^^^^^^^^^^^^^^^^

ソースコード

diff # 

import Data.Foldable
import Control.Applicative
import Data.Monoid
import Data.Foldable
import Prelude hiding (maximum,minimum)

instance Monoid a => Monoid (IO a) where
	mempty = return mempty
	mappend a b = mappend <$> a <*> b

getLines::Int->IO String
getLines 1 = getLine 
getLines n = getLine <> return "\n" <> (getLines$n-1)

main = do
	n<-read<$>getLine::IO Int
	k<-read<$>getLine::IO Int
	list<-fmap read<$>lines<$> getLines n::IO [Int]
	print$maximum list - minimum list
0