(= (__ [1 2 3 4 5]) 5) 在4clojure做题，在这里卡住了。。。

来自: paomian#圣诞帽(Hello World!)
2013-07-05 17:41:35

还在学习中。。。。这题用不用递归呢？我不会用匿名函数写，，，自己写的不对 (defn last_b [x] (if (= (count x) 1) (println x) (last_b (next x))))

加入小组后即可参加投票

确定

回应转发赞收藏只看楼主

[已注销] 2013-07-06 00:44:31

[内容不可见]

删除 |

赞回应
贝塔 (胡萝卜素) 2013-07-06 13:59:27

允许用reduce吗

删除 |

赞回应
paomian#圣诞帽 (Hello World!) 楼主 2013-07-06 16:25:46

[内容不可见] [内容不可见] [已注销]

不要鄙视我

删除 |

赞回应
paomian#圣诞帽 (Hello World!) 楼主 2013-07-06 16:25:56

允许用reduce吗允许用reduce吗贝塔

已经做出来了

删除 |

赞回应
Halo 2013-07-06 20:03:56

貌似是不允许用last

删除 |

赞回应
京木 2013-07-19 20:12:16

求解。。

删除 |

赞回应
京木 2013-07-23 09:55:10

已经做出来了已经做出来了 paomian#圣诞帽

求解。。

删除 |

赞回应
paomian#圣诞帽 (Hello World!) 楼主 2013-07-25 17:56:34

求解。。求解。。京木

first (reverse

删除 |

赞回应
京木 2013-07-31 17:42:34

first (reverse first (reverse paomian#圣诞帽

谢了，原来有reverse这么一个神奇的函数

删除 |

赞回应
[已注销] 2013-08-15 15:03:28

[内容不可见]

删除 |

赞回应
gzmask 2013-08-23 03:56:21

(fn [x] (rest (rest (rest (rest x)))))

删除 |

赞回应
gzmask 2013-08-23 03:57:07

(fn [x] (rest (rest (rest (rest x))))) (fn [x] (rest (rest (rest (rest x))))) gzmask

oh well, caddr language is the most minimal solution, so this should add some value to your q.

删除 |

赞回应
四季 (我们都没错只是不适合...) 2013-08-23 04:52:44

last

删除 |

赞回应
λ.epi.clyce (Epicdenza.Clyce.Tabulasa) 2013-10-23 20:38:06

(comp first reverse)

删除 |

赞回应
isaac 2013-10-26 22:01:14

count

删除 |

赞 (1) 回应
closure 2013-11-21 13:27:47

(defn my-last [sequeue] (#(nth % (dec (count %))) sequeue)) (defn my-last [sequeue] (#(first (reverse %)) sequeue)) (defn my-last [sequeue] (#(.get % (dec (count %))) sequeue)) (defn my-last [sequeue] ((comp first reverse) sequeue)) (defn my-last [sequeue] (reduce (fn [a b] b) sequeue)) (defn my-last [sequeue] (first (reverse sequeue)))

删除 |

赞 (1) 回应
paomian#圣诞帽 (Hello World!) 楼主 2013-12-06 08:22:17

(defn my-last [sequeue] (#(nth % (dec (count %))) sequeue)) (defn my-last [sequeue] (#(fi (defn my-last [sequeue] (#(nth % (dec (count %))) sequeue)) (defn my-last [sequeue] (#(first (reverse %)) sequeue)) (defn my-last [sequeue] (#(.get % (dec (count %))) sequeue)) (defn my-last [sequeue] ((comp first reverse) sequeue)) (defn my-last [sequeue] (reduce (fn [a b] b) sequeue)) (defn my-last [sequeue] (first (reverse sequeue))) ... closure

我去。。。你这也

删除 |

赞回应
蛋定 (少上网，多看书) 2014-03-24 22:50:10

#(-> % reverse first) .我承认我就是搞笑的。。。

删除 |

赞回应
芹菜香干 2014-10-31 23:49:10

（= （count [1 2 3 4 5]） 5）

删除 |

赞回应
MOY (你挑着马我骑着担) 2014-11-27 23:36:09

目测 (= (peek [1 2 3 4 5 ] 5)

删除 |

赞回应
林集团 2017-01-06 12:44:43

count

删除 |

赞回应