ラケットで任意の数の引数でカリングを使用するにはどうすればよいですか？

Question

私はformatのような関数をカルト構文で定義したいとしましょう。どのように私は通過することができる追加の引数を処理するだろうか？例えば、私は次のような何かをできるようにしたいでしょう：

(((format "~a ~a") 5) 9)

Answer 1

うん、それは難しいのです。問題はどのようにformatがすべての引数を持っているかを知っていることです。私はあなたがフォーマットが出力文字列を解析し、必要な引数の数を決定し、適切な数の引数を受け取ったときに起動することを期待していると推測しています。あなたは自分でそれを巻き込むことになるだろう。このようなもの（注：未定のコード）：

#lang racket 

;; given a format-string, return a curried function that 
;; accepts the format-string's arguments one at a time 
(define (curried-format fmt-str) 
    (define num-args-expected (count-format-string-args fmt-str)) 
    (define (so-far->waiter so-far) 
    (lambda (arg) 
     (define new-args (cons arg so-far)) 
     ;; do we have all of the args? 
     (if (= (length new-args) num-args-expected) 
      ;; yay! call format: 
      (apply format fmt-str (reverse new-args)) 
      ;; nope: wait for some more: 
      (so-far->waiter new-args)))) 
    (so-far->waiter '()))