Submission #25792018

Source Code Expand

import Data.List
main = do
  n <- readLn
  (s, t) <- splitAt n . lines <$> getContents
  let f = iterate $ transpose . reverse . dropWhile (all (== '.'))
  putStrLn $ if any id $ map (== f s !! 4) $ take 4 $ drop 4 $ f t
    then "Yes"
    else "No"

Submission Info

Submission Time
Task C - Shapes
User NOCO_1002
Language Haskell (GHC 8.8.3)
Score 300
Code Size 258 Byte
Status AC
Exec Time 64 ms
Memory 17096 KiB

Compile Error

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

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 4
AC × 20
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt
All hand_01.txt, hand_02.txt, hand_03.txt, hand_04.txt, hand_05.txt, hand_06.txt, hand_07.txt, random_01.txt, random_02.txt, random_03.txt, random_04.txt, random_05.txt, random_06.txt, random_07.txt, random_08.txt, random_09.txt, sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt
Case Name Status Exec Time Memory
hand_01.txt AC 6 ms 3800 KiB
hand_02.txt AC 3 ms 3820 KiB
hand_03.txt AC 2 ms 3696 KiB
hand_04.txt AC 2 ms 3712 KiB
hand_05.txt AC 2 ms 3780 KiB
hand_06.txt AC 25 ms 8352 KiB
hand_07.txt AC 24 ms 8232 KiB
random_01.txt AC 16 ms 7304 KiB
random_02.txt AC 2 ms 3996 KiB
random_03.txt AC 31 ms 10812 KiB
random_04.txt AC 23 ms 8932 KiB
random_05.txt AC 53 ms 16872 KiB
random_06.txt AC 64 ms 16972 KiB
random_07.txt AC 58 ms 16952 KiB
random_08.txt AC 60 ms 16976 KiB
random_09.txt AC 54 ms 17096 KiB
sample_01.txt AC 3 ms 3704 KiB
sample_02.txt AC 2 ms 3824 KiB
sample_03.txt AC 2 ms 3824 KiB
sample_04.txt AC 3 ms 3812 KiB