You are not logged in.

Search results

Search results 1-2 of 2.

Tuesday, January 18th 2011, 7:34pm

Author: XoCountessoX

eine Zahl rekursiv in ihre Ziffern zerlegen

Quoted from "vogelj" Source code 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 #lang scheme (define (zahlListe zahl) (define (helper zahl res) (if (= zahl 0) res (helper (quotient zahl 10) (cons (remainder zahl 10) res)) ) ) (helper zahl'()) ) (zahlListe 12345) (define (digit n pos) (let ((n-ziffern (remainder n(expt 10 pos)))) (quotient n-ziffern (expt 10 (- pos 1))) ) ) (define (zahlListe_ zahl) (reverse (map (lambda (i) (digit zahl (+ i 1))) (build-list (st...

Tuesday, January 18th 2011, 6:35pm

Author: XoCountessoX

eine Zahl rekursiv in ihre Ziffern zerlegen

Hallo zusammen, ich bin neu in Foren habe aber eine wichtige Frage also los gehts: Ich soll eine beliebige Zahl in ihre Ziffern zerlegen und anschließend in einer Liste speichern. Bisher habe ich folgendes (define (digit n pos) (let ((n-ziffern (remainder n(expt 10 pos)))) (quotient n-ziffern (expt 10 (- pos 1))) ) ) (define (zahlListe zahl) (if (null? zahl) '() (list (digit zahl 1))) (zahlListe zahl hier müsste ich ja sagen er soll in der Position der Zahl einen weiter gehen) ) Und genau da lie...