Fraction reduction: Difference between revisions

m
Line 1,370:
 
possibleFractions :: [Int] -> [Fraction]
possibleFractions xs = let(\ys -> [(n,d) | n <- ys, d <- ys, n < d, gcd n d /= validIntegers1]) xs. validIntegers
in [(n,d) | n <- ys, d <- ys, n < d, gcd n d /= 1]
 
digits :: Integral a => a -> a -> [a]
Anonymous user