Negative base numbers: Difference between revisions

(Add Factor)
Line 499:
 
: /mod* ( x y -- z w )
[ /mod ] keep '[ [ 1 + ] [dip _ abs + ] bi* ] when-negative ;
 
: >nega ( n radix -- str )
1,808

edits