Курсовая работа: Составление расписания встреч участников соревнований

)

)

(t (append (union lst (car num))

(progn

(setq temp_num (car num))

(setq lst (remove temp_num lst))

(unionlst (cdrnum))

)

)

)

)

)

; функция устанавливает счет матча

( defun set_res (lst)

(list (list (random 7) ': (random 7)) lst)

)

; копируем первую половину списка

( defuncopy_half_list (lst)

(declare (special lst_res))

(setq lst_res nil)

(do

( (i 0))

( (>= i (/ (length lst) 2)) lst_res)

(setq lst_res (insert i lst_res (nth i lst)))

(setqi (+ i 1))

)

)

; копируем вторую половину списка

( defun copy_last_half_list (lst)