mit Basis 1/B und Ziffern ∈{0...B - 1}
bezeichnet Limes der Werte der endlichen Partialfolgen
decimal :: Rational -> [ Nat ]
decimal x = let q = truncate (fromRational x)
in q : decimal (10 * (x-q))
Anwendung: vorige Näherung von