19 lines
411 B
Plaintext
19 lines
411 B
Plaintext
mwv=: 25 0.25
|
|
prods=: <;. _1 ' panacea: ichor: gold:'
|
|
hdrs=: <;. _1 ' weight: volume: value:'
|
|
vls=: 3000 1800 2500
|
|
ws=: 0.3 0.2 2.0
|
|
vs=: 0.025 0.015 0.002
|
|
|
|
ip=: +/ .*
|
|
prtscr=: (1!:2)&2
|
|
|
|
KS=: 3 : 0
|
|
os=. (#:i.@(*/)) mwv >:@<.@<./@:% ws,:vs
|
|
bo=.os#~(ws,:vs) mwv&(*./@:>)@ip"_ 1 os
|
|
mo=.bo{~{.\: vls ip"1 bo
|
|
prtscr &.> prods ([,' ',":@])&.>mo
|
|
prtscr &.> hdrs ('total '&,@[,' ',":@])&.> mo ip"1 ws,vs,:vls
|
|
LF
|
|
)
|