Произведение первых двух атомов подсписка

@humanoidsick · Регистрация: 28.11.2013

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

Помогите пожалуйста! Сижу на зачёте - горю! Нужна программа, которая находит произведение первых двух атомов подсписка

@Catstail · 23.03.2016, 12:40

Не проверял:

Lisp

(defun task (lst &optional (r 1) (c 0))
  (cond ((null lst) 1)
          ((atom (car lst)) (if (= c 1) (* r (car lst)) (task (cdr lst) (car lst) 1)))
          (t (task (cdr lst) r c))))

@humanoidsick 0 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 5
		1
	Произведение первых двух атомов подсписка 23.03.2016, 10:31. Показов 442. Ответов 1 Метки нет (Все метки) Помогите пожалуйста! Сижу на зачёте - горю! Нужна программа, которая находит произведение первых двух атомов подсписка 0

	23.03.2016, 12:40