chrisvest

syntax on
set background=dark

" Return cursor to the previous position when this file was open last
au BufReadPost * if line("'\"") > 0 && line("'\"") <= line("$")
    \| exe "normal g'\"" | endif

filetype plugin indent on

chrisvest

;; chrisvest's solution to http://4clojure.com/problem/28

(fn squash [xs]
  (if (sequential? xs)
    (mapcat squash xs)
    (list xs)))

chrisvest

;; chrisvest's solution to http://4clojure.com/problem/29

(fn [s] (apply str (filter #(Character/isUpperCase %) s)))

chrisvest

;; chrisvest's solution to http://4clojure.com/problem/30

(fn [xs]
  (reduce (fn [v x] (if (= x (last v)) v (conj v x))) [] xs))

chrisvest

;; chrisvest's solution to http://4clojure.com/problem/31

#(partition-by identity %)

chrisvest

;; chrisvest's solution to http://4clojure.com/problem/32

#(mapcat (fn [x] [x x]) %)

chrisvest

;; chrisvest's solution to http://4clojure.com/problem/33

(fn [xs n]
  (mapcat #(replicate n %) xs))

chrisvest

;; chrisvest's solution to http://4clojure.com/problem/34

(fn [l h] (take (- h l) (iterate inc l)))

chrisvest

;; chrisvest's solution to http://4clojure.com/problem/38

(fn [& xs] (reduce (fn [a b] (if (> a b) a b)) 0 xs))

chrisvest

;; chrisvest's solution to http://4clojure.com/problem/39

(fn [a b] (mapcat vector a b))