Merge remote-tracking branch 'upstream/master'

.gitignore

@@ -10,3 +10,6 @@ pom.xml.asc
 /.nrepl-port
 .hgignore
 .hg/
+out
+notes
+.idea/

src/propeller/problems/software/number_io.cljc

@@ -37,7 +37,7 @@
 (defn random-float [] (- (* (rand) 200) 100.0))
 
 ; Random integer between -100 and 100
-(defn random-int [] (- (rand-int 201) 100.0))
+(defn random-int [] (- (rand-int 201) 100))
 
 (def instructions
   (utils/not-lazy

src/propeller/problems/software/smallest.cljc

@@ -38,7 +38,7 @@
 ;; =============================================================================
 
 ; Random integer between -100 and 100
-(defn random-int [] (- (rand-int 201) 100.0))
+(defn random-int [] (- (rand-int 201) 100))
 
 (def instructions
   (utils/not-lazy

src/propeller/push/state.cljc

@@ -38,9 +38,9 @@
 ;; Returns the top item on the stack
 (defn peek-stack
   [state stack]
-  (if-let [top-item (first (get state stack))]
-    top-item
-    :no-stack-item))
+  (if (empty? (get state stack))
+    :no-stack-item
+    (first (get state stack))))
 
 ;; Returns the top n items on the stack, as a chunk. If there are less than n
 ;; items on the stack, returns the entire stack