fogus

(ns joc
  (:use [clojure.test]))

(defn rpn-orig
  ([tokens] (rpn-orig tokens []))
  ([[top & tail] stack]
     (lazy-seq
      (if top
	(if (fn? top)
	  (let [l (peek stack)

fogus

import scala.xml.{Node, Elem, Group}

/**
 * A path to a Node in a Node tree.
 */
sealed trait NodePath {
  def depth: Int
}

object NodePath {

fogus

(ns com.wangdera.slideshow
  (:use [clojure.contrib.test-is])
  (:import (java.io File)
	   (javax.imageio ImageIO)
	   (javax.swing JFrame JPanel Timer)
	   (java.awt Dimension Frame Color)
	   (java.awt.event ActionListener WindowAdapter)))

(def imagelist (atom []))
(def current-image (atom nil))

fogus

;   Copyright (c) Rich Hickey. All rights reserved.
;   The use and distribution terms for this software are covered by the
;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;   which can be found in the file epl-v10.html 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.

(set! *warn-on-reflection* true)

fogus

(defn listify [orig-list]
  "Turns (1 2 3 ...) into (1 (2 (3 (...)))) using continuation passing style."
  (loop [lst orig-list cont identity]
    (if (= () lst)
      (cont ())
      (recur (rest lst)
             (fn [insert] 
               (cont (cons (first lst)
                           (list insert))))))))

fogus

(comment
Features:
- One monster type: Zombies!
- Teleporters
- Artificial Unintelligence technology for realistic zombie horde
behavior
- Full in-game documentation
- Trees
- Gold (because really, what's a roguelike without gold?)
- Each game is guaranteed to end in death by zombie