Bergervei/Zählschleife

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
Scheme lässt ''multiparadigmatische'' Problemlösungen zu.<br />
Beispielsweise lassen sich klassische Zählschleifen konstruieren.

== Summe ganzer Zahlen ==

<code id="4e77b5f4d301e">
(define summe
  (lambda (von bis)
    (do ((i von (+ i 1))
         (sum 0 (+ sum i)))
      ((> i bis) sum))))
</code>

<run id="4e77b5f4d3107">
(summe 0 100)
</run>

== Fakultätsfunktion ==

<code id="4e77b5f4d308d">
(define fak
  (lambda (n)
    (do ((i 1 (+ i 1))
         (prod 1 (* prod i)))
      ((> i n) prod))))
</code>

<run id="4e77b5f4d315d">
(fak 10)
</run>