Dualzahlen in Dezimalzahlen verwandeln

Die Aufgabe:

aufgabe101

Der Programmcode:

Dualzahl:[1,1,0,1]/* Eingabe, darf veraendert werden */;
n:length(Dualzahl);
Umwandler:makelist(2^(n-i),i,1,n);
Dezimalzahl:Dualzahl.Umwandler /* Skalarprodukt */;

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

Übung:
Man adaptiere das Programm auf das Zahlensystem mit der Basis 6.

Zahl6:[1,1,0,1]/* Eingabe, darf veraendert werden */;
n:length(Zahl6);
Umwandler:makelist(6^(n-i),i,1,n);
Dezimalzahl:Zahl6.Umwandler /* Skalarprodukt */;