Создать функцию УНИВЕРСАЛЬНЫЙ РЕШАТЕЛЬ КВАДРАТНОГО УРАВНЕНИЯ (sqrpol args). Аргумент args является списком из 3-х чисел (a b c). Ответ возвращается в зависимости от результата в виде списка: (X1 X2) или (X) или Nil, если нет решения.
Язык программирования: lisp.

Доступно только для пользователей

лаба2

Дан произвольный список. Выделить элементы-числа только на первом уровне и занести их в другой список, остальные элементы - не числа и подсписки, - выделить в другой список. В отдельной функции вычислить по полученному списку чисел минимальное, максимальное и среднее арифметическое.
Язык программирования: lisp.

Доступно только для пользователей

лаба3

Определить рекурсивную функцию для удаления последнего элемента списка.
Язык программирования: lisp.

Доступно только для пользователей

лаба4

Определить функцию для вычисления глубины бинарного дерева (глубина пустого дерева равна 0, одноузлового — 1).
Язык программирования: lisp.

Доступно только для пользователей

лаба5

Написать программу, реализующую калькулятор на четыре арифметических действия (без скобок) на языке Prolog.

Доступно только для пользователей

лаба6

Подсчитать, сколько раз встречается некоторое слово в строке. Строка и слово должны вводиться с клавиатуры. Для разделения строки на слова использовать стандартный предикат fronttoken (string, lexeme, stringrest), позволяющий разделить строку string на первое слово и остаток.
Язык программирования: prolog.

Доступно только для пользователей