ninety-nine/P01.clj at master · pavelfatin/ninety-nine · GitHub

Fetching contributors…

Cannot retrieve contributors at this time

Raw Blame History

15 lines (12 sloc) 220 Bytes

      
        ; P01 Find the last element of a list.
      
        ; Predefined function
      
        (defn f0 [l]
      
          (last l))
      
        ; Tail recursion
      
        (defn f1 [l]
      
          (if (next l)
      
            (recur (rest l))
      
            (first l)))
      
        ; Folding
      
        (defn f2 [l]
      
          (reduce (fn [_ b] b) l))

You can't perform that action at this time.