legkostBitiya

(define // quotient)
(define % remainder)

(define (first1 s)
  (map cons s (build-list (length s) +)))

(define (first2 s)
  (filter (lambda (x) (zero? (% (car x) (cdr x)))) (cdr (first1 s))))

(define (second s)
  (foldl (lambda (x sum) (if (and (> x 99) (< x 1000)) (+ x sum) (+ sum))) 0 s))

(define (third s a)
  (foldl (lambda (x y res) (eval (list y res x))) (car s) (cdr s) a))

(define (fourth s)
  (foldl (lambda (x res) (cons (take-right s x) res)) null (cdr (build-list (length (cons 1 s)) +))))

(define (five x s)
  ((if (eq? (eval (cadr s)) +) + -) (foldl (lambda (y x) ((eval (cadr s)) x (car(cddr s)))) x (build-list (- 30 (car s)) +)) (car(cddr s))))