All pastes #523442 Raw Edit

Mine

public text v1 · immutable
#523442 ·published 2007-05-30 19:57 UTC
rendered paste body
(define normalize (n)
  (if (> n 1) (normalize (/ n 10)) n))

(define (normalize value)
  (if (>= value 1) (normalize (* value 0.1)) value )
)

(define (normalize n mult)
  (cond 
   ((>= n 1) (normalize (* n 0.1) (* mult 10)))
   ((<= n 0.1) (normalize (* n 10) (* mult 0.1)))
   (else n)))