10 lines
121 B
Text
10 lines
121 B
Text
|
fun format n length
|
||
|
|
let n tostr n
|
||
|
|
while len n < length
|
||
|
|
let n 0 + n
|
||
|
|
endwhile
|
||
|
|
println n
|
||
|
|
endfun
|
||
|
|
|
||
|
|
format 7.125 9
|