* 2/ ( a -- a/2 ) divides the value by two - but it does actually use a shift1 to be faster simulate: : 2/ 2 / ; ( canonic) : 2/ 1 RSHIFT ; ( usual)
2/
( a -- a/2 )
simulate: : 2/ 2 / ; ( canonic) : 2/ 1 RSHIFT ; ( usual)
FORTH/ANS core (dpANS.6.1.0330) ordinary primitive