Merge branch 'master' of github.com:cloojure/tupelo

src/cljc/tupelo/core.cljc

@@ -281,6 +281,31 @@
   "Abbreviated name for `newline` "
   [] (newline))
 
+;-----------------------------------------------------------------------------
+(s/defn int-pos? :- s/Bool
+  "Returns true iff x is an integer and is positive"
+  [arg] (and (int? arg) (pos? arg) ) )
+
+(s/defn int-neg? :- s/Bool
+  "Returns true iff x is an integer and is negative"
+  [arg] (and (int? arg) (neg? arg) ) )
+
+(s/defn int-nonneg? :- s/Bool
+  "Returns true iff x is an integer and is not negative"
+  [arg] (and (int? arg) (not (neg? arg))) )
+
+(s/defn int-nonpos? :- s/Bool
+  "Returns true iff x is an integer and is not positive"
+  [arg] (and (int? arg) (not (pos? arg))) )
+
+(s/defn nonneg? :- s/Bool
+  "Returns true iff x is not negative"
+  [arg] (not (neg? arg)) )
+
+(s/defn nonpos? :- s/Bool
+  "Returns true iff x is not positive"
+  [arg] (not (pos? arg)) )
+
 ;-----------------------------------------------------------------------------
 (s/defn not-nil? :- s/Bool
   "Returns true if arg is not nil; false otherwise. Equivalent to (not (nil? arg)),

test/cljc/tst/tupelo/core.cljc

@@ -104,6 +104,15 @@
     (isnt (t/quad? [:x :y :z]))
     (isnt (t/quad? inf-rng-1))))
 
+(dotest
+  (let [vals [-3.14 -2 0 2 3.14]]
+    (is= [false false false true false] (mapv t/int-pos? vals))
+    (is= [false true false false false] (mapv t/int-neg? vals))
+    (is= [false false true true false] (mapv t/int-nonneg? vals))
+    (is= [false true true false false] (mapv t/int-nonpos? vals))
+    (is= [false false true true true] (mapv t/nonneg? vals))
+    (is= [true true true false false] (mapv t/nonpos? vals))))
+
 (dotest
   (let [inf-rng-1 (map inc (range))
         tst-map   (t/glue (sorted-map) {:a 1 :b 2 :c 3 :d 4 :e 5 :f 6})]