jithusunny · January 4, 2016 11:38
diff --git a/gistfile1.hs b/gistfile1.hs
 sier 0 = ["*"]
 sier n = [blanks ++ row ++ blanks | row <- mat, let blanks = replicate (2^(n - 1)) ' '] ++ [row ++ " " ++ row | row <- mat]
 			where mat = sier (n - 1)

 printSierpinski n = mapM_ putStrLn $ sier n
	sier 0 = ["*"]
	sier n = [blanks ++ row ++ blanks \| row <- mat, let blanks = replicate (2^(n - 1)) ' '] ++ [row ++ " " ++ row \| row <- mat]
	where mat = sier (n - 1)

	printSierpinski n = mapM_ putStrLn $ sier n
No results found