RosettaCodeData/Task/Loops-While/Oforth/loops-while.fth

2 lines
39 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
1024 while ( dup ) [ dup println 2 / ]