1
(= 1 2)

1
(println + 1 2 )

1
(+ 1 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
(println "Hello Sir Raymond, how are your?")

1
(println "Hello Sir Raymond, how are your?")

1
2
3
4
5
6
7
8
user> ($= [1 2 3] + [4 5 6])
(5 7 9)
 
user> ($= [1 2 3] * [1 2 3])
(1 4 9)
 
user> ($= [1 2 3] / [1 2 3])
(1 1 1)
 ...

1
2
3
(println "Hello world")
        ; Hello world
        ;=> nil

1
2
3
4
5
6
user> (* 2 10)
20
user> (* 2 11)
22
user> (* 2 12)
24

1
2
3
4
(defn sumdown [sum x]
  (if (foo x)
    (recur (+ sum x) (dec x))
    (recur (+ sum x) (dec x))))

1
2
3
4
5
6
7
8
9
(defn sumdown [sum x]
    (
    if (foo x) 
     (do
     (recur (+ sum x) (dec x))
     )
     else do(
        (recur (+ sum x) (dec x))
     )
 ...

1
2
3
4
(defn myfunc []
  (if (and cond1 cond2) 
      something
      somethingelse))

1
2
3
4
(defn myfunc []
  (if cond1
      (if cond2 something newelse)
      somethingelse))

1
2
3
4
5
6
7
8
9
;calculate Pi using Monte Carlo Method
(defn pi [sample-size]
  (loop [c 0 in 0]
    (if (< c sample-size)
        (recur (inc c)
               (if (let [x (rand) y (rand)] (>= 1 (+ (* x x) (* y y))))
                   (inc in)
                   in))
        (* 4.0 (/ in sample-size)))))
 ...

1
2
3
4
5
6
7
8
9
Thing myfunc()
{
  if(cond1)
  {
    if(cond2)
      return something;
  }
  return somethingelse;
}

1
  (println "Hello World")

1
2
3
4
5
6
7
8
9
 (println "Hello World")
  
  (print "Hello World")
  
  (prn "Hello World")
  
  (pr "Hello World")
 
 (.. System out (println "Hello World"))
 ...

1
2
<<hello.clj>>=
(println "Hello World")

1
2
3
4
(def hello (fn [] "Hello world"))
-> #'user/hello
(hello)
-> "Hello world"

1
2
3
4
5
(let [b 20 a 2]
(pr
  (if (< b a)
    "b > a"
    "b < a")))

1
2
3
4
5
 (let [a 20 b 2]
 (pr
 (if (<a b)
      "a > b"
      "a < b")))

1
2
3
4
5
(let [b 20 a 2]
(pr
  (if (< b a)
    "b > a"
    "b < a")))

1
2
3
4
5
(let [a 20 b 2]
(pr
 (if (<a b)
      "a > b"
      "a < b")))

1
2
3
4
user> (use 'incanter.core)
nil
user> ($= 7 + 8 - 2 * 6 / 2)
9

1
2
(print "Hello World!")
 

1
2
(print "Hello World!")
 

1
2
(print "Hello World!")
 

1
2
(main = print "Hello World!")
 

1
2
main = print "Hello World!"
 

1
(print("Hello World!"))