Formatted numeric output: Difference between revisions
Content added Content deleted
(Added Wren) |
No edit summary |
||
Line 1,221: | Line 1,221: | ||
00007.125 |
00007.125 |
||
</pre> |
</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}}== |
=={{header|Lasso}}== |