mudphone

;; Y-Combinator in Clojure
;; based on: http://mvanier.livejournal.com/2897.html

;; This is the simple naive implementation.
(defn simple-factorial
  "A simple, naive implementation of the factorial function."
  [n]
  (if (= n 0)
    1
    (* n (simple-factorial (dec n)))))

michiakig

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ant sim ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;   Copyright (c) Rich Hickey. All rights reserved.
;   The use and distribution terms for this software are covered by the
;   Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
;   which can be found in the file CPL.TXT at the root of this distribution.
;   By using this software in any fashion, you are agreeing to be bound by
;   the terms of this license.
;   You must not remove this notice, or any other, from this software.

;dimensions of square world