首页 > 代码库 > [4Clojure]解题记录-#63

[4Clojure]解题记录-#63

2024-08-04 15:37:51   219人阅读

题目

Difficulty:Easy
Topics:core-functions

 

Given a function f and a sequence s, write a function which returns a map. The keys should be the values of f applied to each item in s. The value at each key should be a vector of corresponding items in the order they appear in s.

1. (= (__ #(> % 5) [1 3 6 8]) {false [1 3], true [6 8]})
2. (= (__ #(apply / %) [[1 2] [2 4] [4 6] [3 6]])  {1/2 [[1 2] [2 4] [3 6]], 2/3 [[4 6]]})
3. (= (__ count [[1] [1 2] [3] [1 2 3] [2 3]]) {1 [[1] [3]], 2 [[1 2] [2 3]], 3 [[1 2 3]]})
 
限制：不能用“group-by”
 
题解：长度分61
(fn[f s](apply merge-with concat (map (fn [x] (hash-map (f x) [x])) s)))
 
中间过程测试：
1。生成hash-map：
user=> (map #(hash-map % 0) [1 2 3 4])
；({1 0} {2 0} {3 0} {4 0})
 
2. 测试merge-with
user=>(merge-with concat {false [1]} {false [2]} {true [3]} {true [4]})
;{true (3 4), false (1 2)}
 
3. 合并
user=>(merge-with concat (map #(hash-map ((fn[x](> x 5)) %) [%]) [1 2 3 4 5 6 7 8]))
;({false [1]} {false [2]} {false [3]} {false [4]} {false [5]} {true [6]} {true [7]} {true [8]})
有点问题，少了个东西
user=>(apply merge-with concat (map #(hash-map ((fn[x](> x 5)) %) [%]) [1 2 3 4 5 6 7 8]))
;{true (6 7 8), false (1 2 3 4 5)}
 
4. 整理成匿名函数，和题目要求的参数格式：
(fn[f s](apply merge-with concat (map (fn [x] (hash-map (f x) [x])) s)))

[4Clojure]解题记录-#63


联系
我们