Formatted numeric output: Difference between revisions
Content added Content deleted
Line 1,231: | Line 1,231: | ||
{let { {:a :a} {:b :b} {:n {abs :n}} {:sign {if {>= :n 0} then + else -}} |
{let { {:a :a} {:b :b} {:n {abs :n}} {:sign {if {>= :n 0} then + else -}} |
||
{:trunc {trunc :n}} |
{:trunc {trunc :n}} |
||
{:dec { |
{:dec {ceil {* 1.0e:b {abs {- :n {trunc :n}}}}} } |
||
} {br}{padd {- :a {W.length {trunc :n}}} >} |
} {br}{padd {- :a {W.length {trunc :n}}} >} |
||
{if {W.equal? :sign -} then else :sign}:trunc.:dec{padd {- :b {W.length :dec}} 0} }}} |
{if {W.equal? :sign -} then else :sign}:trunc.:dec{padd {- :b {W.length :dec}} 0} }}} |
||
-> fmt |
-> fmt |
||
Line 1,253: | Line 1,253: | ||
>>>>>> -1000.000 |
>>>>>> -1000.000 |
||
>>>>>>> +559.799 |
>>>>>>> +559.799 |
||
>>>>>>>> -69. |
>>>>>>>> -69.990 |
||
>>>>>> +4970.430 |
>>>>>> +4970.430 |
||
</lang> |
</lang> |