Scheme einstaklings 1

;; dæmi 1
(define (sum x)
  (if (null? x)
      0 ;; tómi listinn skilar 0
      (if (null? (cdr x))
          (car x) ;; skilum heildarsummunni
          ;; setjum fyrstu tvö gildin í eitt
          (sum (cons (+ (car x) (car (cdr x))) (cdr (cdr x)))))))

;; dæmi 2
(define (squaresum x)
  ;;leggjum saman fyrstu tvö gildi listans í öðru veldi
  (define (veldiplus x)
    (+ (car x) (* (car (cdr x)) (car (cdr x)))))
  (define (halarec x) ;; halaendurkvæmni
    (if (null? (cdr x))
        (car x)
        (halarec (cons (veldiplus x) (cdr (cdr x))))
        )
    )
  ;; bætum 0 fremst við listann (til að fá alvöru fyrsta stakið í öðru veldi), fáum einnig vitrænt gildi fyrir tómann lista (0):
  (halarec (cons 0 x)))

;; dæmi 3
(define (incall y)
  ;; leggjum stakið y við öll stök listans x
  (define (listiplus x y)
    (if (null? x)
        '()
        (cons (+ (car x) y) (listiplus (cdr x) y))))
  ;; skilum lambdafalli með viðfanginu x sem kallar á listiplus
  (lambda (x) (listiplus x y)))