RosettaCodeData/Task/Binary-digits/Ed/binary-digits-1.ed

3 lines
61 B
Plaintext

g/^\(i*\)\1i\([^i]\)/s//\11\2/
g/^\(i*\)\1\([^i]\)/s//\10\2/