]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/rosetta-code/knapsack/knapsack.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / extra / rosetta-code / knapsack / knapsack.factor
index ada59fd96da5bb3f4fa8f45ba115aef74fca5a3e..4f989c29380a2f4a0315d57aad9714eb0554d79b 100644 (file)
@@ -53,12 +53,12 @@ CONSTANT: items {
         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