Как построить значения println в ракетке / схеме?

Question

Как смешать два выражения в одно:

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

Answer 1

Мы можем использовать printf для печати и форматирования обоих значений. Отдельное примечание: если вы просто печатаете содержимое списка, рекомендуется использовать for-each вместо map, в результате нам не нужен список. Вот что я имею в виду:

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