어떻게 Racket에서 임의의 수의 인수로 currying을 사용합니까?

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 '()))