結果
問題 | No.396 クラス替え |
ユーザー | highd |
提出日時 | 2018-07-15 17:54:14 |
言語 | Haskell (9.8.2) |
結果 |
AC
|
実行時間 | 2 ms / 1,000 ms |
コード長 | 1,533 bytes |
コンパイル時間 | 10,805 ms |
コンパイル使用メモリ | 224,624 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-11-06 21:18:51 |
合計ジャッジ時間 | 11,472 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 1 ms
6,816 KB |
testcase_01 | AC | 2 ms
6,816 KB |
testcase_02 | AC | 2 ms
6,816 KB |
testcase_03 | AC | 2 ms
6,816 KB |
testcase_04 | AC | 2 ms
6,816 KB |
testcase_05 | AC | 1 ms
6,816 KB |
testcase_06 | AC | 2 ms
6,816 KB |
testcase_07 | AC | 1 ms
6,820 KB |
testcase_08 | AC | 2 ms
6,820 KB |
testcase_09 | AC | 1 ms
6,816 KB |
testcase_10 | AC | 2 ms
6,820 KB |
testcase_11 | AC | 2 ms
6,816 KB |
testcase_12 | AC | 2 ms
6,816 KB |
testcase_13 | AC | 2 ms
6,820 KB |
testcase_14 | AC | 2 ms
6,820 KB |
testcase_15 | AC | 2 ms
6,820 KB |
testcase_16 | AC | 2 ms
6,816 KB |
testcase_17 | AC | 1 ms
6,816 KB |
testcase_18 | AC | 2 ms
6,816 KB |
testcase_19 | AC | 1 ms
6,816 KB |
コンパイルメッセージ
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:14:4: warning: [GHC-94817] [-Wtabs] Tab character found here, and in 59 further locations. Suggested fix: Please use spaces instead. | 14 | [] !-! _ = Nothing | ^^^^^ [2 of 2] Linking a.out
ソースコード
--{-# LANGUAGE Safe #-} {-# LANGUAGE PatternGuards #-} import qualified Data.Text as T import qualified Data.Text.IO as TI import qualified Data.List as L import Data.Monoid import Data.Maybe import Control.Applicative import Debug.Trace import Data.Char (!-!)::[a]->Int->Maybe a [] !-! _ = Nothing (x:xs) !-! 0 = Just x (x:xs) !-! n = xs !-! (n-1) (<$~>)::Functor f => f a -> (a -> b) -> f b (<$~>)=flip (<$>) maybeRead s |[(x,"")]<-(reads s)=Just x |otherwise = Nothing getLines::Int->IO T.Text getLines 1 = TI.getLine getLines n = TI.getLine <> return (T.pack " ") <> (getLines$n-1) run main_f n= getLines n <$~> T.split (==' ') <$~> fmap T.unpack <$~> main_f <$~> fromMaybe "error" >>= putStrLn {- 1 2 3 4 5 6 12 11 10 9 8 7 13 14 15 16 17 18 24 23 22 21 20 19 -} getClass::Int->Int->Int getClass m v = let tmp = v `mod` (2 * m)::Int r=if tmp > m then 2*m-tmp+1 else tmp in if r==0 then r+1 else r main_ list = do let get n = maybeRead=<<(list !-! n)::Maybe Int m<-get 1 x<-get 2 y<-get 3 return$if (getClass m x)==(getClass m y) then "YES" else "NO" format::Show a=>String->[a]->String format str list = format_ str list False where format_::Show a=>String ->[a]->Bool->String format_ [] _ _ = "" format_ (x:xs) list False |x=='%'=format_ xs list True |otherwise = x:format_ xs list False format_ (x:xs) list True |x=='%' = '%':format_ xs list False |isDigit x = show (list !! (ord x-ord '0'))++format_ xs list False main = run main_ 2