Thue-Morse: Difference between revisions
→{{header|F_Sharp|F#}}
imported>Tromp (Add Thue-Morse in BLC) |
|||
| (5 intermediate revisions by 4 users not shown) | |||
Line 492:
The (infinite) Thue-Morse sequence is output by the 115 bit BLC program
<
as documented in https://github.com/tromp/AIT/blob/master/characteristic_sequences/thue-morse.lam
Output:
<pre>01101001100101101001011001101001100101100110100101101001100101101001011001101001011010011001011001101001100101101001011001101001100101100110100101101001100101100110100110010110100101100110100101101001...</pre>
=={{header|BQN}}==
Line 1,176 ⟶ 1,180:
| 0110100110010110100101100110100110010110011010010110100110010110
|}
=={{header|F_Sharp|F#}}==
<syntaxhighlight lang="fsharp">
// Thue-Morse. Nigel Galloway: April 16th., 2024
let rec fG n g=match n with 0->g |1->g+1 |n ->fG(n/2)(g+n&&&1)
let thueMorse=Seq.initInfinite(fun n->(fG n 0)%2)
thueMorse|>Seq.take 25|>Seq.iter(printf "%d "); printfn ""
</syntaxhighlight>
{{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
</pre>
=={{header|Factor}}==
Line 1,309 ⟶ 1,325:
{{FormulaeEntry|page=https://formulae.org/?script=examples/Thue-Morse}}
[[File:Fōrmulæ - Thue–Morse sequence 01.png]]
Line 1,315 ⟶ 1,331:
[[File:Fōrmulæ - Thue–Morse sequence 11.png]]
[[File:Fōrmulæ - Thue–Morse sequence 02.png]]
Line 1,321 ⟶ 1,337:
[[File:Fōrmulæ - Thue–Morse sequence 11.png]]
[[File:Fōrmulæ - Thue–Morse sequence 03.png]]
Line 1,327 ⟶ 1,343:
[[File:Fōrmulæ - Thue–Morse sequence 11.png]]
Notice that this solution generates a string.
Line 1,335 ⟶ 1,351:
[[File:Fōrmulæ - Thue–Morse sequence 12.png]]
Notice that this solution generates a string.
Line 1,343 ⟶ 1,359:
[[File:Fōrmulæ - Thue–Morse sequence 12.png]]
Notice that this solution generates a string.
[[File:Fōrmulæ - Thue–Morse sequence 06.png]]
[[File:Fōrmulæ - Thue–Morse sequence 12.png]]
=== Solution 7. L-system ===
There are generic functions written in Fōrmulæ to compute an L-system in the page [[L-system#Fōrmulæ | L-system]].
The program that creates a Hilbert curve is:
[[File:Fōrmulæ - L-system - Thue-Morse 01.png]]
[[File:Fōrmulæ - Thue–Morse sequence 12.png]]
| |||