RosettaCodeData/Task/Binary-digits/Ed/binary-digits-1.ed
2024-10-16 18:07:41 -07:00

2 lines
61 B
Text

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