tidy up example fns (again)

jan-g · May 29, 2013 · 1739878 · 1739878
1 parent a0eed71
commit 1739878
Showing 1 changed file with 8 additions and 9 deletions.
diff --git a/rubiks.clj b/rubiks.clj
@@ -57,13 +57,12 @@
 (defn generate-undo-seq [fs]
   (mapcat (partial repeat 3) (reverse fs)))
 
-(do
-  (println "===================")
+
+(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)
-  (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)))
+  (print-cube moved-cube)
+  (print-cube solved-cube))