Anonymous user
Formatted numeric output: Difference between revisions
→{{header|Lambdatalk}}
(Add min) |
|||
Line 1,224:
=={{header|Lambdatalk}}==
<lang scheme>
{def
{def padd {lambda {:
{def trunc {lambda {:n} {if {> :n 0} then {floor :n} else {ceil :n}}}}
then else :x{padd {- :z 1} :x}}}}▼
-> padd▼
{:trunc {trunc :n}}
{:dec {abs {trunc {* 1.0e:b {- :n {trunc :n}}}}}}
{if {W.equal? :sign -}
{def
7.125
▲ {lambda {:f :x :n}
10.7
▲ {let { {:f :f} {:x :x} {:n {padd :f :x}:n} }
0.980
▲ {br}{W.slice {- {W.length :n} :f} {- {W.length :n} 0} :n}}}}
-1000
559.8
-69.99
4970.430}
-> numbers
{S.map {
->
>>>>>>>>> +7.125
>>>>>>>> +10.699
>>>>>>>>> +0.980
>>>>>> -1000.000
>>>>>>> +559.799
>>>>>>>> -69.989
>>>>>> +4970.430
</lang>
| |||