File tree Expand file tree Collapse file tree 1 file changed +29
-0
lines changed
Expand file tree Collapse file tree 1 file changed +29
-0
lines changed Original file line number Diff line number Diff line change 1+ # Лабораторная работа 5
2+
3+ 1 . Написать функцию, которая принимает целое число и возвращает первое четное число, не меньшее аргумента.
4+ 2 . Написать функцию, которая принимает число и возвращает число того же знака, но с модулем на 1 больше модуля аргумента.
5+ 3 . Написать функцию, которая принимает два числа и возвращает список из этих чисел, расположенный по возрастанию.
6+ 4 . Написать функцию, которая принимает три числа и возвращает Т только тогда, когда первое число расположенно между вторым и третьим.
7+ 5 . Каков результат вычисления следующих выражений?
8+
9+ * ` (and ’fee ’fie ’foe) `
10+ * ` (or nil ’fie ’foe) `
11+ * ` (and (equal ’abc ’abc) ’yes) `
12+ * ` (or ’fee ’fie ’foe) `
13+ * ` (and nil ’fie ’foe) `
14+ * ` (or (equal ’abc ’abc) ’yes) `
15+
16+ 6 . Написать предикат, который принимает два числа-аргумента и возвращает Т, если первое число не меньше второго.
17+ 7 . Какой из следующих двух вариантов предиката ошибочен и почему?
18+
19+ ``` lisp
20+ (defun pred1 (x)
21+ (and (numberp x) (plusb x))
22+ )
23+
24+ (defun pred2 (x)
25+ (and (plusp x) (numberp x))
26+ )
27+ ```
28+
29+ 8 . Решить задачу 4, используя для ее решения конструкции IF, COND, AND/OR.
You can’t perform that action at this time.
0 commit comments