mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Loops-Foreach/Forth/loops-foreach-1.fth

4 lines
94 B
Forth
Raw Permalink Blame History

create a 3 , 2 , 1 ,
: .array ( a len -- )
cells bounds do i @ . cell +loop ; \ 3 2 1
Reference in New Issue View Git Blame Copy Permalink