Ангел Тодоров-ИИТБ-096802
33. Дадена е информация за нуждите на завод завелосипеди,съдържаща за произведените стоки следната информация-номер на модел-nm;наименование на модела-name;количество произведена продукция- kpro;количество продадена стока от този модел-krod;единична цена-price.
(defun make_velo(nm name1 kpro1 kprod1 price1)
( setf (get nm ‘name)name1)
(setf (get nm ‘kpro)kpro1)
(setf(get nm ‘kprod)kprod1)
(setf(get nm ‘price)price1)
)
(setq l(list
(make_velo ‘01234 ‘proX ’30 ‘4 ‘120.99)
(make_velo ‘01244 ‘proX1 ’50 ‘22 ‘90.99)
(make_velo ‘01235 ‘streetM ’30 ‘11 ‘143.99)
(make_velo ‘01344 ‘mountainR ’30 ‘28 ‘356.99)
(make_velo ‘09234 ‘proX2 ’100 ‘34 ‘201.99)
))
(defun f1(ll)
(cond ((null ll) ‘( ))
((eql (get (car ll) ‘nm) ‘0)
(cons (list (get (car ll)’kpro ‘price)
(list_born(cdr ll))))
(t(f1 (cdr ll))))
Сподели с приятели: |