,---------------.
| Contributions |
`---------------´


,------------------------------------------
| 2023-02-10 21:32:22  ruv  wrote:
| referenceImplementation - Example implementation for ROLL
| see: https://forth-standard.org/standard/core/ROLL#contribution-276
`------------------------------------------
```
: roll ( x0 i*x u.i -- i*x x0 )
  dup 0= if drop exit then  swap >r 1- recurse r> swap
;
```



,------------------------------------------
| 2023-02-10 21:51:27  ruv  wrote:
| referenceImplementation - Example implementation for PICK
| see: https://forth-standard.org/standard/core/PICK#contribution-277
`------------------------------------------
```
: pick ( x0 i*x u.i -- x0 i*x x0 )
  dup 0= if drop dup exit then  swap >r 1- recurse r> swap
;
```