Generating all rationals (Haskell)
 Generating Q from N2
We will first generate the non-invertible elements of the rationals (), then follow with the remainder of , in a monadic fashion.
<<generate rationals>>= import Data.Ratio import Control.Monad --- an infinite list of all rationals rationals :: [Rational] rationals = `mplus`
The non-invertible elements are trivial:
<<generate non-invertible rationals>>= return (0 % 1)
In order to generate the invertible elements, we use a diagonal construction, similar to the one in used in Generating all integer lattice points (Python) for . Now we wish to generate ascending diagonals, so we will count n up indefinitely, generating a diagonal for each value of n.
<<generate invertible rationals>>= do n <- [0..]
The diagonal itself merely generates each formal rational whose numerator and denominator add up to n + 1. For instance, when n = 6, we will generate .
<<generate diagonal entries>>= m <- [0..n-1]
Unlike the problem of generating lattice points, in which for instance (1,2) and (2,4) would code for different screen pixels, we find that two formally different rational expressions can be equivalent: . Therefore we calculate the greatest common denominator and use the resulting flag to select only the fully reduced fractions. For each positive rational, we also have to generate its negative.
<<filter for uniqueness>>= let i = m + 1 j = n - m guard $ gcd i j == 1 sign <- [1, -1] return $ sign * i % j
 Finishing up
Finally, we output all the rationals. You can use the "take" function to take only the first so-many items of the infinite list if you want it to stop.
<<allrats.hs>>= main :: IO () main = mapM_ print rationals