Merge branch 'master' of github.com:lambda-llama/icfpc2014

Author: superbobry

strats/simple.clj

@@ -1,55 +1,6 @@
 (defn main [world undocumented]
   '(initial_state step_fn))
 
-(defn world-map [world]
-  (head world))
-
-(defn lambda-man [world]
-  (nth world 2))
-
-(defn direction [actor]
-  (nth actor 3))
-
-(defn location [actor]
-  (nth actor 2))
-
-(def UP 0)
-(def LEFT 1)
-(def DOWN 2)
-(def RIGHT 3)
-(def DIRECTIONS [UP RIGTH DOWN LEFT UP RIGHT])
-
-
-(def WALL 0)
-(def EMPTY 1)
-(def PILL 2)
-(def POWER-PILL 3)
-(def FRUIT 4)
-(def LM 5)
-(def GHOST 6)
-
-(def at [world-map x y]
-  (nth (nth (world-map) y) x))
-
-(def neighbour [pos direction]
-  (let [x (head pos)
-        y (tail pos)]
-    (if (== direction UP)
-      '(x, (prev y))
-      (if (== direction LEFT)
-        '((prev x), y)
-        (if (== direction DOWN)
-          '(x, (succ y))
-          '((succ x), y))))))
-
-(defn next [direction]
-  (nth DIRECTIONS (succ direction)))
-
-(defn back [direction]
-  (if (== direction UP)
-    RIGHT
-    (nth DIRECTIONS (pred direction))))
-
 (def initial_state
   0)
 

strats/stdgame.clj

@@ -0,0 +1,49 @@
+(def UP 0)
+(def LEFT 1)
+(def DOWN 2)
+(def RIGHT 3)
+(def DIRECTIONS [UP RIGTH DOWN LEFT UP RIGHT])
+
+
+(def WALL 0)
+(def EMPTY 1)
+(def PILL 2)
+(def POWER-PILL 3)
+(def FRUIT 4)
+(def LM 5)
+(def GHOST 6)
+
+
+(defn world-map [world]
+  (head world))
+
+(defn lambda-man [world]
+  (nth world 2))
+
+(defn direction [actor]
+  (nth actor 3))
+
+(defn location [actor]
+  (nth actor 2))
+
+(defn at [world-map x y]
+  (nth (nth (world-map) y) x))
+
+(defn neighbour [pos direction]
+  (let [x (head pos)
+        y (tail pos)]
+    (if (== direction UP)
+      '(x, (prev y))
+      (if (== direction LEFT)
+        '((prev x), y)
+        (if (== direction DOWN)
+          '(x, (succ y))
+          '((succ x), y))))))
+
+(defn next [direction]
+  (nth DIRECTIONS (succ direction)))
+
+(defn back [direction]
+  (if (== direction UP)
+    RIGHT
+    (nth DIRECTIONS (pred direction))))

strats/stdlib.clj

@@ -0,0 +1,8 @@
+(defn nth [list pos]
+  (if (== pos 0) (head list) (nth (tail list) (pred pos)))
+
+(defn succ [x]
+  (add x 1))
+
+(defn pred [x]
+  (sub x 1))

tosexp/.gitignore

@@ -0,0 +1,9 @@
+/target
+/classes
+/checkouts
+pom.xml
+pom.xml.asc
+*.jar
+*.class
+/.lein-*
+/.nrepl-port

tosexp/project.clj

@@ -0,0 +1,7 @@
+(defproject tosexp "0.1.0-SNAPSHOT"
+  :description "FIXME: write description"
+  :url "http://example.com/FIXME"
+  :license {:name "Eclipse Public License"
+            :url "http://www.eclipse.org/legal/epl-v10.html"}
+  :dependencies [[org.clojure/clojure "1.6.0"]
+                 [org.clojure/core.match "0.2.1"]])

tosexp/src/tosexp/core.clj

@@ -0,0 +1,20 @@
+(ns tosexp.core
+  (:use [clojure.core.match :only (match)])
+  (:require [clojure.walk :as w]))
+
+(defn transform [form]
+  (match
+   [(if (list? form) (vec form) form)]
+
+   [['+ a b]] (list 'Add (transform a) (transform b))
+   [(a :guard number?)] (list 'Const a)
+   ))
+
+(defn mytest []
+  (transform
+   '(+ 1 2)))
+
+(defn foo
+  "I don't do a whole lot."
+  [x]
+  (println x "Hello, World!"))