gugat · December 16, 2015 06:34 · jplaza · Dec 22, 2015
diff --git a/find_items_ocurrence.clj b/find_items_ocurrence.clj

 (let [my_list '(a b b c a a c) my_set (set my_list)]
  (zipmap
    my_set    
    (map
       (fn [y] 
          (count
            (filter 
              (fn [x] (= x y)) my_list
            ) 
          )   
       ) my_set
    )
  )
 )

	(let [my_list '(a b b c a a c) my_set (set my_list)]
	(zipmap
	my_set
	(map
	(fn [y]
	(count
	(filter
	(fn [x] (= x y)) my_list
	)
	)
	) my_set
	)
	)
	)
No results found