;n(n+1)/2
(define tema10
	(lambda (n)
		(if (<= n 0) ()
			(append (tema10 (- n 1)) (list (/(* n(+ n 1)) 2) ))
		)
	)
)

(define l (tema10 20))

(define primeleZece
	(lambda (l)
		(reverse (list-tail (reverse l) 10))
	)
)

(define 2in2
	(lambda (l x)
		(cond ((< x 17) (cons (list-ref l x) (2in2 l (+ x 2))))
		(else (cons (list-ref l x) ()))
		)
	)
)

(define tema11
	(lambda(l)
		(print "Primele zece numere sunt: " (primeleZece l))
		(print "Lista din doi in doi: " (2in2 l 0))
	)
)



@



(define lista1 '(2 6 12 20 30 42 56 72 90 110 132 156 182 210 240 272 306 342 380 420))
(define lista2 '(1 4 9 16 25 36 49 64 81 100 121 144 169 196 225 256 289 324 361 400))

(define minim
  (lambda (lst)
    (if (null? lst)0
          (apply min lst)))
  )

  (define functia
  (lambda()
    (define x (minim lista1))
    (define y (minim lista2))
    (print "Cel mai mic element din lista1 este: " x)
    (print "Cel mai mic element din lista2 este: " y)
    (print "Suma celor doua numere este: " (+ x y))

  )
)