1

我编写了一个程序来计算列表形式的表达式的导数，因此4x^3表示为(* 4 (expt x 3))，并且我正在编写一个测试套件来打印结果。我有一个函数runtest，它接受一个表达式并计算关于它的导数x并返回结果

(define (runtest test)
  (display "diff x ")(display test)(display " => ")(display (diff 'x test)))

以便显示结果diff x expression => result

我将以下定义为测试：

(define test1 '4)
(define test2 '(* 2 x))
(define test3 '(* 2 y))
(define test4 '(+ x (* x x)))
(define test5 '(expt x 4))

然后我将所有测试放在一个列表中，这样我就可以映射列表并返回结果：

(define test-suite (list test1 test2 test3 test4 test5))

当我运行(map runtest test-suite)而不是单独返回每个时，我会得到一个没有换行符的长列表，而我想要的是：

diff x 4 => 0
diff x '(* 2 x) => '(+ (* 0 x) (* 2 1))
diff x '(* 2 y) => '(+ (* 0 y) (* 2 0))
diff x '(+ x (* x x)) => '(+ 1 (* 2 x))
diff x '(expt x 4) => '(* 4 (expt x 3))

我错过了什么？

4

1 回答 1

4

我想你正在寻找newline：

(define (runtest test)
  (display "diff x ")
  (display test)
  (display " => ")
  (display (diff 'x test))
  (newline))

顺便说一句，很少有充分的理由调用display字符串以外的任何东西。我建议使用writefortest和(diff 'x test)。

在Racket中编写它的一种更惯用的方式是：

(define (runtest test)
  (printf "diff x ~s => ~s\n" test (diff 'x test)))

或者，在任何带有SRFI-28的方案中，这个：

(define (runtest test)
  (display (format "diff x ~s => ~s~%" test (diff 'x test)))
于 2012-10-19T01:02:58.397 回答