jde___-CSDN博客

原创；； 7、有一个map，它的值为{:name “zm“ :age 40}，请写一段代码，将这个map的值变为{:name “zm“ :age 40 :sex “男“}

(assoc {:name "zm" :age 40}:sex "男")

2021-11-20 09:19:23 147

原创；； 9、有一个字符串变量xyz的值为“1a2bc3d4e5 am father love you 13926049565“, 请通过正则序列函数分别求出：； 1、里面的数字 2、里面的字母

(def xyz "1a2bc3d4e5 am father love you 13926049565") (re-seq#"[0-9]" xyz) (re-seq#"[a-z]" xyz) (re-seq#"[0-z]" xyz) (re-seq #"\w{11}" xyz)

2021-11-20 09:17:26 172

原创；2.随机生成50个整数，这50个整数都在1000以内

(repeatedly 50 #(rand-int 1000))

2021-11-20 09:11:55 229

原创 clj 同时将姓名的值改为大写，年龄加1，最后将所有年龄求和，用箭头宏一次写完整

(->> my-family (map #(update % :person/name str/upper-case)) (map #(update % :person/age inc)) (map :person/age) (reduce +)) (into {}(map #((juxt :person/id identity) %) my-family)) (into {}(map #(assoc {} (:person/id %) %) my-f...

2021-11-14 11:20:19 215

原创 clj 编写一个函数 third-min 求出倒数第三小的数给你一个非空向量，返回此向量数组中倒数第三小的数。如果不存在，则返回数组中最小的数。

(defn third-min [coll] (if (< (count coll) 3) (apply min coll) (->> (map str coll) (map #(re-seq #"[0-9]+" %)) (remove nil?) flatten (map #(Integer/parseInt %)) sort (drop 2) first ))) (third-min ["z.

2021-11-14 11:16:18 79

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

原创 ；； 7、有一个map，它的值为{:name “zm“ :age 40}，请写一段代码，将这个map的值变为{:name “zm“ :age 40 :sex “男“}

原创 ；； 9、有一个字符串变量xyz的值为“1a2bc3d4e5 am father love you 13926049565“, 请通过正则序列函数分别求出：； 1、里面的数字 2、里面的字母

原创 ；2.随机生成50个整数，这50个整数都在1000以内

原创 clj 同时将姓名的值改为大写，年龄加1，最后将所有年龄求和，用箭头宏一次写完整

原创 clj 编写一个函数 third-min 求出 倒数第三小的数给你一个非空向量，返回此向量数组中 倒数第三小的数 。如果不存在，则返回数组中最小的数。

空空如也

空空如也

原创；； 7、有一个map，它的值为{:name “zm“ :age 40}，请写一段代码，将这个map的值变为{:name “zm“ :age 40 :sex “男“}

原创；； 9、有一个字符串变量xyz的值为“1a2bc3d4e5 am father love you 13926049565“, 请通过正则序列函数分别求出：； 1、里面的数字 2、里面的字母

原创；2.随机生成50个整数，这50个整数都在1000以内

原创 clj 编写一个函数 third-min 求出倒数第三小的数给你一个非空向量，返回此向量数组中倒数第三小的数。如果不存在，则返回数组中最小的数。