kartikshah

(defproject rss-feeder "1.0.0-SNAPSHOT"
  :description "RSS Feeder - Filters RSS feed for given keywords"
  :dependencies [[org.clojure/clojure "1.2.0"]
                 [org.clojure/clojure-contrib "1.2.0"]
                 [clj-http "0.1.2"]]
  :main rss.core)

kartikshah

;http://4clojure.com/problem/22
;count without using count

(#(loop [myseq % i 0] 
        (if (empty? myseq) 
                  i 
                  (recur (next myseq) (+ i 1)))) 
[1 2 3 4]) ; or provide any list arg here

kartikshah

(fn [xs n] (if (= n 1) xs (apply interleave (repeat n xs))))

kartikshah

(fn [xs1 xs2] (flatten (reverse (seq (zipmap xs1 xs2)))))

kartikshah

(fn [k xs] (conj (vec (interleave xs (vec (repeat ( - (count xs) 1) k)))) (last xs)))

kartikshah

(fn [xs n] (keep-indexed (fn [idx v] (if (zero? (mod (+ idx 1) n)) nil v)) xs))

kartikshah

(defn fct [n] (if (= n 1) 1 (reduce #(* %1 %2) (range 1 (+ n 1)))))

kartikshah

((partial (fn [fns x y] (fns y x)) nth) 2 [1 2 3])

kartikshah

(defn rotate [n xs] 
   (let [cnt (count xs)
         modn (mod n cnt)]
     (flatten (list (take-last (- cnt modn) xs) (take modn xs)))))

kartikshah

(fn [xs] 
  (let [m (group-by (fn [x] x) xs)] 
    (zipmap (keys m) (map count (vals m)))))