25개 이상의 토픽을 선택하실 수 없습니다.
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- : _
- 999 SWAP ( stop indicator )
- DUP 0 = IF '0' EXIT THEN ( 0 is a special case )
- BEGIN
- DUP 0 = IF DROP EXIT THEN
- 10 /MOD ( r q )
- SWAP '0' + SWAP ( d q )
- AGAIN ;
- : . ( n -- )
- ( handle negative )
- DUP 0< IF '-' EMIT -1 * THEN
- _
- BEGIN
- DUP '9' > IF DROP EXIT THEN ( stop indicator )
- EMIT
- AGAIN ;
|