Skip to content

Instantly share code, notes, and snippets.

@frenchy64

frenchy64/last-branch.clj

Created January 4, 2015 05:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save frenchy64/0b54e57eaa92817f8f7d to your computer and use it in GitHub Desktop.
Save frenchy64/0b54e57eaa92817f8f7d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
last-branch.clj
(U (HMap :mandatory {:tree (Val :Red),
:entry EntryT,
:left bt,
:right (U (HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left (U (HMap :mandatory {:tree (Val :Red),
:entry EntryT,
:left bt,
:right bt})
(HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left rbt,
:right rbt})
Empty),
:right (U (HMap :mandatory {:tree (Val :Red),
:entry EntryT,
:left bt,
:right bt})
(HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left rbt,
:right rbt})
Empty)})
Empty)})
(HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left rbt,
:right (U (HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left (U (HMap :mandatory {:tree (Val :Black), :entry EntryT, :left rbt, :right rbt})
(HMap :mandatory {:tree (Val :Empty)})),
:right (U (HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left (U (HMap :mandatory {:tree (Val :Red),
:entry EntryT,
:left bt,
:right bt})
(HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left rbt,
:right rbt})
Empty),
:right (U (HMap :mandatory {:tree (Val :Red),
:entry EntryT,
:left bt,
:right bt})
(HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left rbt,
:right rbt})
Empty)})
(HMap :mandatory {:tree (Val :Empty)}))})
(HMap :mandatory {:tree (Val :Red),
:entry EntryT,
:left (U (HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left (U (HMap :mandatory {:tree (Val :Red),
:entry EntryT,
:left bt,
:right bt})
(HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left rbt,
:right rbt})
Empty),
:right (U (HMap :mandatory {:tree (Val :Red),
:entry EntryT,
:left bt,
:right bt})
(HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left rbt,
:right rbt})
Empty)})
(HMap :mandatory {:tree (Val :Empty)})),
:right (U (HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left rbt,
:right rbt})
(HMap :mandatory {:tree (Val :Empty)}))})
(HMap :mandatory {:tree (Val :Empty)}
:optional {:right Any, :left Any}))})
(HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left rbt,
:right (U (HMap :mandatory {:tree (Val :Black),
:entry EntryT,
:left rbt,
:right rbt})
(HMap :mandatory {:tree (Val :Empty)}))})
(HMap :mandatory {:tree (Val :Empty)}))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment