Formatted numeric output: Difference between revisions

no edit summary
(Added Wren)
No edit summary
Line 1,221:
00007.125
</pre>
 
=={{header|Lambdatalk}}==
<lang scheme>
{def padd
{lambda {:z :x}
{if {= :z 0}
then else :x{padd {- :z 1} :x}}}}
-> padd
 
{def format
{lambda {:f :x :n}
{let { {:f :f} {:x :x} {:n {padd :f :x}:n} }
{br}{W.slice {- {W.length :n} :f} {- {W.length :n} 0} :n}}}}
-> format
 
{def numbers 0.000123456789
0.123456789
1.23456789
123.456789
123456789}
-> numbers
 
{S.map {format 15 _} {numbers}}
->
_0.000123456789
____0.123456789
_____1.23456789
_____123.456789
______123456789
</lang>
 
=={{header|Lasso}}==