1
2
3
(println
 (reduce .concat (map .toString '(\A \B \C)))
)

1
2
3
(println
 (reduce .concat (map str '(\A \B \C)))
)

1
2
3
(println
 (reduce .concat (map str'(\A \B \C)))
)

1
2
3
(println
 (reduce .concat '(\A \B \C))
)

1
2
3
(println
 (.concat (reduce (str '(\A \B \C))))
)

1
2
3
(println
 (.concat (apply (str '(\A \B \C))))
)

1
2
3
(println
 (.concat (str '(\A \B \C)))
)

1
2
3
(println
(.concat (re-seq #"[A-Z]+" "NoodleS"))
)

1
2
3
(println
(reduce + (re-seq #"[A-Z]+" "NoodleS"))
)

1
2
3
(println
(apply + (re-seq #"[A-Z]+" "NoodleS"))
)

1
2
3
(println
(apply + (re-seq #"[A-Z]+" "NoodleS"))
)

1
2
3
(println
(str (re-seq #"[A-Z]+" "NoodleS"))
)

1
(println (map str [\a \b \c]))

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

1
(println (String. [\a \b \c]))

1
(println (str [\a \b \c]))

1
(str [\a \b \c])

1
(str [a b c])

1
2
3
4
5
6
7
8
9
(def text "0100000101101010001000000110101001100001001000000111001101100001001000000111000001110010011010010111000001100001011010100110000101101101001011000010000001110011011101000110000101110011011101000110111001100101001000000110000100100000011100100110000101100100011011110111001101110100011011100110010100100000010101100110100101100001011011100110111101100011011001010010000001110000011011000110111001100101001000000110110001100001011100110110101101111001001000000110000100100000011100000110111101101011011011110110101001100001001000000111011001110011011001010111010001101011011110010110110100101100001000000110001101101111001000000110001101101001011101000110000101101010011101010010000001110100011101010111010001101111001000000111001101110000011100100110000101110110011101010010000000101000011001000111010101100110011000010110110100101100001000000111101001100101001000000111000001101111011000110111010001101001011101100110111100100000011101100110110001100001011100110111010001101110011110010110110100100000011100000110000101110010011100110110010101110010011011110110110100100000001110110100010000101001")
 
(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
(println
(
#(re-seq #"[A-Z]" %)
 
"His Imperial NoodlyNess"
)
)

1
2
3
4
5
6
7
(println
(
#(str (re-seq #"[A-Z]" %))
 
"His Imperial NoodlyNess"
)
)

1
#(str (re-seq #"[A-Z]" %))

1
2
3
(println
(re-seq #"[A-Z]+" "NoodleS")
)

1
(re-seq #"[A-Z]+" "NoodleS")

1
#"[A-Z]+"

1
(#"[A-Z]+" "NoodleS")

1
2
3
(print
  (filter #(> 5 %) '(1 2 6 7))
)

1
2
3
(print
  (filter #(> 5) '(1 2 6 7))
)

1
2
3
(print
  (filter (> 5) '(1 2 6 7))
)

1
(print [5 8])