codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
; thue-morse sequence (define (complement digits) (map (lambda (d) (if (zero? d) 1 0)) digits)) (define (thue-morse n) (let loop ((tms '(0)) (n n)) (if (zero? n) tms (loop (append tms (complement tms)) (- n 1))))) (display (thue-morse 6))
Private
[
?
]
Run code
Submit