repl.it
@anonymous/

BlissfulRevolvingPhoebe

Forth

No description

fork
loading
main.fth
1
2
3
4
5
: D DEPTH ;
: f D 0> IF 1 D 1 DO D 1- ROLL LOOP D 0 DO I PICK 2 MOD IF D I LEAVE THEN LOOP
DO I ROLL DROP LOOP THEN ;

171480372 4080622 41 43 42 14 42 f
JS-Forth 0.5200804171342 http://www.forthfreak.net/jsforth.html This program is published under the GPL.