输入与输出

输入与输出

Common Lisp提供了大量的输入输出功能。我们已经使用的格式功能，打印输出功能。在本节中，我们将探讨一些在LISP提供了最常用的输入输出功能。

输入函数

下表提供了LISP的最常用的输入功能：

读取键盘的输入

read 函数用于从键盘输入。也可以不带任何参数。

例如，考虑代码片段：

(write (  +  15.0  (read)))

假设用户输入10.2 来自stdin 输入，它返回，

25.2

read 函数从输入流中读取字符，并通过解析为Lisp对象的表示解释它们。

示例

创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

; the function AreaOfCircle
; calculates area of a circle
; when the radius is input from keyboard

(defun AreaOfCircle()
(terpri)
(princ "Enter Radius: ")
(setq radius (read))
(setq area (* 3.1416 radius radius))
(princ "Area: ")
(write area))
(AreaOfCircle)

当执行代码，它返回以下结果：

Enter  Radius:  5  (STDIN Input) 
Area:  78.53999

示例

创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(with-input-from-string (stream "Welcome to Tutorials Yiibai!")
    (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 
#     
#o 
#Space

输出功能

在LISP所有的输出函数都有一个称为输出流可选参数，其输出传送。如果没有提及或nil，输出流默认为变量*标准输出*的值。

下表提供了LISP的最常用的输出函数：

示例

创建一个名为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函数是用于生产很好的格式化文本。它的语法如下：

format destination control\-string  &rest arguments

那么，

• destination 是一个标准输出

• control-string 持有的字符要被输出和打印指令。

format directive 由符号（〜）的，用逗号，可选的冒号（:)和符号（@）修饰符和一个字符指明了哪些指令是分开的可选前缀参数。

前缀参数一般都是整数，记载为可选符号十进制数。

下表提供了常用的指令的简要说明：

示例

让我们重写程序计算圆的面积

创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(adsbygoogle = window.adsbygoogle || \[\]).push({});

(adsbygoogle = window.adsbygoogle || \[\]).push({});

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

当执行代码，它返回以下结果：

Enter  Radius:  10.234  (STDIN Input)  
Radius:  \=  10.234  
Area  \=  329.03473