1
2
3
4
5
6
7
8
(ns my-namespace
  (:require clojure.walk))
  
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o])))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc k vs (meta o)))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))))
 ...

1
2
3
4
5
6
7
(defn foo []
  (prn (do2 + 3 4 5)))
 
(defn do2 [ f a b c ] 
  [(f a b) c])
 
(foo) ; Expected: [7, 5]

1
2
3
4
(defn do2 [ f a b c ] 
  [(f a b) c])
 
(prn (do2 + 3 4 5)) ; Expected: [7, 5]

1
2
3
4
(def do2 [ f a b ] 
  (f a b))
 
(prn (do2 + 3 4))

1
(+ 2 3 5)

1
(print (map (fn [a] (type a)) (read-string "(+ 1 (- 1 2))")))

1
(print (map (fn [a] (type a)) (read-string "(+ 1 2)")))

1
(print (eval (read-string "(+ 1 2)")))

1
(print (+ 1 2))

1
(+ 12 2)

1
(+ 12 2)

1
2
3
4
5
6
7
8
9
(defn bottles [n & [capitalize]]
  (str (if (> n 0) n (if capitalize "No more" "no more"))
    " bottle" (if (= 1 n) "" "s") " of beer" ))
 
(defn bot-wall [n & cap] (str (bottles n cap) " on the wall"))
 
(defn sing
  ;  Default is 99 times.
  ([]  (sing 99))
 ...

1
2
3
4
5
6
7
8
9
(defn removeUnlessSingleton[x,l]
  (if ( > (count l) 1 )
       ( remove #(= x %) l )
       l
  )
)
;; should yield [1 2 4 5]:
(println (removeUnlessSingleton 3 `(1 2 3 4 5) ))
;; should yield [3]:
 ...

1
2
3
4
5
6
7
8
9
(defn removeUnlessSingleton[x,l]
  (if ( > (count l) 1 )
       ( remove #(= x %) l )
       l
  )
)
;; should yield [1 2 4 5]:
(println (removeUnlessSingleton 3 [1 2 3 4 5]))
;; should yield [3]:
 ...

1
2
3
4
5
6
7
8
9
(defn removeUnlessSingleton[x,l]
  (if ( > (count l) 1 )
       ( remove #(= x %) l )
       ( if (= x (first l))
            l
            l
       )
  )
)
 ...

1
2
3
4
5
6
7
8
9
(defn removeUnlessSingleton[x,l]
  (if ( > (count l) 1 )
       ( remove #(= x %) l )
       ( if (= x (first l))
            `(x)
            `()
       )
  )
)
 ...

1
2
3
4
5
6
7
8
9
(defn removeUnlessSingleton[x,l]
  (if ( > (count l) 1 )
       ( remove #(= x %) l )
       ( if (= x (first l))
            `(x)
            `()
       )
  )
)
 ...

1
2
3
4
5
6
7
8
(println (= 3 3))
 
(println
       ( if (= 3 4)
            `(3)
            `()
       )
)

1
2
3
4
5
6
7
8
(println (= 3 3))
 
(println
       ( if (= 3 3)
            `(3)
            `()
       )
)