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

)

( (/= (lengthl) 2)

(progn

; разбиваем команды на 2 группы

( setq group1 (copy_half_list l))

(print 'gruppa1 output)

(print group1 output)

(setq group2 (copy_last_half_list l))

(print 'gruppa2 output)

(print group2 output)

; формируем встречи комманд

( setq commands (mapcar 'list group1 group2))

(print 'igroki output)

(print commands output)

; выбираем победителя

( setq l (mapcar 'get_winner commands))

(print 'pobediteli output)

(print l output)

(print '______________________________________________ output)

; рекурсивно вызываем функцию play_ off с новым

; списком комманд участников

( play_offloutput)

)

)

)

)

; открываем файл и получаем команды

( setqinput_stream (open "d: \\ commands. txt": direction: input))

; вид системы