Skip to content

Instantly share code, notes, and snippets.

@swannodette

swannodette/match_array.clj

Created June 20, 2013 13:27
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 swannodette/5822664 to your computer and use it in GitHub Desktop.
Save swannodette/5822664 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
match_array.clj
;; ~100ms on 1.7ghz MBA
(let [x (int-array [1 2 3])]
(dotimes [_ 5]
(time
(dotimes [_ 1e7]
(match [^ints x]
[[_ _ 2]] :a0
[[1 1 3]] :a1
[[1 2 3]] :a2)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment