#lang racket

; Зад. 1 Дефинирайте следните функции:
; a). (my-identity x), функцията идентитет: връща каквото и дадете.
; б). (my-compose f g), която връща композицията на функциите f и g.
; в). (my-negate p?), която приема предикат p? и връща предиката (not p?).
; г). (my-curry f x), която приема двуаргумента функция f и първи аргумент x
;      и връща функцията получена от частичното прилагане на x върху f.
; д). (repeatf f n), която връща n-кратната композиция на функцията f.

; Зад. 2 Да се дефинира функцията (sum-of-odd-squares xs),
; която връща сбора на квадратите на нечетните числа
; в списъка xs.
; (sum-of-odd-squares (list 3 5 8)) == 74
; (sum-of-odd-squares (list 2 4 6)) == 0

; Зад. 3 Да се дефинира функция (insert-sorted x xs),
; която вмъква число x в сортиран в нарастващ ред списък xs.
; (insert-sorted 5 '()) == '(5)
; (insert-sorted 5 '(4 6)) == '(4 5 6)

; Зад. 4 Използвайки insert-sorted и foldl, да се дефинира
; функция my-sort, която сортира списък.
; (my-sort '(3 5 0 1)) == '(0 1 3 5)

; Зад. 5 Да се дефинира функция (dedup xs),
; която премахва повтарящите се елементи от xs.
; (dedup '(1 1 2 2 2 3)) == '(1 2 3)