#lang racket


(define a 3) ; numele a este legat la valoarea 3

(define sum2 (lambda       (a b)    (+ a b)))
;       nume  constr fn   L args   valoarea întoarsă

(define (sum3 a b c) (+ a b c))



(define (sumList L)
  (if (null? L)
      0
      (+ ; adun
       (car L) ; primul element
       (sumList (cdr L)) ; suma restului elementelor
       )
      ))

; exemplu:
; (sumList '(1 2 3 4 5))

(define (nth L n)
  (if (zero? n)
      (car L)
      (nth ; apel recursiv
       (cdr L) ; restul listei
       (- n 1) ; scad indexul. Puteam și (sub1 n)
       )
      ))

; exemplu:
; (nth '(1 2 3 4 5) 3)