sample-clojure-internal-trace.org

Load this file into Emacs. Use tab to collapse nodes of the trace log.

Function call: (link-elements-in-partition partition el1 el2)

#{#{1 2} #{3 4 5}}

partition

#{#{1 2} #{3 4 5}}

el1

2

el2

4

(let [c1 (containing-class partition el1) c2 (containing-class partition el2)] (cond (and (not c1) (not c2)) (conj partition #{el2 el1}) (and c1 (not c2)) (add-to-class partition c1 el2) (and c2 (not c1)) (add-to-class partition c2 el1) (and (and c1 c2) (not= c2 c2)) (conj (disj partition c1 c2) (union c1 c2)) :else partition))

#{#{1 2} #{3 4 5}}

Function call: (containing-class partition el)

#{1 2}

partition

#{#{1 2} #{3 4 5}}

el

2

(first (for [class partition :when (some #{el} class)] class))

#{1 2}

(for [class partition :when (some #{el} class)] class)

(#{1 2})

class

#{1 2}

Function call: (containing-class partition el)

#{3 4 5}

partition

#{#{1 2} #{3 4 5}}

el

4

(first (for [class partition :when (some #{el} class)] class))

#{3 4 5}

(for [class partition :when (some #{el} class)] class)

(#{3 4 5})

class

#{3 4 5}

(cond (and (not c1) (not c2)) (conj partition #{el2 el1}) (and c1 (not c2)) (add-to-class partition c1 el2) (and c2 (not c1)) (add-to-class partition c2 el1) (and (and c1 c2) (not= c2 c2)) (conj (disj partition c1 c2) (union c1 c2)) :else partition)

#{#{1 2} #{3 4 5}}

(and (not c1) (not c2))

false

(not c1)

false

c1

#{1 2}

(and c1 (not c2))

false

c1

#{1 2}

(not c2)

false

c2

#{3 4 5}

(and c2 (not c1))

false

c2

#{3 4 5}

(not c1)

false

c1

#{1 2}

(and (and c1 c2) (not= c2 c2))

false

(and c1 c2)

#{3 4 5}

c1

#{1 2}

c2

#{3 4 5}

(not= c2 c2)

false

c2

#{3 4 5}

c2

#{3 4 5}

partition

#{#{1 2} #{3 4 5}}