Advertisement
Guest User

Clojure zippers problem

a guest
Jan 30th, 2016
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (ns clojure.zip.tests
  2.   (:use clojure.test)
  3.   (:require [clojure.zip :as zip]))
  4.  
  5.  
  6. (def vecdat [[[1 2 3] [4 [5 6] 7] [8 9]]])
  7. (def veczip (zip/vector-zip vecdat))
  8.  
  9. (def  seqdat (list (list 1 2 3) (list 4 (list 5 6) 7) (list 8 9)))
  10. (def  seqzip (zip/seq-zip seqdat))
  11.  
  12. (deftest seqveczip
  13.   (testing "it seems seq and vector zippers not behaving the same way"
  14.     (is (= (-> veczip zip/down zip/down zip/node)
  15.            (-> seqzip zip/down zip/node))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement