LISP — вход и выход

(with-input-from-string (stream "Welcome to Tutorials Point!")
   (print (read-char stream))
   (print (read-char stream))
   (print (read-char stream))
   (print (read-char stream))
   (print (read-char stream))
   (print (read-char stream))
   (print (read-char stream))
   (print (read-char stream))
   (print (read-char stream))
   (print (read-char stream))
   (print (peek-char nil stream nil 'the-end))
   (values)
)

Когда вы выполняете код, он возвращает следующий результат —

#\W 
#\e 
#\l 
#\c 
#\o 
#\m 
#\e 
#\Space 
#\t 
#\o 
#\Space 

Функции вывода

Все функции вывода в LISP принимают необязательный аргумент, называемый output-stream, куда отправляется вывод. Если не указано или равно nil, по умолчанию для output-stream используется значение переменной * standard-output *.

В следующей таблице приведены наиболее часто используемые выходные функции LISP.

запись объекта и ключа: поток: escape: основание: круг: довольно: уровень: длина: регистр: gensym: массив

запись объекта и ключа: поток: escape: основание: основание: круг: довольно: уровень: длина: регистр: gensym: массив: читабельно: правое поле: ширина склейки: строки: pprint-dispatch

Оба записывают объект в выходной поток, заданный параметром: stream, значение по умолчанию которого равно * standard-output *. Другие значения по умолчанию соответствуют глобальным переменным, установленным для печати.

объект prin1 и дополнительный поток вывода

объект печати и дополнительный поток вывода

объект pprint и дополнительный поток вывода

объект princ и необязательный выходной поток

Все эти функции выводят печатное представление объекта в output-stream . Тем не менее, существуют следующие различия:

prin1 возвращает объект как его значение.

print печатает объект с предыдущей новой строкой, за которой следует пробел. Возвращает объект.

pprint похож на print, за исключением того, что завершающий пробел пропущен.

princ похож на prin1 за исключением того, что в выводе нет экранирующего символа

Объект записи в строку и ключ : escape: основание: основание: окружность: довольно: уровень: длина: регистр: gensym: массив

Объект записи в строку и ключ: escape: основание: основание: окружность: довольно: уровень: длина: регистр: gensym: массив: читабельно: правое поле: ширина скриншота: линии: pprint-dispatch

объект prin1-to-string

объект типа « строка-строка»

Объект эффективно печатается, а выходные символы превращаются в строку, которая возвращается.

символ записи и дополнительный поток вывода

Он выводит символ в output-stream и возвращает символ.

строка записи и необязательный выходной поток и ключ: начало: конец

Он записывает символы указанной подстроки строки в поток вывода.

строка записи и необязательный выходной поток и ключ: начало: конец

Он работает так же, как write-string, но впоследствии выводит новую строку.

terpri & необязательный выходной поток

Он выводит новую строку в output-stream.

свежая линия и дополнительный выходной поток

он выводит новую строку, только если поток еще не находится в начале строки.

окончательный вывод и дополнительный выходной поток

принудительный вывод и дополнительный выходной поток

чистый вывод и дополнительный выходной поток

Функция finish-output пытается убедиться, что весь вывод, отправленный в output-stream, достиг своего места назначения, и только после этого возвращает nil.

Функция force-output инициирует очистку любых внутренних буферов, но возвращает nil, не ожидая завершения или подтверждения.

Функция clear-output пытается прервать любую незавершенную операцию вывода, чтобы как можно меньше выходных данных продолжалось до места назначения.

запись байтового целого двоичного потока вывода

Записывает один байт, значение целого числа.

пример

Создайте новый файл исходного кода с именем main.lisp и введите в него следующий код.

; this program inputs a numbers and doubles it
(defun DoubleNumber()
   (terpri)
   (princ "Enter Number : ")
   (setq n1 (read))
   (setq doubled (* 2.0 n1))
   (princ "The Number: ")
   (write n1)
   (terpri)
   (princ "The Number Doubled: ")
   (write doubled)
)
(DoubleNumber)

Когда вы выполняете код, он возвращает следующий результат —

Enter Number : 3456.78 (STDIN Input)
The Number: 3456.78
The Number Doubled: 6913.56

Форматированный вывод

Формат функции используется для создания красиво отформатированного текста. Он имеет следующий синтаксис —

format destination control-string &rest arguments

где,

• назначение — стандартный вывод
• control-string содержит символы для вывода и директиву печати.

Директива формата состоит из тильды (~), необязательных параметров префикса, разделенных запятыми, необязательных модификаторов двоеточия (:) и at-sign (@) и одного символа, указывающего, что это за директива.

Параметры префикса обычно представляют собой целые числа, обозначаемые как необязательные десятичные числа со знаком.

В следующей таблице приведено краткое описание часто используемых директив —

~ A

За ним следуют аргументы ASCII.

~ S

Сопровождается S-выражениями.

~ D

Для десятичных аргументов.

~ B

Для двоичных аргументов.

~ O

Для восьмеричных аргументов.

~ X

Для шестнадцатеричных аргументов.

~ C

Для аргументов персонажа.

~ F

Для аргументов с плавающей точкой фиксированного формата.

~ E

Экспоненциальные аргументы с плавающей точкой.

~ $

Доллар и аргументы с плавающей запятой.

~%

Новая строка печатается.

~ *

Следующий аргумент игнорируется.

~?

Косвенность. Следующий аргумент должен быть строкой, а следующий после нее — списком.

пример

Перепишем программу расчета площади круга —

Создайте новый файл исходного кода с именем main.lisp и введите в него следующий код.

(defun AreaOfCircle()
   (terpri)
   (princ "Enter Radius: ")
   (setq radius (read))
   (setq area (* 3.1416 radius radius))
   (format t "Radius: = ~F~% Area = ~F" radius area)
)
(AreaOfCircle)

Когда вы выполняете код, он возвращает следующий результат —