Succ and pred

Author: zmactep

strats/simple.clj

@@ -28,10 +28,10 @@
 (def LM 5)
 (def GHOST 6)
 
-(def at [world-map x y]
+(defn at [world-map x y]
   (nth (nth (world-map) y) x))
 
-(def neighbour [pos direction]
+(defn neighbour [pos direction]
   (let [x (head pos)
         y (tail pos)]
     (if (== direction UP)

strats/stdlib.clj

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