24 lines
591 B
Plaintext
24 lines
591 B
Plaintext
V data = [85, 88, 75, 66, 25, 29, 83, 39, 97,
|
||
68, 41, 10, 49, 16, 65, 32, 92, 28, 98]
|
||
|
||
F pick(at, remain, accu, treat)
|
||
I remain == 0
|
||
R I accu > treat {1} E 0
|
||
R pick(at - 1, remain - 1, accu + :data[at - 1], treat) +
|
||
(I at > remain {pick(at - 1, remain, accu, treat)} E 0)
|
||
|
||
V treat = 0
|
||
V total = 1.0
|
||
L(i) 0..8
|
||
treat += data[i]
|
||
L(i) (19..11).step(-1)
|
||
total *= i
|
||
L(i) (9..1).step(-1)
|
||
total /= i
|
||
|
||
V gt = pick(19, 9, 0, treat)
|
||
V le = Int(total - gt)
|
||
|
||
print(‘<= : #.6% #.’.format(100 * le / total, le))
|
||
print(‘ > : #.6% #.’.format(100 * gt / total, gt))
|