Schema - Summe Liste

Ich versuche zu implementieren ist eine Funktion, die calc Summe der Liste , Ihr name ist sum -

(define (sum elemList)
  (if
   (null? elemList)
   (+ (car elemList) (sum (cdr elemList)))
   0
  )
 )

Den obigen Implementierung ergibt Falsches Ergebnis z.B. -

> (sum (list 1 2 3 4 ))
0

Was habe ich hier falsch ?

InformationsquelleAutor URL87 | 2013-02-22

  1. 6

    Ich glaube, du vertauscht die dann und die sonst Teil der if:

    (define (sum elemList)
  (if
    (null? elemList)
    0
    (+ (car elemList) (sum (cdr elemList)))
  )
)

    In der ursprünglichen Funktion, für jede nicht-leere Liste 0 zurückgegeben.

    Und für eine leere Liste wird ein Fehler erzeugt werden würde, denn es würde versuchen, nehmen Sie die car und cdr einer leeren Liste.

    InformationsquelleAutor phg

Schreibe einen Kommentar