generalize > and < per Raynes

mytrile · May 8, 2012 · 5633cc8 · 5633cc8
1 parent 006801e
commit 5633cc8
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/src/noir/validation.clj b/src/noir/validation.clj
@@ -57,12 +57,18 @@
       false)))
 
 
-(defn greater-than-zero?
-  "Returns true if the string represents a positive number."
-  [v]
+(defn greater-than?
+  "Returns true if the string represents a number > given."
+  [v n]
   (and (valid-number? v)
-       (> (Long/parseLong v) 0)))
+       (> (Long/parseLong v) n)))
+
 
+(defn less-than?
+  "Returns true if the string represents a number < given."
+  [v n]
+  (and (valid-number? v)
+       (> (Long/parseLong v) n)))
 
 (declare ^:dynamic *errors*)