swap adjacent bits by tails

b=$(a:a=)
c=$b$b$b$a
f=$(if $(word 65,$1),$1,$(call f,$(foreach a,$1a,$c $cxx $cx $cxxx)))
$(foreach a,$(wordlist 1,100,$f),$(info $(words $(subst x,x ,$b))))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page