You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- : (parsed) ( a -- n f )
- DUP C@ ( a c )
- DUP '-' = IF
- DROP 1+ ( a+1 ) (parsed) 0 ROT ( f 0 n )
- - SWAP EXIT ( 0-n f )
- THEN
- 0 SWAP _pdacc ( a r f )
- DUP IF 2DROP 0 EXIT THEN
- BEGIN ( a r 0 )
- DROP SWAP 1+ ( r a+1 )
- DUP C@ ( r a c )
- ROT SWAP ( a r c )
- _pdacc ( a r f )
- DUP UNTIL
- 1 = ( a r f )
- ROT DROP ( r f ) ;
|