我在哪里可以将打印功能放置在Clojure中的循环/循环中？

Question

Clojure和函数式编程入门。看看在尚未发布的编程Clojure book第三版第10章中添加数字的缓慢示例。

如何在此循环中添加println，以便我可以看到sum值更改？

; performance demo only, don't write code like this 
(defn sum-to [n] 
    (loop [i 1 sum 0] 
    (if (<= i n) 
     (recur (inc i) (+ i sum)) 
     sum))) 

Answer 1

的loop宏接受全身多处表情，这样你就可以在你的if表达前右侧插入一个副作用的println表达：

(defn sum-to [n] 
    (loop [i 1 sum 0] 
    (println sum) 
    (if (<= i n) 
     (recur (inc i) (+ i sum)) sum))) 

这里的Clojure将使用在最后一个表达式的结果身体作为整个loop表达的返回值。例如：

(sum-to 5) 
;; 0 
;; 1 
;; 3 
;; 6 
;; 10 
;; 15 
;;=> 15 

Answer 2

不回答你的问题，但

(reductions + (range 6)) 

给你你在找什么。

Answer 3

另一个方便的工具，在我看来可以解决您的问题，但以更清晰的方式而不是打印是一丝不苟。调试时非常有用。

(use 'clojure.tools.trace) 

    (defn sum-to 
    [n] 
    (loop [i 1 sum 0] 
    (if (<= i n) 
     (recur (inc i) (trace (+ i sum))) sum))) 

(sum-to 10) 
TRACE: 1 
TRACE: 3 
TRACE: 6 
TRACE: 10 
TRACE: 15 
TRACE: 21 
TRACE: 28 
TRACE: 36 
TRACE: 45 
TRACE: 55 
55 

Answer 4

一个方便的工具，我经常用于此目的是spyx宏观from the Tupelo library。

它的工作原理就像这样：

(ns tst.demo.core 
    (:use demo.core tupelo.test) 
    (:require 
    [tupelo.core :as t])) 
(t/refer-tupelo) 

(defn sum-to [n] 
    (loop [i 1 sum 0] 
    (if (<= i n) 
     (recur (inc i) (spyx (+ i sum))) 
     sum))) 

(spyx (sum-to 5)) 

与结果：

(+ i sum) => 1 
(+ i sum) => 3 
(+ i sum) => 6 
(+ i sum) => 10 
(+ i sum) => 15 

(sum-to 5) => 15