1
(for [x (range 10) y (range 10 20)] [y x])

1
(for [x (range 5) y (range 10 20) [y x])

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
f~^kn~+c+ia~^+~cf+?/                        
                   [f!c-ki~:~b/au>++*+k~~r~bn!*+i                   
                <kk]k/>rkbrn~!:?[->+uc*a+af~>^b+ub+k                
              +i?:fn>+b+kb^+>kn?+ii/kb++u>?a+^+?+u>u?c+             
            i:+~/+>++:kba+~b?+:>+rr!b+k+++u?n<k!b**<i<c~i           
          <!^<<<<krb~^/]>>-u~/*-:<ck^<++!!:n+!kcbinc[~kr-:          
         *k:!kb?>c~>>*u!nnrbabi>+irn>i?+~+?>icc*+ci+i+!<<rb         
        ^knnb<!<!i<b^r<i!^/]>f/>>a/?>i~>~>>>b--.r/rucffa!/<n        
        <:u<?ua<cr<*:<i:bb<fu/nb.>b:r:*?**>n:!>::~/*+.>>r-:.:       
 ...

1
2
3
4
(println (.length "https://sites.google.com/a/google.com/liveresults/home/developer/developer-tools/dataobject-pretty-printer#TOC-123456789_123456789_123456789_12345") (.length "https://sites.google.com/a/google.com/liveresults/home/production/alert-playbook#TOC-LiveResults_Feed_Converter_Many_Fai"))
 
 
(println (.length "#TOC-123456789_123456789_123456789_12345") (.length "#TOC-LiveResults_Feed_Converter_Many_Fai"))

1
2
3
4
(print (.length "https://sites.google.com/a/google.com/liveresults/home/developer/developer-tools/dataobject-pretty-printer#TOC-123456789_123456789_123456789_12345") (.length "https://sites.google.com/a/google.com/liveresults/home/production/alert-playbook#TOC-LiveResults_Feed_Converter_Many_Fai"))
 
 
(print (.length "#TOC-123456789_123456789_123456789_12345") (.length "#TOC-LiveResults_Feed_Converter_Many_Fai"))

1
(print (.length "https://sites.google.com/a/google.com/liveresults/home/developer/developer-tools/dataobject-pretty-printer#TOC-123456789_123456789_123456789_12345") (.length "https://sites.google.com/a/google.com/liveresults/home/production/alert-playbook#TOC-LiveResults_Feed_Converter_Many_Fai"))

1
(print (.length "https://sites.google.com/a/google.com/liveresults/home/developer/developer-tools/dataobject-pretty-printer#TOC-123456789_123456789_123456789_12345"))

1
(.length "https://sites.google.com/a/google.com/liveresults/home/developer/developer-tools/dataobject-pretty-printer#TOC-123456789_123456789_123456789_12345")

1
(length "https://sites.google.com/a/google.com/liveresults/home/developer/developer-tools/dataobject-pretty-printer#TOC-123456789_123456789_123456789_12345")

1
2
3
4
5
(def text "0100000101101010001000000110101001100001001000000111001101100001001000000111000001110010011010010111000001100001011010100110000101101101001011000010000001110011011101000110000101110011011101000110111001100101001000000110000100100000011100100110000101100100011011110111001101110100011011100110010100100000010101100110100101100001011011100110111101100011011001010010000001110000011011000110111001100101001000000110110001100001011100110110101101111001001000000110000100100000011100000110111101101011011011110110101001100001001000000111011001110011011001010111010001101011011110010110110100101100001000000110001101101111001000000110001101101001011101000110000101101010011101010010000001110100011101010111010001101111001000000111001101110000011100100110000101110110011101010010000000101000011001000111010101100110011000010110110100101100001000000111101001100101001000000111000001101111011000110111010001101001011101100110111100100000011101100110110001100001011100110111010001101110011110010110110100100000011100000110000101110010011100110110010101110010011011110110110100100000001110110100010000101001")
 
(defn decode [s] (apply str(map #(char(BigInteger.% 2))(re-seq #".{8}"s))))
 
(print (decode text))

1
2
3
4
5
(def text "0100000101101010001000000110101001100001001000000111001101100001001000000111000001110010011010010111000001100001011010100110000101101101001011000010000001110011011101000110000101110011011101000110111001100101001000000110000100100000011100100110000101100100011011110111001101110100011011100110010100100000010101100110100101100001011011100110111101100011011001010010000001110000011011000110111001100101001000000110110001100001011100110110101101111001001000000110000100100000011100000110111101101011011011110110101001100001001000000111011001110011011001010111010001101011011110010110110100101100001000000110001101101111001000000110001101101001011101000110000101101010011101010010000001110100011101010111010001101111001000000111001101110000011100100110000101110110011101010010000000101000011001000111010101100110011000010110110100101100001000000111101001100101001000000111000001101111011000110111010001101001011101100110111100100000011101100110110001100001011100110111010001101110011110010110110100100000011100000110000101110010011100110110010101110010011011110110110100100000001110110100010000101001")
 
(defn decode [s] (apply str(map #(char(Integer/parseInt% 2))(re-seq #".{8}"s))))
 
(print (decode text))

1
2
3
4
5
6
7
(def text "0100000101101010001000000110101001100001001000000111001101100001001000000111000001110010011010010111000001100001011010100110000101101101001011000010000001110011011101000110000101110011011101000110111001100101001000000110000100100000011100100110000101100100011011110111001101110100011011100110010100100000010101100110100101100001011011100110111101100011011001010010000001110000011011000110111001100101001000000110110001100001011100110110101101111001001000000110000100100000011100000110111101101011011011110110101001100001001000000111011001110011011001010111010001101011011110010110110100101100001000000110001101101111001000000110001101101001011101000110000101101010011101010010000001110100011101010111010001101111001000000111001101110000011100100110000101110110011101010010000000101000011001000111010101100110011000010110110100101100001000000111101001100101001000000111000001101111011000110111010001101001011101100110111100100000011101100110110001100001011100110111010001101110011110010110110100100000011100000110000101110010011100110110010101110010011011110110110100100000001110110100010000101001")
 
(defn decode [s]
"Function decoding the binary string into a text."
(apply str(map #(->%(Integer/parseInt 2)char)(re-seq #".{8}"s))))
 
(print (decode text))

1
2
3
4
5
6
7
(def text "0100000101101010001000000110101001100001001000000111001101100001001000000111000001110010011010010111000001100001011010100110000101101101001011000010000001110011011101000110000101110011011101000110111001100101001000000110000100100000011100100110000101100100011011110111001101110100011011100110010100100000010101100110100101100001011011100110111101100011011001010010000001110000011011000110111001100101001000000110110001100001011100110110101101111001001000000110000100100000011100000110111101101011011011110110101001100001001000000111011001110011011001010111010001101011011110010110110100101100001000000110001101101111001000000110001101101001011101000110000101101010011101010010000001110100011101010111010001101111001000000111001101110000011100100110000101110110011101010010000000101000011001000111010101100110011000010110110100101100001000000111101001100101001000000111000001101111011000110111010001101001011101100110111100100000011101100110110001100001011100110111010001101110011110010110110100100000011100000110000101110010011100110110010101110010011011110110110100100000001110110100010000101001")
 
(defn decode [s]
"Function decoding the binary string into a text."
(apply str(map #(->%(Integer/parseInt 2)char)(re-seq #".{8}"s)))
 
(print (decode text))

1
((fn [s] (pr (apply str (map #(char (read-string (apply str "2r" %)))) (partition 8 s)))) "01010011011101000110000101110011011101000110111001100101001000000110000100100000010101100110010101110011011001010110110001100101001000000101011001101001011000010110111001101111011000110110010100100000011100000111001001100001011010100110010100100000010000010110010001100001")

1
(print (str (map char '(\d \o \g))))

1
(print (str '(\d \o \g)))

1
(str '(\d \o \g))

1
2
(println (.toString \a))
(println (apply str [\a \b \c]))

1
2
(println (.toString \a))
(println (apply str [\a]))

1
2
(println (reduce +         [1 2 4]))
(println (reduce .toString '(\a \b \c)))

1
2
(reduce +         [1 2 4])
(reduce .toString '(\a \b \c))

1
2
(println (.toString \a))
(println (apply .toString [\a]))

1
2
(println (.toString \a))
(println (reduce .toString [\a]))

1
2
(println (.toString \a))
(println (.toString [\a \b]))

1
2
(println (.toString \a))
(println (.toString [\a \b])

1
(println (.toString \a))

1
(.toString \a)

1
(reduce .toString '(\a \b \c))

1
(reduce .toString '(\a \b\ c\))