Fraktaali

input/code.hs:17: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 '#' = '.'
inv x = x
frac 1 = ["#"]
frac n = transpose(frac (n-1) ++ frac (n-1)) ++ transpose(frac (n-1) ++ invl (frac (n-1)))

main = do
  z <- readLn :: IO Int
  mapM_ putStrLn (frac z)

Test 1

Group: 1

Verdict: ACCEPTED

Test 2

Group: 2

Verdict: ACCEPTED

Test 3

Group: 3

Verdict: ACCEPTED

Test 4

Group: 4

Verdict: ACCEPTED

Test 5

Group: 5

Verdict: ACCEPTED

Test 6

Group: 6

Verdict: ACCEPTED

Test 7

Group: 7

Verdict: ACCEPTED

Test 8

Group: 8

Verdict: ACCEPTED

Test 9

Group: 9

Verdict: ACCEPTED

Test 10

Group: 10

Verdict: ACCEPTED