BuK/IIm10/BuK-Kreativaufgabe10 G2

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
<code id="4e0073febe720" hidden>
(define add1
  (λ (n)
    (+ n 1)))

(define sub1
  (λ (n)
    (- n 1)))

(define P
  (λ (n)
    (if (= n 0)
        0
        (sub1 n))))
</code>

== Basisfunktionen ==

<code id="4e0073febe788">
(define S
  (λ (n)
    (add1 n)))

(define C0
  (λ n 0))

(define U
  (λ (i . n)
    (letrec
        ([helper
          (λ (counter args)
            (if (= counter i)
                (car args)
                (helper (+ counter 1) (cdr args))))])
      (helper 1 n))))
</code>