diff --git a/README.md b/README.md index 2dfd2c5..bda7dfb 100644 --- a/README.md +++ b/README.md @@ -10,12 +10,12 @@ Combine predicates into new ones, plus a bunch of predicates on strings. (integer? "-123213") (web-url "http://foo.bar/somewhere") (hex? "deadb33f") - (length? "bla" 3) - (length? "bla" 2 4) + (length? 3 "bla") + (length? 2 4 "bla) ((every-p? natural - #(length % 2 3)) + (partial length 2 3)) "123") ## License diff --git a/src/pretzel/strings.clj b/src/pretzel/strings.clj index 681bf0b..7fc552d 100644 --- a/src/pretzel/strings.clj +++ b/src/pretzel/strings.clj @@ -5,9 +5,9 @@ (defn length? "true if length of string s is len or within the range [min ... max]" - ([^String s len] + ([^String len s] (= (.length s) len)) - ([^String s min max] + ([^String min max s] (<= min (.length s) max))) (defn natural?