Hi
Kann mir jemand den Algorithmus von der
Divisions-Rest-Methode in scheme schreiben?

unsere Version (die noch nicht Funktioniert):

(define (umw Zahl Basis)
(if
(< Zahl Basis)
(cons (remainder Zahl Basis) '())
( (umw (quotient Zahl Basis) Basis)

(cons (remainder Zahl Basis) '()))))

Könntest du vielelicht kurz schreiben, was diese Funktion machen soll?

Hi
Die Funktion soll eine Dezimalzahl in eine beliebiges Zahlensystem Umwandeln.

Und die soll dann als Liste zurückgegeben werden?
z.B. (umw 13 2) –> '(1 1 0 1) richtig? Oder soll das dann noch zu einer "richtigen" Zahl gemacht werden?

(define (umw zahl basis)
(display (list zahl basis))
(cond
((= zahl 0) '())
(else
(append (umw (quotient zahl basis) basis) (list(remainder zahl basis))))))

müsste prinzipiell funktionieren.

Ach.. ähh.. das display kann da raus, das ist nur um zu verstehen, wie der Algorithmus funktioniert [img]http://www.fb18.de/gfx/22.gif[/img]