Factorial in Clojure without using alphanumeric characters

fact.swear.clj

;; It all started here: http://clojure-log.n01se.net/date/2011-04-06.html#19:04

(#((% (+(*))) %) ;; call arg 1 with all args
 [;; data
  (+ (*)(*)(*)(*)(*)(*)(*))
  ;; main fn -- simulate 'if' with map lookup and closures
  #(({(+) (% (+(*)(*)))} ;; if zero return 'then' clause
     (% (+)) ;; dispatch on first arg
     (% (+(*)(*)(*)))) ;; call 'else' clause (n not found in map)
    %)
  ;; These clauses are given the same args as main fn.
  ;; base case ('then')
  #({} % (+(*))) ;; constant fn of 1
  ;; recursive case ('else')
  #(* ((% (+(*)))
       [(- (% (+)) (+(*)))
        (% (+(*)))
        (% (+(*)(*)))
        (% (+(*)(*)(*)))])
      (% (+)))])
;; => 5040


;; Here's a simpler version that uses "if":
(#(% [% (+ (*)(*)(*)(*)(*)(*)(*))])
 #(if (= (% (*)) (+))
    (*)
    (* ((% (+))
        [(% (+)) (- (% (*)) (*))])
       (% (*)))))
;; => 5040