Jump to content

Thue-Morse: Difference between revisions

m
→‎{{header|Haskell}}: (Tidying the non-finite sequence version)
No edit summary
m (→‎{{header|Haskell}}: (Tidying the non-finite sequence version))
Line 731:
The infinite sequence itself:
 
<lang haskell>thueMorse =:: [0Int] ++ g 1
thueMorse = 0 : g where1
where
g i = map (1 -) (<$> take i thueMorse) ++ g (2 * i*2)</lang>
 
main :: IO ()
'''Output:'''
<langmain haskell>~>= print $ take 33 thueMorse</lang>
{{Out}}
<pre>[0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,1,1,0,0,1,1,0,1,0,0,1,1]</langpre>
 
=={{header|J}}==
9,659

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.