RosettaCodeData/Task/Negative-base-numbers/Mathematica/negative-base-numbers-2.math

3 lines
139 B
Plaintext

DecodeBase[ToCharacterCode[$Version], -126](*ascii 1-byte encoding*)
DecodeBase[ToCharacterCode[$Version], -(2^16 - 1)](*2-byte encoding*)