test.jur

"Примитивы"
(* 1 2 3 4 5)
(/ 8 2 4)
(+ "превед " "медвед")
(> 3 2 1)


"Вычисление по условию"
(Функция Максимум (А Б)
    (Если (> А Б)
			(А)
			(Б)))
(Максимум 3 10)


"Рекурсивное вычисление"
(Функция Факториал! (Икс)
   (Если (= Икс 0)
       (1)
       (* (Факториал! (- Икс 1)) Икс)))
(Факториал! 20)


"Функция с одним параметром"
(Функция Инкремент Параметр (+ Параметр 1))
(Инкремент 2)


"Функция с двумя параметрами"
(Функция Сумма (Параметр1 Параметр2) (+ Параметр1 Параметр2))
(Сумма 2 2)


"Функция с двумя параметрами и промежуточным выражением"
(Функция Сумма (Параметр1 Параметр2)
	(Сообщить "Параметры функции:" Параметр1 Параметр2)
	(+ Параметр1 Параметр2))
(Сумма 2 2)


"Функция с вложенной функцией"
(Функция Сумма-квадратов (Параметр1 Параметр2)
	(Функция Квадрат Параметр1 (* Параметр1 Параметр1))
	(+ (Квадрат Параметр1) (Квадрат Параметр2)))
(Сумма-квадратов 2 3)


"Переменные и лямбды"
(Функция Тест П
	(Пусть К (Лямбда Ё (* Ё Ё)))
	(К П))
(Тест 2)


"Непосредственное применение лямбды"
(Функция Тест П
	((Лямбда Ё (* Ё Ё)) П))
(Тест 3)


"Функция высшего порядка"
(Функция Сумма (X Y) (+ X Y))
(Функция Произведение (X Y) (* X Y))
(Функция ФВП (ФПК X Y)
	(ФПК X Y))
(ФВП Сумма 2 3)
(ФВП Произведение 2 3)


"Логические функции"
(Пусть Икс 2)
(И (>= Икс 2) (< Икс 3))
(Или (= Икс 2) (= Икс 1))
(Не (= Икс 2))


"Функция выбора из нескольких условий"
(Пусть Икс 2)
(Пусть Иначе Истина)
(Выбор
	(= Икс 1) "Икс равен 1"
	(= Икс 2) "Икс равен 2"
	(= Икс 3) "Икс равен 3"
	Иначе "Непонятно")


"Работа со списками"
(Функция Печать Набор	
	(Если (Пустой Набор)
		""
		(+ "" (Морда Набор) " " (Печать (Хвост Набор)))))

(Сообщить (Печать (Список 1 2 3 4)))