crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

example: n:binary-rep correction for negative numbers

Browse source 
FossilOrigin-Name: ede742661f927d96f9035edeb000140d3cb79be07cc1b51d8cf68d512e431dca
This commit is contained in:
crc 2019-04-23 13:40:40 +00:00
parent c58165d6ff
commit 4616a07abe
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
example/StringToNumberWithBase.forth
View file

@ -74,14 +74,16 @@ The `n:to-string<with-base>` returns a representation of binary numbers, but
not the actual bitwise representation. The next word takes care of this.
~~~
:n:binary-rep (n-s)
[ s:empty buffer:set
dup n:negative? [ n:inc ] if
#32 [ dup n:negative?
[ dup n:odd? ] [ dup n:even? ] choose
[ $1 ] [ $0 ] choose buffer:add
#2 / ] times drop
buffer:start s:reverse
] buffer:preserve ;
{{
'Selector var
:bit (f-c) [ $0 ] [ $1 ] choose ;
---reveal---
:n:binary-rep (n-s)
dup n:negative? [ n:inc &n:odd? ] [ &n:even? ] choose !Selector
[ s:empty buffer:set
#32 [ dup @Selector call bit buffer:add #2 / ] times drop
buffer:start s:reverse
] buffer:preserve ;
}}
~~~