Определить функцию MAKE-EVEN - Lisp
Формулировка задачи:
Определить функцию MAKE-EVEN, которая имеет один аргумент - список числовых значений. Функция MAKE-EVEN превращает четные числа списка в нечетные, добавляя к ним единицу. Если число уже нечетное, то оно остается без изменений.
Решение задачи: «Определить функцию MAKE-EVEN»
textual
Листинг программы
- ((lambda (x f)
- (cond ((null x) nil)
- ((evenp (car x)) (cons (+ 1 (car x)) (funcall f (cdr x) f)))
- (t (cons (car x) (funcall f (cdr x) f)))))
- '(1 2 3 4 5 6 7 8 9 10)
- (lambda (x f)
- (cond ((null x) nil)
- ((evenp (car x)) (cons (+ 1 (car x)) (funcall f (cdr x) f)))
- (t (cons (car x) (funcall f (cdr x) f))))))
- ==> (1 3 3 5 5 7 7 9 9 11)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
