提出 #15557343

ソースコード 拡げる

import Data.Bits
import qualified Data.ByteString.Char8 as C
import qualified Data.Vector.Unboxed as U

main = put =<< sol <$> (C.getLine *> get)

get = U.unfoldr (C.readInt . C.dropWhile (<'0')) <$> C.getLine

put = putStrLn . unwords . fmap show . U.toList

sol = U.map =<< xor . U.foldl1' xor

提出情報

提出日時
問題 E - Red Scarf
ユーザ karoyakani
言語 Haskell (GHC 8.8.3)
得点 500
コード長 305 Byte
結果 AC
実行時間 78 ms
メモリ 13648 KiB

コンパイルエラー

Loaded package environment from /home/contestant/.ghc/x86_64-linux-8.8.3/environments/default

ジャッジ結果

セット名 All Sample
得点 / 配点 500 / 500 0 / 0
結果
AC × 20
AC × 1
セット名 テストケース
All sample_01.txt, testcase_1.txt, testcase_10.txt, testcase_11.txt, testcase_12.txt, testcase_13.txt, testcase_14.txt, testcase_15.txt, testcase_16.txt, testcase_17.txt, testcase_18.txt, testcase_19.txt, testcase_2.txt, testcase_3.txt, testcase_4.txt, testcase_5.txt, testcase_6.txt, testcase_7.txt, testcase_8.txt, testcase_9.txt
Sample sample_01.txt
ケース名 結果 実行時間 メモリ
sample_01.txt AC 9 ms 4160 KiB
testcase_1.txt AC 2 ms 4028 KiB
testcase_10.txt AC 31 ms 8384 KiB
testcase_11.txt AC 19 ms 6652 KiB
testcase_12.txt AC 9 ms 5020 KiB
testcase_13.txt AC 60 ms 11180 KiB
testcase_14.txt AC 28 ms 7256 KiB
testcase_15.txt AC 54 ms 9884 KiB
testcase_16.txt AC 31 ms 7248 KiB
testcase_17.txt AC 39 ms 8412 KiB
testcase_18.txt AC 66 ms 12320 KiB
testcase_19.txt AC 38 ms 8136 KiB
testcase_2.txt AC 78 ms 13648 KiB
testcase_3.txt AC 24 ms 9500 KiB
testcase_4.txt AC 50 ms 9556 KiB
testcase_5.txt AC 66 ms 12828 KiB
testcase_6.txt AC 47 ms 9432 KiB
testcase_7.txt AC 51 ms 9836 KiB
testcase_8.txt AC 51 ms 9524 KiB
testcase_9.txt AC 72 ms 12492 KiB