在球拍中配管

Question

是否可以在球拍的配管中输出一个功能。例如，可以重写下列代码：

(define (safestr sentstr) 
    (list->string 
    (remove* 
    (list #\| #\; #\: #\/ #\\ #\' #\") 
    (string->list sentstr)))) 

(define (safestr sentstr) 
    sentstr | 
    (string->list .) | 
    (remove* (list #\: #\;) .) | 
    (list->string .)) 

其中“。”表示前面的语句的输出。

这也显示了正常的流向和进度方向，而不是反向流动。

作为语言来创建语言的球拍应该能够做到这一点。我在这里检查了https://docs.racket-lang.org/reference/pipeports.html，但找不到如何操作。

感谢您的意见/答复。

Answer 1

是的，实际上，虽然语法与您列出的语法有很大不同。 threading包实现了这种类型的东西，借用了Clojure的线程宏。使用threading，你的函数应该是这样的：

(require threading) 

(define (safestr sentstr) 
    (~>> sentstr 
     string->list 
     (remove* (list #\| #\; #\: #\/ #\\ #\' #\")) 
     list->string)) 

看看为~>>文档的详细信息。

你也可以使用λ~>>，从而无需完全命名参数：

(require threading) 

(define safestr 
    (λ~>> string->list 
     (remove* (list #\| #\; #\: #\/ #\\ #\' #\")) 
     list->string)) 

---

另外还有point-free包，它实现了使用高阶函数，而不是宏类似的功能。当一个lambda速记包像curly-fn配对，结果结束了，而无需使用宏看上去很类似于使用threading版本：

#lang curly-fn racket/base 

(require point-free) 

(define safestr 
    (λ~> string->list 
     #{remove* (list #\| #\; #\: #\/ #\\ #\' #\")} 
     list->string))