use syntax sugar for lambda #16
This commit is contained in:
parent
9ee90b036f
commit
171bef2d05
@ -48,7 +48,7 @@
|
|||||||
([pronouns-table sections] (minimum-unambiguous-path pronouns-table sections 1))
|
([pronouns-table sections] (minimum-unambiguous-path pronouns-table sections 1))
|
||||||
([pronouns-table sections number-of-sections]
|
([pronouns-table sections number-of-sections]
|
||||||
(let [sections-subset (take number-of-sections sections)
|
(let [sections-subset (take number-of-sections sections)
|
||||||
results (filter (fn [pronouns] (= (take number-of-sections pronouns) sections-subset)) pronouns-table)]
|
results (filter #(= (take number-of-sections %) sections-subset) pronouns-table)]
|
||||||
(case (count results)
|
(case (count results)
|
||||||
0 nil
|
0 nil
|
||||||
1 (clojure.string/join "/" sections-subset)
|
1 (clojure.string/join "/" sections-subset)
|
||||||
|
Loading…
Reference in New Issue
Block a user