結果

問題 No.1131 Deviation Score
ユーザー sanao10000sanao10000
提出日時 2021-11-04 19:48:16
言語 Haskell
(9.8.2)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 2,782 bytes
コンパイル時間 215 ms
コンパイル使用メモリ 156,288 KB
最終ジャッジ日時 2024-11-15 01:53:31
合計ジャッジ時間 1,424 ms
ジャッジサーバーID
(参考情報)
judge3 / judge4
このコードへのチャレンジ
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、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:19:1: error: [GHC-87110]
    Could not load module ‘Data.Map.Strict’.
    It is a member of the hidden package ‘containers-0.6.8’.
    Use -v to see a list of the files searched for.
   |
19 | import qualified Data.Map.Strict as Map
   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Main.hs:20:1: error: [GHC-87110]
    Could not load module ‘Data.Set’.
    It is a member of the hidden package ‘containers-0.6.8’.
    Use -v to see a list of the files searched for.
   |
20 | import qualified Data.Set as Set
   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

ソースコード

diff #
プレゼンテーションモードにする

{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeApplications #-}
import Control.Applicative
import qualified Control.Monad as CM
import Control.Monad.Identity
import qualified Control.Monad.ST as ST
import Control.Monad.State
import qualified Data.Array as A
import qualified Data.Array.IO as AI
import qualified Data.Array.ST as AST
import qualified Data.ByteString.Builder as BB
import qualified Data.ByteString.Char8 as BS
import qualified Data.Char as Ch
import qualified Data.List as L
import qualified Data.Map.Strict as Map
import qualified Data.Set as Set
import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.Vector.Unboxed as VU
import qualified Data.Vector.Unboxed as VUM
import qualified Data.Vector.Generic as VG
import Prelude hiding (print)
cin :: Sanao a => IO a
cin = sanao <$> BS.getLine
------------------------------------------------------
main = do
s <- cin @Double
x<-cin @[Double]
let avg = sum x/s
putStr$unlines$map(show.floor.(-)50.(/2).(-)avg)x
-------------------------------------------------------
type Moji = BS.ByteString
print :: Show a => a -> IO ()
print x = BS.putStrLn $ BS.pack $ show x
class Sanao a where
sanao :: Moji -> a
{-# MINIMAL sanao #-}
instance Sanao Moji where
sanao = id
instance Sanao Int where
sanao x = case BS.readInt x of
Nothing -> error "Int"
Just (a, _) -> a
instance Sanao Double where
sanao x = case BS.readInt x of
Nothing -> error "Double"
Just (a, _) -> realToFrac a
instance Sanao [Moji] where
sanao = BS.words
instance (Sanao a) => Sanao [a] where
sanao = map sanao . BS.words
instance Sanao (Int, Int) where
sanao = (\[a, b] -> (a, b)) . map sanao . BS.words
instance Sanao (Int, Int, Int) where
sanao = (\[a, b, c] -> (a, b, c)) . map sanao . BS.words
instance Sanao (Int, Int, Int, Int) where
sanao = (\[a, b, c, d] -> (a, b, c, d)) . map sanao . BS.words
instance Sanao (Double, Double) where
sanao = (\[a, b] -> (a, b)) . map sanao . BS.words
instance Sanao (Double, Double, Double) where
sanao = (\[a, b, c] -> (a, b, c)) . map sanao . BS.words
instance Sanao (Double, Double, Double, Double) where
sanao = (\[a, b, c, d] -> (a, b, c, d)) . map sanao . BS.words
instance Sanao (Moji, Int) where
sanao = (\[a, b] -> (a, sanao b)) . BS.words
instance Sanao (Moji, Int, Int) where
sanao = (\[a, b, c] -> (a, sanao b, sanao c)) . BS.words
instance Sanao (Int, Moji) where
sanao = (\[a, b] -> (sanao a, b)) . BS.words
instance Sanao (Moji, Double) where
sanao = (\[a, b] -> (a, sanao b)) . BS.words
instance Sanao (Double, Moji) where
sanao = (\[a, b] -> (sanao a, b)) . BS.words
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0