1

Scheme で書いたマクロを Clojure で再実装すると困ってしまう。マクロは、後で使用するために、テスト データのペアをall-testsvar にロードしようとします。

マクロの引数は可変長で、特殊な未定義シンボル、つまり が含まれているため、=>Schemy syntax-rules のようにそれを解析する方法がわかりません。

スキームのバージョン:

(define all-tests '())

;;; load tests into all-tests
(define-syntax add-tests-with-string-output
  (syntax-rules (=>)
    [(_ test-name [expr => output-string] ...)
     (set! all-tests
        (cons 
           '(test-name [expr string  output-string] ...)
            all-tests))]))

(add-tests-with-string-output "integers"      
  [0  => "0\n"]                    
  [1  => "1\n"]                    
  [-1 => "-1\n"]                   
  [10  => "10\n"]                    
  [-10 => "-10\n"]                   
  [2736 => "2736\n"]               
  [-2736 => "-2736\n"]             
  [536870911 => "536870911\n"]     
  [-536870912 => "-536870912\n"]   
)

私の現在の失敗した Clojure バージョン:

(def all-tests (atom '()))

(defmacro add-tests-with-string-output
  [test-name & body]
  `(loop [bds# (list body)]
    (when-not (empty? bds#)
      (println (first bds#))
      (recur (rest bds#)))))

Ps: 私はprintln今自分のコードをテストするために使用しています。動作したら、解析と読み込みの作業を試みます。

4

2 に答える 2

1

最初のマクロはループを形成し、2 番目のマクロはループを形成しますdoseq(より単純です)。どちらも同じように動作する必要があります。また、マクロからできるだけ多くのロジックを補助関数に抽出することも良い考えだと思います。関数は、デバッグ、テスト、および書き込みが容易です。マクロがもう少し複雑だったら、もっと少ないロジックを残していたかもしれません。

(def all-tests (atom '()))

(defn add-test [test-name expr output-string]
  (swap! all-tests #(cons (list test-name [expr output-string]) %)))

(defmacro add-tests-with-string-output
  [test-name & body]
  ;`(loop [bds# '(~@body)]
  `(loop [bds# '~body] ; edit
    (when-not (empty? bds#)
      (let [bd# (first bds#)
            expr# (first bd#)
            output-string# (last bd#)]
        (add-test ~test-name expr# output-string#)
        (recur (rest bds#))
        ))))

(defmacro add-tests-with-string-output2
  [test-name & body]
  ;`(doseq [bd# '(~@body)]
  `(doseq [bd# '~body] ; edit
    (let [expr# (first bd#)
          output-string# (last bd#)]
      (add-test ~test-name expr# output-string#))))

user=> (add-tests-with-string-output "test1" [0  => "0\n"] [1  => "1\n"])
nil
user=> (add-tests-with-string-output2 "test2" [0  => "0\n"] [1  => "1\n"])
nil
user=> @all-tests
(("test2" [1 "1\n"]) ("test2" [0 "0\n"]) ("test1" [1 "1\n"]) ("test1" [0 "0\n"]))
于 2015-04-11T14:11:52.810 に答える