gistfile1.clj

(defn factors [n]
  "Prints out all factors"
  (filter integer? 
          (map #(/ n %)
               (range 1 (inc n)))))
;(map prime? (range 1 100))
;(dotimes [i 100] (println i (prime? i)))


(defn prime? [n]
  (= (count (factors n)) 2))

;(def primes-inf (filte fn()))

(use 'clojure.set)

(def p (set (filter prime? (range 1 1002))))

(defn member? 
  "Returns true if item is in lst, false otherwise."
  [item lst]
  (if (some #{item} lst) true false))
;; from clojinc

(filter #(member? 3 (set (str %))) p)

REPL

jackcloj=>
(def p (set (filter prime? (range 1 1002))))
#'jackcloj/p
jackcloj=>
(filter #(some #{3} (set (str % ))) p)
()

jackcloj=>
(some #{3} (set (str 353) ))
nil

jackcloj=>
(ns clojinc.core)
nil

clojinc.core=>
(ns jackcloj)
nil

jackcloj=>
(defn member? 
  "Returns true if item is in lst, false otherwise."
  [item lst]
  (if (some #{item} lst) true false))
;; from clojinc
(filter #(member? 3 (set (str % ))) p)
#'jackcloj/member?
jackcloj=>()

jackcloj=>
(defn member? 
  "Returns true if item is in lst, false otherwise."
  [item lst]
  (if (some #{item} lst) true false))
;; from clojinc
(filter #(member? 3 (set (str % ))) p)
#'jackcloj/member?
jackcloj=>()

jackcloj=>
(filter #(member? 3 (set (str % ))) p)
()

jackcloj=>
(filter #(member? 3 (set (str %))) p)
()

jackcloj=>
(member? 3 (set (str 353)))
false

jackcloj=>
(member? 3 (set (str 353)))
false

jackcloj=>
(set (str 353))
#{\3 \5}

jackcloj=>
(member? #{\3} (set (str 353)))
false