Test Passing Probability solutions

Test Passing Probability was solved using Haskell by 2 contestants. Solution sizes: average 919 bytes (shortest: 801; longest: 1209).