poz/jpp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

format all the stack comments nicer

Browse source
This commit is contained in:
jacekpoz 2024-06-23 13:11:33 +02:00
parent 1fa0b20964
commit 440ba87529
Signed by: poz
SSH key fingerprint: SHA256:JyLeVWE4bF3tDnFeUpUaJsPsNlJyBldDGV/dIKSLyN8
1 changed files with 21 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lab5.5/diophantine.fs
View file

@ -37,7 +37,7 @@
over over ( c b a -- c b a b a )
check-2-top-0 if ( c b a b a -- c b a )
drop drop drop ( c b a -- )
0 0 0
0 0 0 ( -- 0 0 0 )
else ( c b a b a -- c b a )
rot to _c ( c b a -- b a )
over over to _a to _b ( b a -- b a )
@ -46,7 +46,7 @@
_c swap mod ( y x d -- y x c%d )
0 = invert if ( y x c%d -- y x )
drop drop ( y x -- )
0 0 0
0 0 0 ( -- 0 0 0 )
else ( y x c%d -- y x )
_c _d / ( y x -- y x [c/d] = e )
dup rot ( y x e -- y e e x )