Fraktaali

input/code.hs:6:11: Warning: Defined but not used: `i'

input/code.hs:18:1: Warning:
    Top-level binding with no type signature: draw :: Int -> IO ()

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

import Control.Monad

get :: Int -> Int -> Int -> Bool -> Bool
-- F_1 on tasolla 0
get 0 1 1 inverted = not inverted
get 0 x y i = error $ show x ++ "/" ++ show y
get level x y inverted = let
	half = 2^(level - 1) 
	fit n =
		if n > half then
			n - half
		else
			n
	in
		get (level - 1) (fit x) (fit y) $
			(if x > half && y > half then not else id) inverted

draw n = do
	let w = 2^n
	forM_ [1..w] $ \ x -> do
		forM_ [1..w] $ \ y -> do
			putChar $ if get n x y True then '.' else '#'
		putChar '\n'

main = do
	n <- readLn :: IO Int
	draw (n - 1)

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