Greedy algorithm for Egyptian fractions: Difference between revisions

m
Line 502:
'''Testing''':
<lang haskell>λ> :m Test.QuickCheck
λ> quickCheck (\n -> n == (sum $ egiptianFractionegyptianFraction n))
+++ OK, passed 100 tests.</lang>
 
9,655

edits