langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Knapsack-problem-Unbounded/Ursala/knapsack-problem-unbounded.ursala
+++ b/Task/Knapsack-problem-Unbounded/Ursala/knapsack-problem-unbounded.ursala
@ -0,0 +1,14 @@
+#import nat
+#import flo
+
+vol = iprod/<0.025,0.015,0.002>+ float*
+val = iprod/<3000.,1800.,2500.>+ float*
+wgt = iprod/<0.3,0.2,2.0>+ float*
+
+packings = ~&lrlrNCCPCS ~&K0=> iota* <11,17,13>
+
+solutions = fleq$^rS&hl |=&l ^(val,~&)* (fleq\25.+ wgt)*~ (fleq\0.25+ vol)*~ packings
+
+#cast %nmL
+
+human_readable = ~&p/*<'panacea','ichor','gold'> solutions