T{ item f "socks" 4 50 }
T{ item f "book" 30 10 }
}
-
+
CONSTANT: limit 400
-
+
: make-table ( -- table )
items length 1 + [ limit 1 + 0 <array> ] replicate ;
-
+
:: iterate ( item-no table -- )
item-no table nth :> prev
item-no 1 + table nth :> curr