new tasks

2013-04-09 00:46:50 -07:00 · 2013-04-09 00:46:50 -07:00 · 80737d5a6a
commit 80737d5a6a
parent 2a4d27cea0
1194 changed files with 15353 additions and 1 deletions
--- a/Task/Arrays/Forth/arrays-2.fth
+++ b/Task/Arrays/Forth/arrays-2.fth
@ -0,0 +1,20 @@
+: array ( n -- )
+  create
+     dup ,                           \ remember size at offset 0
+     dup cells here swap 0 fill      \ fill cells with zero
+     cells allot                     \ allocate memory
+  does> ( i addr -- )
+     swap 1+ cells + ;               \ hide offset=0 to index [0..n-1]
+: [size] -1 ;
+
+10 array MyArray
+
+30 7 MyArray !
+7 MyArray @ .                        \ 30
+
+: 5fillMyArray  5  0 do  I  I MyArray  !  loop ;
+: .MyArray     [size] MyArray @  0 do  I MyArray  @ .  loop ;
+
+.MyArray                             \ 0 0 0 0 0 0 30 0 0 0
+5fillMyArray
+.MyArray                             \ 1 2 3 4 5 0 30 0 0 0