Fraction reduction: Difference between revisions

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