Замена значений элементов с нечетными номерами на значение минимального положительного элемента (Allegro Lisp)

@xxxLeonxxx · Регистрация: 15.03.2013

Author24 — интернет-сервис помощи студентам

Помогите сделать 1 программку максимально просто для allegro lisp
-замена значений элементов с нечетными номерами на значение минимального положительного элемента

Заранее благодарен

@Catstail · 08.05.2013, 20:07

Или так:

Lisp

(defun task-2 (lst &optional (mi (apply 'min (remove-if #'(lambda (x) (<= x 0)) lst))) (c 0))
 (cond ((null lst) nil)
       ((evenp c) (cons mi (task-2 (cdr lst) mi (1+ c))))
       (t (cons (car lst) (task-2 (cdr lst) mi (1+ c))))))
 
==> task-2
 
(task-2 '(1 2 3 1 2 3 4 5 6 -1 -4 -7))
 
==> (1 2 1 1 1 3 1 5 1 -1 1 -7)

@_sg · 08.05.2013, 20:21

Lisp

(defun eventh-min (w)
  (ev w (apply #'min (remove-if-not #'plusp w))))
 
(defun ev (w m)
  (if (cdr w) (cons (car w) (cons m (ev (cddr w) m))) w))
 
> (eventh-min '(0 1 2 3 4 5 6 7 8))
(0 1 2 1 4 1 6 1 8)
> (eventh-min '(0 1 2 3 4 5 6 7))
(0 1 2 1 4 1 6 1)

Добавлено через 4 минуты

Lisp

(defun eventh-min (w &optional (m (apply #'min (remove-if-not #'plusp w))))
  (if (cdr w) (cons (car w) (cons m (eventh-min (cddr w) m))) w))
 
> (eventh-min '(0 1 2 3 4 5 6 7 8))
(0 1 2 1 4 1 6 1 8)

@xxxLeonxxx 0 / 0 / 0 Регистрация: 15.03.2013 Сообщений: 23
		1
	Замена значений элементов с нечетными номерами на значение минимального положительного элемента (Allegro Lisp) 08.05.2013, 19:43. Показов 1043. Ответов 2 Метки нет (Все метки) Помогите сделать 1 программку максимально просто для allegro lisp -замена значений элементов с нечетными номерами на значение минимального положительного элемента Заранее благодарен 0

	08.05.2013, 20:21