14 lines
347 B
Text
14 lines
347 B
Text
#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
|