Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(defn amicable? [a]
(if (@amicable-nos a) true
(let [b (d a)
db (d b)]
(if (and (not= a b) (= a db))
(do (swap! amicable-nos assoc b true) true)
false))))
(def amicable-nos (atom {}))
(swap! an-atom f & args)
(apply f @atom & args)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.