Напишите функцию, имеющую два аргумента: числовой список и целое число N

@Dmitriykul · Регистрация: 29.10.2017

Здравствуйте, имеется задание:

напишите рекурсивную функцию, имеющую два аргумента: числовой
список и целое число N. Функция должна возвращать список, в
котором элементы, стоящие на четных позициях, увеличены в
N раз. Внимание! Циклы, функционалы и функцию присвоения не
использовать!

Вот что я написал и возникла проблема, каким образом я могу передавать
в вызов следующей функции список, в котором индексы сохраняются от предыдущего списка?
То есть первый элемент с индексом 0 - чётный, далее идёт вход в рекурсию со списком на элемент меньше,
но внутри нового вызова это воспринимается как новый список и первый элемент становится снова чётным,
хотя он должен иметь индекс 1 и быть не чётным, и уйти в другую ветку.

Можно сказать, что сейчас программа просто каждое число в списке умножает на N, не зависимо от позиции этого элемента в списке.
Всё время уходит в ветку с умножением на N.

Подскажите, пожалуйста, каким образом можно исправить.

Lisp

(defun mul_N (x N)
  (cond ((null x) nil)
        ((zerop (rem (position (car x) x) 2)) (cons (* (car x) N) (mul_N (cdr x) N)))
        (T (cons (car x) (mul_N (cdr x) N)))
  )
)

@Catstail · 09.01.2021, 10:33

Lisp

(defun task (list n &optional (p 0))
  (cond ((null list) nil)
        ((evenp p) (cons (* n (car list)) (task (cdr list) n (+ p 1))))
        (t (cons (car list) (task (cdr list) n (+ p 1))))))
 
(task '(1 2 3 4 5 6) 7)
 
==> (7 2 21 4 35 6)

@Dmitriykul · 09.01.2021, 12:09 **[ТС]**

Catstail, Спасибо большое

@Dmitriykul 0 / 0 / 0 Регистрация: 29.10.2017 Сообщений: 26
	09.01.2021, 12:09 [ТС]	3
	Catstail, Спасибо большое 0

Опции темы

Напишите функцию, имеющую два аргумента: числовой список и целое число N

Решение