Decimal floating point number to binary: Difference between revisions
Content deleted Content added
m →version 1: changed wording and whitespace in the REXX section header. |
Add Factor example |
||
Line 180: | Line 180: | ||
-5 => -101.0 => -5.0 |
-5 => -101.0 => -5.0 |
||
-0.25 => -0.01 => -0.25 |
-0.25 => -0.01 => -0.25 |
||
</pre> |
|||
=={{header|Factor}}== |
|||
<lang factor>USING: interpolate io kernel math.parser sequences ; |
|||
: bin>dec ( x -- y ) |
|||
number>string "0b${}p0" interpolate>string string>number ; |
|||
23.34375 dup >bin |
|||
1011.11101 dup bin>dec [ [I ${} => ${}I] nl ] 2bi@</lang> |
|||
{{out}} |
|||
<pre> |
|||
23.34375 => 1.011101011p4 |
|||
1011.11101 => 11.90625 |
|||
</pre> |
</pre> |
||