Programmation déclarative - Q3A - 06/2012

(define (exact->stream q)
  (let
      ((first-decimal (lambda (x)
                        (truncate (* x 10))
                        )
                      )
       )
    (let*
        ((inexact (exact->inexact q))
         (g (- inexact (truncate inexact)))
         (first (first-decimal g)))
      (if (= first 0)
          '()
          (cons-stream (inexact->exact first) (exact->stream (* g 10)))
          )
      )
    )
  )