Zählschleife

Aus ProgrammingWiki

Scheme lässt multiparadigmatische Problemlösungen zu.
Beispielsweise lassen sich klassische Zählschleifen konstruieren.

Summe ganzer Zahlen

(define summe
  (lambda (von bis)
    (do ((i von (+ i 1))
         (sum 0 (+ sum i)))
      ((> i bis) sum))))

(summe 0 100)

(define fak
  (lambda (n)
    (do ((i 1 (+ i 1))
         (prod 1 (* prod i)))
      ((> i n) prod))))

(fak 10)