Liste des Groupes | Revenir à cl forth |
...
I have put the complication elsewhere. If we assume we're working in decimal, you don't even need >NUMBER:
char 0 negate +constant 0-
: /int ( a1 n1 -- a2 n2 n3)
0 >r 1 >r 1- chars over +
begin
over 1- over <
while
dup c@ is-digit
while
dup c@ 0- r> tuck * r> + >r 10 * >r 1-
repeat over - rdrop r> -rot
;
...
Les messages affichés proviennent d'usenet.