Variable-length quantity: Difference between revisions
m
→{{header|Mathematica}}
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 1,281:
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>toOctets[n_Integer] :=
StringJoin @@@
Line 1,287:
PadLeft[Characters@IntegerString[n, 16],
2 Ceiling[Plus @@ DigitCount[n, 16]/2], {"0"}], 2]
fromOctets[octets_List] := FromDigits[StringJoin @@ octets, 16]
Grid[{#, toOctets@#, fromOctets[toOctets@#]} & /@ {16^^3ffffe, 16^^1fffff, 16^^200000}]</lang>▼
▲Grid[{#, toOctets@#, fromOctets[toOctets@#]} & /@ {16^^3ffffe,
<pre>4194302 {3f,ff,fe} 4194302▼
▲{{out}}<pre>
▲4194302 {3f,ff,fe} 4194302
2097151 {1f,ff,ff} 2097151
2097152 {20,00,00} 2097152</pre>
=={{header|Nim}}==
|