make the example fns a bit clearer

jan-g · May 29, 2013 · a0eed71 · a0eed71
1 parent dee32bb
commit a0eed71
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/rubiks.clj b/rubiks.clj
@@ -59,6 +59,11 @@
 
 (do
   (println "===================")
-  (let [moves [:F :U :D :R :L]]
-    (print-cube (apply-moves (apply-moves initial moves) (generate-undo-seq moves))))
-  )
+  (print-cube initial)
+  (let [moves [:F :U :D :R :L]
+        moved-cube (apply-moves initial moves)
+        undo-moves (generate-undo-seq moves)
+        solved-cube (apply-moves moved-cube undo-moves)]
+    (print-cube initial)
+    (print-cube moved-cube)
+    (print-cube solved-cube)))