mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-27 04:38:06 +11:00
8 lines
238 B
Plaintext
8 lines
238 B
Plaintext
( r c -- r f )
|
|
( Parse digit c and accumulate into result r.
|
|
Flag f is true when c was a valid digit )
|
|
: _pdacc
|
|
'0' - DUP 10 < IF ( good, add to running result )
|
|
SWAP 10 * + 1 ( r*10+n f )
|
|
ELSE ( bad ) DROP 0 THEN ;
|