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

Fetching contributors…

Cannot retrieve contributors at this time

Raw Blame History

5 lines (4 sloc) 111 Bytes

      
        ; P11 Modified run-length encoding.
      
        (defn f1 [l]
      
          (defn f [x] (if (= 1 (first x)) (second x) x))
      
          (map f l))

You can't perform that action at this time.