sos LISP

Оказа се, че ми трябват решенията на още 4 задачи. Ясно ми е че ставам нахален, но трябва да оттърва кожата.
Програма която намира сечението на два списъка.

Програма която преброява колко пъти се среща х в списък L

Програма която намира сумата от четните числа в [a,b]

Програма ,която пресмята стойността на полинома 1+х+х^2+....+x^n

Не знам защо, но ми е забавно да провалям учебната програма в Шумен.
4-те решения:

(define (intersection ls1 ls2)

  (filter (lambda (x)

            (member x ls2))

          ls1))



(define (count-x x L)

  (if (equal? L ())

      0

      (+ (count-x x (cdr L)) 

         (if (equal? x (car L))

             1 

             0))))



(define (sum-2 a b)

  (if (> a b)

      0

      (if (= (remainder a 2) 0)

          (+ a (sum-2 (+ a 1) b))

          (sum-2 (+ a 1) b))))



(define (polinom x n)

  (if (= n 0)

      1

      (+ (expt x n) (polinom x (- n 1)))))

Използвания Lisp диалект в решенията е Scheme.

Обръщам внимание че е правилно Lisp а не LISP.

Браво на тебе"eфp. Лyk",ти си велик! Тоя форум е супер!!!!!!!!

що реши, че тия в Шумен така усърдно изучават лисп? :)