blob: 241f5feab8ed4c8bd33404afbec493b9cd58714b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
d:0:"day15";
ss:{1 _' (&y=y,x) _ y,x}; / split x at y
l:ss[;" "]' d;
v:{0$' -1 _' x@2 4 6 8}'l; / valuations
c:{0$' -1 _' x@10}'l; / calories
n:{x,100-+/x}'!3#100;
n:n@&&/'1<n; / only positive ingredients
|/{*/0|+/v*x}'n
n:n@&{500=+/c*x}'n; / only 500 calories
|/{*/0|+/v*x}'n
|