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
(clojure-version)

1
2
3
4
5
6
7
8
(define (margreteborg row col)
(cond ((< row col) #f)
((or (= 0 col) (= row col)) 1)
(else (+ (margreteborg (- row 1) col) (margreteborg (- row 1) (- col 1))))))
 
N (margreteborg 2 2)+(margreteborg 3 2)+(margreteborg 11 2)
(margreteborg 6 3)+(margreteborg 3 2)
.(margreteborg 12 5)- (margreteborg 5 3)
 ...

1
2
3
4
5
6
7
8
#include <iostream>
using namespace std;
int main(){
 
cout<<"siema"<<endl;
system("PAUSE");
return 0;
}\

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
(prn "hurrah")

1
(println "asdf")

1
(println (= (- 10 (* 2 3)) 4))

1
(println (= (- 10 (* 2 3))) 4)

1
(println (= (- 10 (* 2 3))) 4))

1
(println (- 10 (* 2 3)))

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 (.charAt "Hello" 0))

1
(println "Hello")

1
(println ("Hello"))

1
2
3
(def sloth (fn b [] (println "hello") b))
 
((sloth))

1
2
3
(letfn [(even [n] (print (not (odd n))))
           (odd [n] (not= (/ n 2) (bigint (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2) (even 10000000000000000000) (even 4.2))

1
 

1
2
3
4
   (letfn [(even [n] (print (not (odd n))))
           (odd [n] (not= (/ n 2) (bigint (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2) (even 10000000000000000000) (even 4.2))
  

1
2
3
4
   (letfn [(even [n] (print (not (odd n))))
           (odd [n] (not= (/ n 2) (bigint (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2) (even 10000000000000000000))
  

1
2
3
4
   (letfn [(even [n] (print (not (odd n))))
           (odd [n] (not= (/ n 2) (int (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2) (even 10000000000000000000))
  

1
2
3
4
   (letfn [(even [n] (print (not (odd n))))
           (odd [n] (not= (/ n 2) (int (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2) (even 10000000000000000000)
  

1
2
3
4
   (letfn [(even [n] (print (not (odd n))))
           (odd [n] (!= (/ n 2) (div (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2))
  

1
2
3
4
   (letfn [(even [n] (print (not (odd n))))
           (odd [n] (<> (/ n 2) (div (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2))
  

1
2
3
4
   (letfn [(even [n] (print (not (odd n))))
           (odd [n] (not= (/ n 2) (div (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2))
  

1
2
3
4
   (letfn [(even [n] (print (not (odd n))))
           (odd [n] (not= (/ n 2) (int (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2))
  

1
2
3
4
   (letfn [(even (print [n] (not (odd n))))
           (odd [n] (not= (/ n 2) (int (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2))
  

1
2
3
4
   (letfn [(print (even [n] (not (odd n))))
           (odd [n] (not= (/ n 2) (int (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2))
  

1
2
3
4
5
(print
   (letfn [(even [n] (not (odd n)))
           (odd [n] (not= (/ n 2) (int (/ n 2))))] 
   (even 0) (even 1) (even 2) (even -1) (even -2)))
  

1
2
3
4
5
(print
   (letfn [(even [n] (not (odd n)))
           (odd [n] (not= (/ n 2) (int (/ n 2))))] 
   (even 9)))