Mostly done with addition and subtraction.
This commit is contained in:
+352
-873
File diff suppressed because it is too large
Load Diff
@@ -64,7 +64,7 @@ clear
|
|||||||
|
|
||||||
[sub-carry-from-digits [pop not] [popd] [_scfd_R0] [i cons-but-not-leading-zeroes] genrec] inscribe
|
[sub-carry-from-digits [pop not] [popd] [_scfd_R0] [i cons-but-not-leading-zeroes] genrec] inscribe
|
||||||
[_scfd_R0 uncons 0 swap [sub-with-carry] dip] inscribe
|
[_scfd_R0 uncons 0 swap [sub-with-carry] dip] inscribe
|
||||||
[cons-but-not-leading-zeroes [[bool] ii | not] [popd] [cons] ifte]
|
[cons-but-not-leading-zeroes [P'] [cons] [popd] ifte]
|
||||||
|
|
||||||
[sub-with-carry _sub-with-carry0 _sub-with-carry1]
|
[sub-with-carry _sub-with-carry0 _sub-with-carry1]
|
||||||
[_sub-with-carry0 rolldown bool-to-int [-] ii]
|
[_sub-with-carry0 rolldown bool-to-int [-] ii]
|
||||||
@@ -92,6 +92,3 @@ build-two-list-combiner
|
|||||||
inscribe
|
inscribe
|
||||||
|
|
||||||
|
|
||||||
true [0 1] sub-carry-from-digits
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user