fronx · September 8, 2011 18:56
diff --git a/4clojure19.clj b/4clojure19.clj
 ;; Write a function which returns the last element in a sequence.
 ;: Special restrictions: last

 (= (__ [1 2 3 4 5]) 5)	

 (= (__ '(5 4 3)) 3)
 	
 (= (__ ["b" "c" "d"]) "d")
diff --git a/find-doc.clj b/find-doc.clj
 (find-doc "last")

 ;; =>

 ; -------------------------
 ; ...
 ; clojure.core/last
 ; ([coll])
 ;   Return the last item in coll, in linear time
 ; -------------------------
 ; ...
 ; -------------------------
 ; clojure.core/peek
 ; ([coll])
 ;   For a list or queue, same as first, for a vector, same as, but much
 ;   more efficient than, last. If the collection is empty, returns nil.
 ; -------------------------
diff --git a/find-vec.clj b/find-vec.clj
 (find-doc #"(?i)create.*vector")
diff --git a/last.clj b/last.clj
 (source last)

 ;; =>

 (def 
 ^{:arglists '([coll])
   :doc "Return the last item in coll, in linear time"
   :added "1.0"}
 last (fn last [s]
        (if (next s)
          (recur (next s))
          (first s))))
diff --git a/peek-vec.clj b/peek-vec.clj
 #(peek (vec %))
	;; Write a function which returns the last element in a sequence.
	;: Special restrictions: last

	(= (__ [1 2 3 4 5]) 5)

	(= (__ '(5 4 3)) 3)

	(= (__ ["b" "c" "d"]) "d")
	(find-doc "last")

	;; =>

	; -------------------------
	; ...
	; clojure.core/last
	; ([coll])
	; Return the last item in coll, in linear time
	; -------------------------
	; ...
	; -------------------------
	; clojure.core/peek
	; ([coll])
	; For a list or queue, same as first, for a vector, same as, but much
	; more efficient than, last. If the collection is empty, returns nil.
	; -------------------------
	(source last)

	;; =>

	(def
	^{:arglists '([coll])
	:doc "Return the last item in coll, in linear time"
	:added "1.0"}
	last (fn last [s]
	(if (next s)
	(recur (next s))
	(first s))))