Программа на common lisp

Формулировка задачи:

Программа на common lisp Прочитать беззнаковое целое число из стандартного потока ввода и в каждом байте числа обнулить нулевой и седьмой биты и сделать единичными третий и четвертый биты. Результат вывести в стандартный поток вывода.

Получиться должно примерно вот так: 65535 (11111111 11111111) 32382 (01111110 01111110)

Решение задачи: «Программа на common lisp»

Листинг программы

(defun fn (word)
  (check-type word (unsigned-byte 16))
  (logior #b0001100000011000 (logand #b0111111001111110 word)))
 
(defun main ()
  (let ((word (the (unsigned-byte 16) (read))))
    (format t "~&~A (~:*~B)~%~A (~:*~B)~%"
            word
            (fn word))))

Объяснение кода листинга программы

Определяет функцию fn, которая принимает один аргумент word.
Проверяет тип аргумента word с помощью check-type.
Использует logior для побитового ИЛИ аргумента word с фиксированным значением #b0001100000011000.
Использует logand для побитового И первого аргумента word.
Определяет функцию main, которая не принимает аргументов.
Использует let для создания переменной word, которая содержит 16-битное беззнаковое число, считанное с помощью read.
Выводит значение переменной word с помощью format.
Вызывает функцию fn с аргументом word.
Выводит результат вызова функции fn с помощью format.