[-=TurboRufus=-]

Я, конечно, не надеюсь, но все же... Есть ли здесь знатоки LISP'а?
Не могу написать функцию, чтобы та работала правильно =(

(defun inquiry (list month material out_list)
  ((null list) (return out_list)) 
  (if (eql month (second (get (car list) 'cur_date)))
    (if (eql material (get (car list) 'material_name))
      (nconc out_list (get (car list) 'client_name))
    )
  )
  (inquiry (cdr list) month material out_list)
)

Функция должна проходить по списку, сравнивать атрибуты элементов (месяц и материал) и формировать выходной список. Вот с последним-то у меня и проблемы... Посмотрите, а?

Comments

В каком виде входной список? Если я правильно понимаю то это нечто типа ((месяц материал) (месяц материал) (месяц материал) ...)?

И выходной? туда записываются елементы из первого списка, которые соответствуют атрибутам. так?

Если да, то там должно работать что-то типа

(defun inquiry (list month material out_list)
  ((null list) (return out_list)) 
  (if (eql month second (car list))
    (if (eql material car(car list))
      (nconc out_list (car list))
    )
  )
  (inquiry (cdr list) month material out_list)
)

[-=TurboRufus=-]

Letantaniel
нет, выходной формируется из имен. В общем, человек купил гарнитур мебели из какого-то материала в таком-то мсяце. Нужно было сформировать список имен купивших в гарнитуры в заданный месяц из заданного материала.
В итоге я избавилась от накапливающего параметра out_list. Получилась такая рекурсивная функция, которая и возвращает нужных список.

(defun inquiry (list month material)
  ((null list) (return nil)) 
  ((and (eql month (second (get (car list) 'cur_date))) (eql material (get (car list) 'material_name)))
      (cons (get (car list) 'client_name) (inquiry (cdr list) month material))
    )
  (inquiry (cdr list) month material)
)

Спасибо за то, что откликнулись