小数点以下の桁数を揃える

test.satyh

let show-float-fix fl n =
  let string = show-float fl in
  let main-fl =
    let n = round fl in
    let fl-n = float n in
      fl -. fl-n
  in
  let main-string = show-float main-fl in
  let st-len = string-length main-string in
  let-rec add-zero n =
    if n < -1 then
      ` `
    else
      `0` ^ add-zero (n - 1)
  in
  string ^ add-zero (n - st-len)