1
2
3
(print
  (filter (> 5) [1 2 6 7])
)

1
2
3
(print
(filter (> 5) [1 2 6 7])
)

1
(filter (> 5) [1 2 6 7])

1
(filter (>5) [1 2 6 7])

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
void main()
{
int a,b,d,e,f,g,n;
int i=0,i1=0,i2=0,i3=0,i4=0;
int j=0,j1=0,j2=0,j3=0,j4=0,j5=0,j6=0,j7=0,j8=0,j9=0;
int j10=0,j11=0,j12=0,j13=0,j14=0,j15=0,j16=0,j17=0;
long c;
 ...

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (println l)
    (println n)
    (if (= l () )
      n
      (recur (+ 1 n) (rest l))
    )
  )
 ...

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (println l)
    (println n)
    (if (= l () )
      28
      (recur (+ 1 n) (rest l))
    )
  )
 ...

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (println l)
    (if (= l () )
      28
      (recur (+ 1 n) (rest l))
    )
  )
)

1
(println (rest [1 2 3 4]))

1
(rest [1 2 3 4])

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (println (first ls))
    (if (= l () )
      28
      (recur (+ 1 n) (rest l))
    )
  )
)

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (println (first ls))
    (if (= l () )
      28
      (recur (+ 1 n) (rest l))
    )
  )
)

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (println n)
    (if (= l () )
      28
      (recur (+ 1 n) (rest l))
    )
  )
)

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (if (= l () )
      28
      (recur (+ 1 n) (rest l))
    )
  )
)
(println (tellen []))

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (if (= l () )
      28
      (recur (+ 1 n) (rest l))
    )
  )
)
(println (tellen [1 2 3]))

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (if (= l () )
      28
      (recur (+ 1 n) (rest l))
    )
  )
)
(println (tellen (1 2 3)))

1
2
3
4
5
6
(println 
  (= 
    (rest '(1 2))
    '(2)
  )
)

1
2
3
4
5
6
(println 
  (= 
    (rest '(1))
    ()
  )
)

1
(println (= (rest '(1) ()))

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (if (= l () )
      28
      (recur (+ 1 n) (rest l))
    )
  )
)
(println (tellen '(1 2 3)))

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (if (= l () )
      0
      (recur (+ 1 n) (rest l))
    )
  )
)
(println (tellen '(1 2 3)))

1
2
3
4
5
6
7
8
9
(defn tellen[ls]
  (loop [n 0 l ls]
    (if (= l () )
      0
      (recur (+ 1 n) (rest l))
    )
  )
)
(tellen '(1 2 3))

1
2
3
4
5
6
7
8
9
(fn[ls]
  (loop [n 0 l ls]
    (if (= l () )
      0
      (recur (+ 1 n) (rest l))
    )
  )
)
(fn '(1 2 3))

1
2
3
4
5
6
7
8
(def text "01010011011101000110000101110011011101000110111001100101001000000110000100100000010101100110010101110011011001010110110001100101001000000101011001101001011000010110111001101111011000110110010100100000011100000111001001100001011010100110010100100000010000010110010001100001")
 
(defn decode [s]
"Function decoding the binary string into a text."
  (apply str (map #(char (read-string (apply str "2r" %)))
                  (partition 8 s))))
 
(print (decode text))

1
2
3
4
5
6
7
8
(def text "01010011011101000110000101110011011101000110111001100101001000000110000100100000010101100110010101110011011001010110110001100101001000000101011001101001011000010110111001101111011000110110010100100000011100000111001001100001011010100110010100100000010000010110010001100001")
 
(defn decode [s]
"Function decoding the binary string into a text."
  (apply str
    (map #(char (read-string (apply str "2r" (partition 8 %)))) s)))
 
(print (decode text))

1
2
3
4
5
6
7
8
9
(def text "01010011011101000110000101110011011101000110111001100101001000000110000100100000010101100110010101110011011001010110110001100101001000000101011001101001011000010110111001101111011000110110010100100000011100000111001001100001011010100110010100100000010000010110010001100001")
 
(defn decode [s]
"Function decoding the binary string into a text."
  (apply str
    (map #(char (read-string (apply str "2r" (partition 8 %))))
         s)))
 
(print (decode text))

1
2
3
4
5
6
7
8
9
(def text "01010011011101000110000101110011011101000110111001100101001000000110000100100000010101100110010101110011011001010110110001100101001000000101011001101001011000010110111001101111011000110110010100100000011100000111001001100001011010100110010100100000010000010110010001100001")
 
(defn decode [s]
"Function decoding the binary string into a text."
  (apply str
    (map #(char (read-string (apply str "2r" (partition 8 %))))
         s)))
 
(print (decode text))

1
2
3
4
5
6
7
8
9
(def text "01010011011101000110000101110011011101000110111001100101001000000110000100100000010101100110010101110011011001010110110001100101001000000101011001101001011000010110111001101111011000110110010100100000011100000111001001100001011010100110010100100000010000010110010001100001")
 
(defn decode [s]
"Function decoding the binary string into a text."
  (apply str
    (map #(char (read-string (apply str "2r" %)))
         (partition 8 s))))
 
(print (decode text))

1
2
3
4
5
6
7
8
9
(def text "01010011011101000110000101110011011101000110111001100101001000000110000100100000010101100110010101110011011001010110110001100101001000000101011001101001011000010110111001101111011000110110010100100000011100000111001001100001011010100110010100100000010000010110010001100001")
 
(defn decode [s]
"Function decoding the binary string into a text."
  (apply str
    (map #(char (read-string (str "2r" (apply str %))))
         (partition 8 s))))
 
(print (decode text))

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))
 ...