10 lines
145 B
Text
10 lines
145 B
Text
get "libhdr"
|
|
|
|
let parity(x) =
|
|
x=0 -> 0,
|
|
(x&1) neqv parity(x>>1)
|
|
|
|
let start() be
|
|
$( for i=0 to 63 do writen(parity(i))
|
|
wrch('*N')
|
|
$)
|