Formatted numeric output: Difference between revisions
Content added Content deleted
Line 1,230: | Line 1,230: | ||
{lambda {:a :b :n} |
{lambda {:a :b :n} |
||
{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 -}} |
||
{: |
{:int {trunc :n}} |
||
{:dec {ceil {* 1.0e:b {abs {- :n {trunc :n}}}}} } |
{: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}: |
{if {W.equal? :sign -} then else :sign}:int.:dec{padd {- :b {W.length :dec}} 0} }}} |
||
-> fmt |
-> fmt |
||