[276] 2023-02-10 21:32:22 ruv wrote:

referenceImplementation - Example implementation for ROLL

: roll ( x0 i*x u.i -- i*x x0 )
  dup 0= if drop exit then  swap >r 1- recurse r> swap
;

[277] 2023-02-10 21:51:27 ruv wrote:

referenceImplementation - Example implementation for PICK

: pick ( x0 i*x u.i -- x0 i*x x0 )
  dup 0= if drop dup exit then  swap >r 1- recurse r> swap
;