From: Jens Axel Søgaard (jensaxel at soegaard.net) Date: Wed May 12 10:51:00 EDT 2004 |
|
John Clements wrote: > (define (limit-digits x num) (let ([y (expt 10 x)]) (number->string (/ (exact->inexact (round (* num y))) y)))) > (limit-digits 0 3) "3.0" > (limit-digits 1 2) "2.0" > (limit-digits 2 2) "2.0"
Posted on the users mailing list. |
|