Работа с очередями

Подскажите как сделать:
1. Определить функции, реализующие работу с очередями. Вы должны реализовать следующие функции:
1) make-queue() – строит очередь, не содержащую ни одного элемента;
2) endqueue(item q) – добавляет элемент item в конец очереди q;
3) decqueue(q) – удаляет первый элемент из очереди q;
(для реализации удаления можно воспользоваться встроенной функцией pop – взять элемент из стека)
Например,
>(setf L '(1 2 3))
(1 2 3)
>(pop L)
1
>L
(2 3)
4) queue-contents(q) – возвращает содержимое очереди q;
5) front(q) – возвращает первый элемент очереди q.
Определенной Вами очереди должна соответствовать следующая диаграмма списочных ячеек: на этой диаграмме car является последним элементом очереди, а cdr является содержимым очереди, представленным в виде списка.
Примеры:
>(setf queue (make-queue)) ;создали очередь queue
#l=(#l#)
>(endqueue 'a queue) ;добавили элемент 'a в очередь
(#l=(A) . #l#)
>(endqueue 'b queue) ;добавили элемент 'b в очередь
(#l=(B) A . #l#)
>(front queue) ;отобразили первый элемент очереди
A
>(decqueue queue) ;удалили первый элемент
(#l=(A) . #l#)
>(queue-contents queue)
(B) ;отобразили содержимое очереди queue
Нарисовать диаграммы списочных ячеек, соответствующих списочным структурам, получаемым после выполнения каждого из приведенных в примерах выражений.
Определите функциональный предикат each1(p l), который истинен в том и только том случае, когда, являющийся функциональным аргументом предикат p истинен для всех элементов списка l.
Примеры:
>(each1 'atom '(a b c))
T
>(each1 'numberp '(1 2 a 3))
NIL
2. Определите функцию (count-if p l), подсчитывающую количество элементов списка l, которые обладают свойством, наличие которого проверяется предикатом p.
Примеры:
>(count-if 'numberp '(1 2 a 3 b c))
3
3. Напишите программу генератора чисел Фибоначчи (1, 1, 2, 3, 5, ...).

Добавлено через 41 секунду
тут 3 задачи я хз как делать, помогите((

0

Вот генератор чисел Фибоначчи:

2

а другие 2 не знаешь как сделать?

0

Вторая:
Первую лень читать.

1

Спасибо. Блин, первое тоже нужно(((

0