luciano/specter-wiki
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename TREE-VALUES.

Browse source
This commit is contained in:
Michael Fogleman 2017-10-01 13:36:56 -04:00
parent 6f2ed10907
commit 24e86fdab6
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
Using-Specter-Recursively.md
View file

@ -62,22 +62,22 @@ Here are some examples of using Specter recursively with `recursive-path`.
## Navigate to all values in a tree ## Navigate to all values in a tree
```clojure ```clojure
=> (def tree-walker (recursive-path [] p (if-path vector? [ALL p] STAY))) => (def TREE-VALUES (recursive-path [] p (if-path vector? [ALL p] STAY)))
#'playground.specter/tree-walker #'playground.specter/TREE-VALUES
;; Get all of the values nested within vectors ;; Get all of the values nested within vectors
=> (select tree-walker [1 [2 [3 4] 5] [[6]]]) => (select TREE-VALUES [1 [2 [3 4] 5] [[6]]])
[1 2 3 4 5 6] [1 2 3 4 5 6]
;; Transform all of the values within vectors ;; Transform all of the values within vectors
=> (transform tree-walker inc [1 [2 [3 4] 5] [[6]]]) => (transform TREE-VALUES inc [1 [2 [3 4] 5] [[6]]])
[2 [3 [4 5] 6] [[7]]] [2 [3 [4 5] 6] [[7]]]
;; Increment even leaves ;; Increment even leaves
=> (transform [tree-walker even?] inc [1 [2 [3 4] 5] [[6]]]) => (transform [TREE-VALUES even?] inc [1 [2 [3 4] 5] [[6]]])
[1 [3 [3 5] 5] [[7]]] [1 [3 [3 5] 5] [[7]]]
;; Get odd leaves ;; Get odd leaves
=> (select [tree-walker odd?] [1 [2 [3 4] 5] [[6]]]) => (select [TREE-VALUES odd?] [1 [2 [3 4] 5] [[6]]])
;; => [1 3 5] ;; => [1 3 5]
;; Reverse order of even leaves (order based on depth-first search) ;; Reverse order of even leaves (order based on depth-first search)
=> (transform (subselect tree-walker even?) reverse [1 [2 [3 4] 5] [[6]]]) => (transform (subselect TREE-VALUES even?) reverse [1 [2 [3 4] 5] [[6]]])
[1 [6 [3 4] 5] [[2]]] [1 [6 [3 4] 5] [[2]]]
``` ```