方案R6RS中的选择器

Question

我在读一本旧书

简单方案:介绍计算机科学

你可以找到它，这里。

在第五节中，介绍了“选择器”，操作符如下：

(first 'abcd) ;-> A
(butfirst 'abcd) ;-> BCD

以此类推。

在R6RS中是否存在类似的东西？(因为未定义此运算符)。

Answer 1

根据我的意见，这可能是相当困难的。

另一个方面是，简单地说，Scheme将符号视为“字符串”。

有了这些信息，您可以编写以下内容：

(define (first s)
  (string->symbol (string (car (string->list (symbol->string s))))))

(define (butfirst s)
  (string->symbol (apply string (cdr (string->list (symbol->string s))))))

还请注意，在R6RS中符号是区分大小写的，因此结果将是传递给过程的相同的大小写。