18 lines
603 B
Plaintext
18 lines
603 B
Plaintext
Module Checkit {
|
|
Global data(), treat=0
|
|
data()=(85, 88, 75, 66, 25, 29, 83, 39, 97,68, 41, 10, 49, 16, 65, 32, 92, 28, 98)
|
|
Function pick(at, remain, accu) {
|
|
If remain Else =If(accu>treat->1,0):Exit
|
|
=pick(at-1,remain-1,accu+data(at-1))+If(at>remain->pick(at-1, remain, accu),0)
|
|
}
|
|
total=1
|
|
For i=0 to 8 {treat+=data(i)}
|
|
For i=19 to 11 {total*=i}
|
|
For i=9 to 1 {total/=i}
|
|
gt=pick(19,9,0)
|
|
le=total-gt
|
|
Print Format$("<= : {0:1}% {1}", 100*le/total, le)
|
|
Print Format$(" > : {0:1}% {1}", 100*gt/total, gt)
|
|
}
|
|
Checkit
|