Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15



(define n0)

(define (subdel spis_nums ill)

(display " СИМПТОМ: " delsw)

(set! sym (read-line delsw))

(if (equal? sym "end") t

(begin (set! n0 (sub sym *symptom* spis_nums))

(set! *symptom* (delete! (list n0 sym) *symptom*))

(set! *it_is* (delete! (list ill spis_nums) *it_is*))

(set! *it_is* (append *it_is* (list (list ill

(del n0 spis_nums))) ))

(subdel (del n0 spis_nums) ill)) ))

(define (del x l)

(cond ((null? l) nil)

((equal? x (car l)) (cdr l))

(t (cons (car l) (del x (cdr l)))) ))

Скачали данный реферат: Исакий, Timofeev, Platonida, Filonilla, Mehant'ev, Калуф, Лилиана.
Последние просмотренные рефераты на тему: ремонт реферат, рефераты, реферат на тему техника, реферат по литературе.

Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15

Поделитесь этой записью или добавьте в закладки