Created
November 8, 2013 01:00
-
-
Save magcks/7364587 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// set delimiter | |
init,0 | |
init,0,< | |
init,1 | |
init,1,< | |
init,2 | |
init,2,< | |
init,3 | |
init,3,< | |
init,4 | |
init,4,< | |
init,5 | |
init,5,< | |
init,6 | |
init,6,< | |
init,7 | |
init,7,< | |
init,8 | |
init,8,< | |
init,9 | |
init,9,< | |
init,_ | |
init2,D,> | |
// go back | |
init2,0 | |
init2,0,> | |
init2,1 | |
init2,1,> | |
init2,2 | |
init2,2,> | |
init2,3 | |
init2,3,> | |
init2,4 | |
init2,4,> | |
init2,5 | |
init2,5,> | |
init2,6 | |
init2,6,> | |
init2,7 | |
init2,7,> | |
init2,8 | |
init2,8,> | |
init2,9 | |
init2,9,> | |
init2,_ | |
sub,0,< | |
// subtract and go to addhalf to add the goback | |
sub,0 | |
sub,0,< | |
sub,1 | |
addhalf,0,> | |
sub,2 | |
sub,1,< | |
sub,3 | |
addhalf,1,> | |
sub,4 | |
sub,2,< | |
sub,5 | |
addhalf,2,> | |
sub,6 | |
sub,3,< | |
sub,7 | |
addhalf,3,> | |
sub,8 | |
sub,4,< | |
sub,9 | |
addhalf,4,> | |
// add the 0.5 to the right | |
addhalf,0 | |
jump,5,< | |
addhalf,1 | |
jump,6,< | |
addhalf,2 | |
jump,7,< | |
addhalf,3 | |
jump,8,< | |
addhalf,4 | |
jump,9,< | |
// jump back | |
jump,0 | |
sub,0,< | |
jump,1 | |
sub,1,< | |
jump,2 | |
sub,2,< | |
jump,3 | |
sub,3,< | |
jump,4 | |
sub,4,< | |
// if we are finished... we go back to the rest | |
sub,D | |
gobackinit,D,> | |
gobackinit,0 | |
goback0,0,> // special case: if only zeros are there we can clean up | |
gobackinit,1 | |
goback,1,> | |
gobackinit,2 | |
goback,2,> | |
gobackinit,3 | |
goback,3,> | |
gobackinit,4 | |
goback,4,> | |
gobackinit,5 | |
goback,5,> | |
gobackinit,6 | |
goback,6,> | |
gobackinit,7 | |
goback,7,> | |
gobackinit,8 | |
goback,8,> | |
gobackinit,9 | |
goback,9,> | |
// the normal goback: | |
goback,0 | |
goback,0,> | |
goback,1 | |
goback,1,> | |
goback,2 | |
goback,2,> | |
goback,3 | |
goback,3,> | |
goback,4 | |
goback,4,> | |
goback,5 | |
goback,5,> | |
goback,6 | |
goback,6,> | |
goback,7 | |
goback,7,> | |
goback,8 | |
goback,8,> | |
goback,9 | |
goback,9,> | |
// the special case of zero only: | |
goback0,0 | |
goback0,0,> | |
// if there are no zeros left, we use the normal "goback" | |
goback0,1 | |
goback,1,> | |
goback0,2 | |
goback,2,> | |
goback0,3 | |
goback,3,> | |
goback0,4 | |
goback,4,> | |
goback0,5 | |
goback,5,> | |
goback0,6 | |
goback,6,> | |
goback0,7 | |
goback,7,> | |
goback0,8 | |
goback,8,> | |
goback0,9 | |
goback,9,> | |
// if we are totally right... | |
goback,_ | |
rest,_,< | |
// if we only have found zeros we can clean up: | |
goback0,_ | |
clean,_,< | |
// check the rest | |
rest,0 | |
rest0,_,< | |
rest,5 | |
rest1,_,< | |
// go to left until delimiter: rest0 | |
rest0,0 | |
rest0,0,< | |
rest0,1 | |
rest0,1,< | |
rest0,2 | |
rest0,2,< | |
rest0,3 | |
rest0,3,< | |
rest0,4 | |
rest0,4,< | |
rest0,5 | |
rest0,5,< | |
rest0,6 | |
rest0,6,< | |
rest0,7 | |
rest0,7,< | |
rest0,8 | |
rest0,8,< | |
rest0,9 | |
rest0,9,< | |
// go to left until delimiter: rest1 | |
rest1,0 | |
rest1,0,< | |
rest1,1 | |
rest1,1,< | |
rest1,2 | |
rest1,2,< | |
rest1,3 | |
rest1,3,< | |
rest1,4 | |
rest1,4,< | |
rest1,5 | |
rest1,5,< | |
rest1,6 | |
rest1,6,< | |
rest1,7 | |
rest1,7,< | |
rest1,8 | |
rest1,8,< | |
rest1,9 | |
rest1,9,< | |
// if we reached the delim: rest0, go left until _ | |
rest0,D | |
rest0j,D,< | |
rest0j,0 | |
rest0j,0,< | |
rest0j,1 | |
rest0j,1,< | |
// if we reached the delim: rest1, go left until _ | |
rest1,D | |
rest1j,D,< | |
rest1j,0 | |
rest1j,0,< | |
rest1j,1 | |
rest1j,1,< | |
// set the bit | |
rest0j,_ | |
backtodelim,0,> | |
rest1j,_ | |
backtodelim,1,> | |
// now go back to the delim and start again | |
backtodelim,0 | |
backtodelim,0,> | |
backtodelim,1 | |
backtodelim,1,> | |
backtodelim,D | |
init2,D,> | |
// clean | |
clean,0 | |
clean,_,< | |
clean,1 | |
clean,_,< | |
clean,2 | |
clean,_,< | |
clean,3 | |
clean,_,< | |
clean,4 | |
clean,_,< | |
clean,5 | |
clean,_,< | |
clean,6 | |
clean,_,< | |
clean,7 | |
clean,_,< | |
clean,8 | |
clean,_,< | |
clean,9 | |
clean,_,< | |
clean,D | |
fin,_,< |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment