如何在没有空格的方案中使用连接

jac*_*own 1 scheme concatenation append racket

我在Scheme中连接和空格有问题.命令的结果:

(append '(%procedure:) (list '+) '(%))**     //with spaces
Run Code Online (Sandbox Code Playgroud)

是:

%procedure: + %      //without spaces
Run Code Online (Sandbox Code Playgroud)

如何在列表之间没有空格的情况下生成相同的结果,结果将是:

%procedure:+%
Run Code Online (Sandbox Code Playgroud)

erj*_*ang 9

您正在尝试使用符号,这与Scheme中的字符串不同.如果要控制打印输出,则应使用字符串,这些字符串是字符数组.

> (append '(hello) '(world))
(hello world)
> (string-append "hello " "world")
"hello world"
> (symbol->string 'hello)
"hello"
> (apply string-append (map symbol->string '(a b c d e f g)))
"abcdefg"
Run Code Online (Sandbox Code Playgroud)