BuK-Kreativaufgabe10 G2

Aus ProgrammingWiki

Archivierte Version vom 2011-06-21T10:35:42+00:00. Aktuelle Version

Basisfunktionen

(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))))

Suche