I’m doing the exercism for clojure, and im doing a exercise, and ran into something that i think it’s a wierd bug (or some behaviour i don’t get why it’s happening) The code is the one below i left some comments, but if you eval function by functions you probably see for yourself

(ns allergies)

;; On mac os, but exercism pipeline also fails like this
(clojure-version) ;; => "1.11.1"

(def score->allergy {1  :eggs      2 :peanuts
                     4  :shellfish 8 :strawberries
                     16 :tomatoes  32 :chocolate
                     64 :pollen    128 :cats})

(defn insp [n]
  (clojure.pprint/pprint n)
  n)

(defn possible-allergenic-scores [s]
  (->> (range)
       (map #(Math/pow 2 %))
       (map int)
       (take-while #(>= s %))))

(defn maybe-add-allergy [new-allergy my-allergies]
  (if (nil? new-allergy)
    my-allergies
    (conj my-allergies new-allergy)))

(defn allergic-to? [my-curr-allergy-score allergenic-score]
  (>= my-curr-allergy-score allergenic-score))

(allergic-to? 1 1) ;; => true

(defn find-allergy [my-curr-allergy-score allergenic-score]
  (when (insp (allergic-to? my-curr-allergy-score allergenic-score))
    (score->allergy allergenic-score)))

(find-allergy 1 1) ;; => :eggs

(defn next-allergy-score [my-curr-allergy-score allergenic-score]
  (if (insp (allergic-to? my-curr-allergy-score allergenic-score))
    (- my-curr-allergy-score allergenic-score)
    my-curr-allergy-score))

(defn find-my-allergies [my-curr-allergy-score allergenic-scores]
  (->> allergenic-scores
       (insp)
       (reduce (fn [[my-allergies my-curr-allergy-score] allergenic-score]
                 (insp [[my-allergies my-curr-allergy-score] allergenic-score])
                 [(-> (find-allergy my-curr-allergy-score allergenic-score)
                      (insp)
                      (maybe-add-allergy my-allergies)
                      (insp))
                  (next-allergy-score my-curr-allergy-score allergenic-score)])
               ['() my-curr-allergy-score])
       (first)))

(defn allergies [score]
  (find-my-allergies score (possible-allergenic-scores score)))

;; If i push everything above to the REPL and run 

(allergies 1) ;; => (:eggs)
(find-my-allergies 1 [1]) ;; => (:eggs)


;; after i define this everything starts go crazy
(defn allergic-to? [score allergenic]
  ((into #{} (allergies score)) allergenic))


(allergic-to? 1 1) ;; => Stackoverflow
(find-my-allergies 1 [1]) ;; => Stackoverflow 
(find-allergy 1 1) ;; => Stackoverflow

;; If i redefine after allergic-to?
(defn allergies [score]
  (find-my-allergies score (possible-allergenic-scores score)))

(allergies 1) ;; => (:eggs)

Why does (int \8) gives 56 in Clojure and 8 in Clojurescript? 😞 I'm sad, I wanted my cljc code to behave the same in both runtimes...

A while ago I asked about installing Clojure by kids in a programming course. We tried installing Java, VSC, Calva, and manual project creation with deps.edn. I have to say it worked really well. Within 1 hour most kids that have had java preinstalled were able to get the REPL up and running. It's gone much better than expected. Now they were able to load the quil library and start drawing creative stuff : ) Great job and kudos to all tooling providers )