version 1.63, 2009/08/23 12:14:47
|
version 1.64, 2009/10/03 18:25:31
|
Line 50 decimal
|
Line 50 decimal
|
>r s>d >r abs -rot |
>r s>d >r abs -rot |
s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um* |
s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um* |
swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod |
swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod |
[ s" floored" environment? 0= throw ] [if] |
[ 1 -3 mod 0< ] [if] |
-rot r> IF IF 1. d+ THEN dnegate ELSE drop THEN |
-rot r> IF IF 1. d+ THEN dnegate ELSE drop THEN |
[else] |
[else] |
nip swap r> IF dnegate THEN |
nip swap r> IF dnegate THEN |