Zahlen eines Zahlensystems mit der Basis b in dekadische Zahlen verwandeln

Algorithmus:

zahlen:[[[A,F,F,E],16],[[2,3,4,5],7],[[1,1,6,2],9]];
ziffern:[A=10,B=11,C=12,D=13,E=14,F=15];
f(zahl):=
block(
n:length(zahl[1]),
f:makelist(zahl[2]^(n-i),i,1,n),
dez:zahl[1].f
);
dez:makelist(f(zahlen[i]),i,1,length(zahlen));
dez:dez,ziffern;
Umwandlung: matrix(
[„p-adisch“,“dekadisch“],
[transpose(zahlen),transpose(dez)]
);

Lösung mit Maxima-Online:
http://maxima-online.org/?inc=r-1560229336

Sicherungskopie als PDF:Zahlen eines Zahlensystems mit der Basis b in Dekadisch