Task

Express a number in decimal as a fixed-length string with leading zeros.



For example, the number   7.125   could be expressed as   00007.125.




(quote cons "" join) :str-append
(pick length - repeat swap str-append) :left-pad
 
7.125 string "0" 9 left-pad puts!