Дерева (графи), Детальна інформація

 

$ (DELETE 3 '(1 2 3 4 3 2 1))

(1 2 4 2 1)

6. NREVERSE . Обертає елементи списку, зчеплених з об'єктом.

 

$ (NREVERSE '(a b c d)) $ (NREVERSE '(1 2 3 (1 2 3) 4 5 6) '(1 2 3))

(d c b a) (6 5 4 (1 2 3) 3 2 1 1 2 3)

7. NBUTLAST . Якщо n - нуль або додатне цiле, то функцiя NBUTLAST повертає список без n останнiх елементiв (вiдбувається замiна n-го конса, взятого з кiнця списку на NIL). Якщо другий аргумент не вказано, то за замовченням n=1.

 

$ (NBUTLAST '(a b c d e)) $ (NBUTLAST '(a b c d e) 3)

(a b c d) (a b)

8. NCONC ... . Повертається список, який складається з елементiв спискiв - аргументiв у вказаному порядку. Вiдбувається модифiкацiя останнiх CDR-елементiв спискiв. Якщо виконати команду (NCONC list list), де list - будь-який список, то результатом буде циркулянтний список, процес побудови якого буде нескiнченним.

 

$ (NCONC '(1 2) '(3 4) '(5 6 7))

(1 2 3 4 5 6 7)

9. SPLIT . Розбиває список на два списки посерединi. Значенням списку стає його перша половина. Функцiя SPLIT повертає другу половину списку.

 

$ (SETQ a '(1 2 3 4 5 6)) $ a

$ (SPLIT a) (1 2 3)

(4 5 6)

10. SORT . Сортуються елементи списку на основi тесту.

 

$ (SORT '(2 5 3 4 1 6 8 9 7) >)

(9 8 7 6 5 4 3 2 1)

Завдання 1. Знайти кiлькiсть листiв в заданому деревi.

2. Знайти середнє арифметичне чисел, якi знаходяться у вершинах дерева.

3. Написати функцiю швидкого сортування QSORT.

Робота з файлами

По замовченню за пристрiй потокового вводу (CIS - Current Input Stream) береться консоль.

1. Для читання даних з вхiдного потоку використовують функцiю READ. Пiсля виконання команди (SETQ a (READ)) ви повиннi ввести з консолi вираз, який буде прочитано та присвоєно змiннiй а. При цьому якщо буде введено декiлька об'єктiв, то змiннiй а буде присвоєно перший об'єкт. Наприклад, якщо ви введете: as bf gh, то змiнна a прийме значення as. Якщо Ви хочете ввести список (складний об'єкт), то його необхiдно вводити в круглих дужках: (as df gh).