Thue-Morse: Difference between revisions
Content added Content deleted
(→{{header|Python}}: By substitution system) |
(added Fortran) |
||
| Line 187: | Line 187: | ||
01101001100101101001011001101001 |
01101001100101101001011001101001 |
||
0110100110010110100101100110100110010110011010010110100110010110 |
0110100110010110100101100110100110010110011010010110100110010110 |
||
</pre> |
|||
=={{header|Fortran}}== |
|||
{{works with|Fortran|90 and later}} |
|||
<lang fortran>program thue_morse |
|||
implicit none |
|||
logical :: f(32) = .false. |
|||
integer :: i, n = 1 |
|||
do i = 1, 6 |
|||
write(*,*) f(1:n) |
|||
f(n+1:2*n) = .not. f(1:n) |
|||
n = n * 2 |
|||
end do |
|||
end program thue_morse</lang> |
|||
{{out}} |
|||
<pre> |
|||
F |
|||
F T |
|||
F T T F |
|||
F T T F T F F T |
|||
F T T F T F F T T F F T F T T F |
|||
F T T F T F F T T F F T F T T F T F F T F T T F F T T F T F F T |
|||
</pre> |
</pre> |
||