💾 Archived View for thrig.me › tech › 10.txt captured on 2024-06-16 at 13:37:39.

View Raw

More Information

⬅️ Previous capture (2023-01-29)

-=-=-=-=-=-=-

#!/usr/bin/env perl
#
# 10 - add 10 to the stack in base 2, 8, 10, and 16

use 5.32.0;
use warnings;
use experimental 'signatures';
use Carp 'croak';
use Language::Eforth;
our $f = Language::Eforth->new;

my $base = 10;
for my $newbase (qw(2 8 10 16)) {
    my $enc = inbase( $newbase, $base );
    $f->eval("$enc base !\n10\n");
    $base = $newbase;
}
# back to base 10 - embed supports $hexnumber for literal input,
# probably better than the inbase conversion (but less educational)
$f->eval( '$A base !' . " .s\n" );

# this could also be done with an "alphabet", see Number::AnyBase; ANS
# FORTH and Common LISP however restrict the base to 2..36
sub inbase ( $n, $base = 10 ) {
    croak "N must be positive"              if $n < 0;
    croak "base must be in the range 2..36" if $base < 2 or $base > 36;
    return $n                               if $base == 10;
    my $str = '';
    while (1) {
        my $mod = $n % $base;
        $n = int( $n / $base );
        # PORTABILITY not everything uses ASCII
        $mod = chr( 55 + $mod ) if $mod > 9;
        $str = $mod . $str;
        last if $n == 0;
    }
    return $str;
}