Ангел Тодоров-иитб-096802



Дата14.01.2018
Размер5.5 Kb.
Ангел Тодоров-ИИТБ-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))))


База данных защищена авторским правом ©obuch.info 2016
отнасят до администрацията

    Начална страница