(display " Please enter the code : \n")
(define code (read))
(cond
((or(string=? code "k")(string=? code "K"))(display "Kid"))
((or(string=? code "s")(string=? code "S"))(display "Senior"))
( else (display "Adult")))
运行时显示:string = ?:期望类型为第一个参数,给定:k;其他参数是:“ k”
read
是默认阅读器。它解析输入,就好像它是code。如果输入"hello"
,则得到一个字符串,但是如果输入hello
,则得到一个符号。如果输入(1 2 3)
,则会显示一个包含3个数字的列表。 read
是Scheme用来读取您的源代码的方式。
如果您想将输入的一行读取为字符串,则无论使用什么内容,都需要使用read-line
来接受一行代码并将其返回为字符串。
可以使用string-ci=?
来代替大写和小写。例如。
(string-ci=? "TEST" "test") ; ==> #t