clojure-tip-of-the-day/src/clojure_tip_of_the_day/001_cider_debugger.clj at master · curiousprogrammer-net/clojure-tip-of-the-day · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
(ns clojure-tip-of-the-day.001-cider-debugger)

;;; Debug simple function

(defn pythagoras [x y]
  (let [x2 (* x x)
        y2 (* y y)]
    (Math/sqrt (+ x2 y2))))

;; expect 5 as a result
(pythagoras 3 4)


;;; Debug more complex function


(def threshold 120)

(defn small-bug [n]
  (range 1 (inc n)))

(defn sum-up [n]
  (if (<= threshold (->> (small-bug n)
                        (map inc)
                        (reduce +)))
    (println "OK")
    (println "ERROR")))

;; expect "OK" in console  since sum of 2,3,...,16 is 135
(sum-up 15)