Fraktaali

input/code.hs:11:1: Warning:
    Pattern match(es) are non-exhaustive
    In an equation for `inv':
        Patterns not matched: GHC.Types.C# #x with #x `notElem` ['.', '#']

input/code.hs:16:1: Warning:
    Top-level binding with no type signature: main :: IO ()

import Data.List

frac :: Int -> [String]
invl :: [String] -> [String]
invs :: String -> String
inv :: Char -> Char


invs xs = [inv x | x <- xs]
invl x = map invs x
inv '.' = '#'
inv '#' = '.'
frac 1 = ["#"]
frac n = transpose(frac (n-1) ++ frac (n-1)) ++ transpose(frac (n-1) ++ invl (frac (n-1)))

main = do
  z <- getLine
  mapM_ print (frac (read z))

Test 1

Group: 1

Verdict: WRONG ANSWER

Test 2

Group: 2

Verdict: WRONG ANSWER

Test 3

Group: 3

Verdict: WRONG ANSWER

Test 4

Group: 4

Verdict: WRONG ANSWER

Test 5

Group: 5

Verdict: WRONG ANSWER

Test 6

Group: 6

Verdict: WRONG ANSWER

Test 7

Group: 7

Verdict: WRONG ANSWER

Test 8

Group: 8

Verdict: WRONG ANSWER

Test 9

Group: 9

Verdict: WRONG ANSWER

Test 10

Group: 10

Verdict: WRONG ANSWER