Skip to content

Instantly share code, notes, and snippets.

@frenchy64

frenchy64/compile_dag.clj

Created July 22, 2011 03:14
Show Gist options
  • Save frenchy64/1098817 to your computer and use it in GitHub Desktop.
Save frenchy64/1098817 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
compile_dag.clj
(def pm2 (pattern-matrix [(pattern-row [wildcard (pattern false) (pattern true)] :a1)
(pattern-row [(pattern false) (pattern true) wildcard] :a2)
(pattern-row [wildcard wildcard (pattern false)] :a3)
(pattern-row [wildcard wildcard (pattern true)] :a4)]
'[x y z]))
(compile pm2)
;#match.core.SwitchNode[
; 1,
; [[<Pattern: true> #match.core.PatternMatrix[
; [#match.core.PatternRow[
; [<Pattern: false> <Pattern: true>], :a1]
; #match.core.PatternRow[
; [<Pattern: _> <Pattern: false>], :a3]
; #match.core.PatternRow[
; [<Pattern: _> <Pattern: true>], :a4]], [y z]]]
;
;
; [<Pattern: false> #match.core.PatternMatrix[
; [#match.core.PatternRow[
; [<Pattern: false> <Pattern: true>], :a1]
; #match.core.PatternRow[
; [<Pattern: true> <Pattern: _>], :a2]
; #match.core.PatternRow[
; [<Pattern: _> <Pattern: false>], :a3]
; #match.core.PatternRow[
; [<Pattern: _> <Pattern: true>], :a4]], [y z]]]
;
; [default #match.core.FailNode[]]]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment