Rosetta Code

Fraction reduction: Difference between revisions

Page Discussion

Fraction reduction (view source)

Revision as of 16:11, 13 July 2020

30 bytes removed ,  3 years ago
m
→‎{{header|Haskell}}
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
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/293829"