hello.clj

;; a program saying hello to the world
(use '[clojure.string :only (join)])
(def a (partial subs (slurp *file*)))
(def b #(a % (+ % 5)))
(print (join ", " [(b 20) (b 33)]))

hello2.clj

;; a program saying hello to the world
(use '[clojure.string :only (join)])
(let [a (partial subs (slurp *file*))]
  (print (join ", " (map #(a % (+ % 5)) [20 33]))))

hello3.clj

(->> 
  (map #(nth (str %) %2)
       '(hash dec nil? apply symbol? 
              " , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , "
              " , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , "
              remove-watch comporator print-ctor bit-shift-left chunk-append) 
       (range))
  (apply str)
  print)

hello4.clj

            ;==-----\\
            ;        \\\
            ;         \\\\
(ns ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
 ,  hello                                ,,,
  ,     (:use clojure.repl)                 ,,,
   ,        (:require clojure.string))         ,,,
    ,           ((defn                            ,,,
     ,              Hello-World!  [ by Tormaroe ]    ,,,
    ,           (println                          ,,,
   ,        (clojure.string/replace            ,,,
  ,     (first                              ,,,
 ,  (dir-fn 'hello))                     ,,,
#"-" ", "))) 00 00) ,,,,,,,,,,,,,,,,,,,,
            ;         ////
            ;        ///
            ;==-----//

(hello and hello2) Demonstrates loading a single function from a library, partial function application, file reading as well as the special file variable, the dispatch macro used to define an anonymous function literal, and a couple of string manipulation functions.

hello3 is totally different - it demonstrates the use of map on two sequences.