Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Sierpinski Triangle as lazy list
--ghc 7.10 addSharpEmpty :: Char -> Char -> Char addSharpEmpty ' ' ' ' = ' ' addSharpEmpty '#' '#' = ' ' addSharpEmpty _ _ = '#' nextSierpinski :: [Char] -> [Char] nextSierpinski a = zipWith (addSharpEmpty) (' ' : a) (a ++ " ") sierpinskiTriangle :: [[Char]] sierpinskiTriangle = "#" : (map nextSierpinski sierpinskiTriangle) main = print $ take 10 sierpinskiTriangle
run
|
edit
|
history
|
help
0
New wall
hard 1.1
Lambda Parser with long ids
project euler 8, haskell
Pi
Search
State
project euler 5, haskell
project euler 3, haskell
FizzBuzzkell