如何在 racket/scheme 中构造值 println?

How to construct values println in racket/scheme?

如何将两个表达式合二为一:

(map (lambda (x) (println x)) (gen-truth 2 '(#t #f)))

(map (lambda (x) (println (apply and-l x))) (gen-truth 2 '(#t #f)))

很高兴在同一行看到求值前的表达式 + '=>' + 应用的结果。 例如:((and-l '(#t #f)) => #f)

我们可以使用 printf 来打印和格式化这两个值。单独说明:如果你只是打印列表的内容,建议使用for-each而不是map,我们不需要结果列出。这就是我的意思:

(for-each (lambda (x)
            (printf "~s => ~s~n" x (apply and-l x)))
          (gen-truth 2 '(#t #f)))