Re: Why dial-a-standard is not a thing in Forth

On 22/04/2025 12:19 am, sjack wrote:

dxf <dxforth@gmail.com> wrote:

>
Out of curiosity what was the conversion method?
>

-- CVD ( n_x -- n_decimal)
-- Convert to decimal
-- Split given 3 digit number into digits and
-- reassemble digits into a decimal number.
 
Base is used to get the digits but regardless of the base each digit
is treated as a decimal value, what the user had intended, and assembled
into a decimal number.

Thanks.  So something like this ...

: CVD ( n1 -- n2 )  \ convert to decimal
  3 0 do base @ /mod loop
  3 0 do #10 * swap + loop ;

16 base !  10 cvd decimal . 10  ok
2  base !  10 cvd decimal . 10  ok
36 base ! -10 cvd decimal . -10  ok