11 lines
368 B
Plaintext
11 lines
368 B
Plaintext
Func Popcount(n) = if n = 0 then 0 else if 2*(n\2)=n then Popcount(n\2) else Popcount((n-1)\2)+1 fi fi.
|
|
Func Odiousness(n) = p:=Popcount(n);if 2*(p\2) = p then 0 else 1 fi.
|
|
|
|
for n=0 to 29 do !Popcount(3^n);!' ' od
|
|
e:=0
|
|
n:=0
|
|
while e<30 do if Odiousness(n)=0 then !n;!' ';e:=e+1 fi; n:=n+1 od
|
|
e:=0
|
|
n:=0
|
|
while e<30 do if Odiousness(n)=1 then !n;!' ';e:=e+1 fi; n:=n+1 od
|