Added pred int-gt-n?

src/main/cljc/dda/c4k_common/predicate.cljc

@@ -50,3 +50,8 @@
        (every? true?
                (map #(string? %) input))))
 
+(defn int-gt-n?
+  [n input]
+  (and (int? input)
+       (> input n)))
+

src/test/cljc/dda/c4k_common/predicate_test.cljc

@@ -54,4 +54,12 @@
 (deftest test-string-sequence?
   (is (true? (cut/string-sequence? ["hallo" "welt" "!"])))
   (is (false? (cut/string-sequence? ["hallo" 1 "welt" "!"])))
-  (is (false? (cut/string-sequence? "hallo welt!"))))
+  (is (false? (cut/string-sequence? "hallo welt!"))))
+
+(deftest test-int-gt-n?
+  (is (not (cut/int-gt-n? 5 0)))
+  (is (not (cut/int-gt-n? 5 "s")))
+  (is (not (cut/int-gt-n? 0 0)))
+  (is (cut/int-gt-n? 5 6))
+  (is ((partial cut/int-gt-n? 5) 10))
+  (is (not ((partial cut/int-gt-n? 5) 4))))