sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor cleanup. 

To the first serious Joy code: bigints!
This commit is contained in:
Simon Forman 2023-02-12 20:11:40 -08:00
parent b0d79f77f7
commit 1540338306
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
implementations/bigints.joy
View File

@ -63,7 +63,7 @@ clear
[_gtb_BASE [bool] [popop pop true] [_gtb_BASE'] ifte] [_gtb_BASE [bool] [popop pop true] [_gtb_BASE'] ifte]
[_gtb_BASE' [pop bool] [popop pop false] [popop compare-pairs] ifte] [_gtb_BASE' [pop bool] [popop pop false] [popop compare-pairs] ifte]
[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]
[_scfd_R0 uncons 0 swap [sub-with-carry] dip] [_scfd_R0 uncons 0 swap [sub-with-carry] dip]
[cons-but-not-leading-zeroes [P'] [cons] [popd] ifte] [cons-but-not-leading-zeroes [P'] [cons] [popd] ifte]
@ -92,4 +92,4 @@ build-two-list-combiner
[sub-digits'] swoncat [sub-digits'] swoncat
inscribe inscribe
1234 to-bigint dup sub-bigints 1000000000000000000000000000000000000000 to-bigint 1 to-bigint sub-bigints from-bigint