91 lines
3.6 KiB
Plaintext
91 lines
3.6 KiB
Plaintext
# by Artyom Bologov
|
|
H
|
|
# decimal -> unary
|
|
g/[^0-9]\{1,\}/s///g
|
|
g/^0\{1,\}\([0-9]\)/s//\1/
|
|
g/^9\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiiiii/
|
|
g/^8\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiiii/
|
|
g/^7\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiii/
|
|
g/^6\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiii/
|
|
g/^5\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiii/
|
|
g/^4\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiii/
|
|
g/^3\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iii/
|
|
g/^2\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2ii/
|
|
g/^1\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2i/
|
|
g/^0\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2/
|
|
g/^9\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiiiii/
|
|
g/^8\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiiii/
|
|
g/^7\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiii/
|
|
g/^6\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiii/
|
|
g/^5\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiii/
|
|
g/^4\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiii/
|
|
g/^3\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iii/
|
|
g/^2\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2ii/
|
|
g/^1\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2i/
|
|
g/^0\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2/
|
|
g/^9\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiiiii/
|
|
g/^8\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiiii/
|
|
g/^7\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiii/
|
|
g/^6\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiii/
|
|
g/^5\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiii/
|
|
g/^4\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiii/
|
|
g/^3\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iii/
|
|
g/^2\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2ii/
|
|
g/^1\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2i/
|
|
g/^0\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2/
|
|
g/^9\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiiiii/
|
|
g/^8\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiiii/
|
|
g/^7\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiii/
|
|
g/^6\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiii/
|
|
g/^5\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiii/
|
|
g/^4\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiii/
|
|
g/^3\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iii/
|
|
g/^2\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2ii/
|
|
g/^1\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2i/
|
|
g/^0\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2/
|
|
g/^9\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiiiii/
|
|
g/^8\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiiii/
|
|
g/^7\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiiii/
|
|
g/^6\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiiii/
|
|
g/^5\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiiii/
|
|
g/^4\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iiii/
|
|
g/^3\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2iii/
|
|
g/^2\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2ii/
|
|
g/^1\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2i/
|
|
g/^0\([0-9]*\)\(i*\)/s//\1\2\2\2\2\2\2\2\2\2\2/
|
|
# actual logic
|
|
g/.*/s/$/0/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^\(i*\)\1i\([^i]\)/s//\11\2/
|
|
g/^\(i*\)\1\([^i]\)/s//\10\2/
|
|
g/^0*\(1.*\)0$/s//\1/
|
|
,p
|
|
Q
|