Выполнение сравнения в Clojure

Question

Разработал функцию в Clojure, чтобы проверить, соответствуют ли входы для: maxlength и: minlength длиной 1-3 символа, а текст в ассоциированном столбце находится в пределах min и max. Есть ли более чистый способ сделать это? Я был бы признателен, если предлагается более эффективный метод, особенно форма if.

(defn range-text-length 
"input = {:col val :minlength minlength :maxlength maxlength} 
    Expects 3 parameter key/value combinations: 
    :col The column containing the text value 
    :maxlength integer value greater than zero up to 3 characters long 
Catch any rows where the column contains text that is shorter than the Minimum Length or longer than the Maximum Length" 
[row input] 
(let [{:keys [col minlength maxlength ]} input 
    minlength-count (count (str minlength)) 
    maxlength-count (count (str maxlength)) 
    max (read-string (str maxlength)) 
    min (read-string (str minlength))] 
    (if (and (and (> maxlength-count 0) (<= maxlength-count 3) (number? max) (> max 0)) 
     (and (> minlength-count 0)(<= minlength-count 3)(number? min)(> min 0))) 
    (and (>= (count (get row col)) min) (<= (count (get row col)) max)) 
    (throw (Exception. "length must be a positive integer value with no more than 3 digits."))))) 

И я вызвать функцию таким образом:

(catch-out-of-range-text-length ["weert" "sertt" "qwertyuiopasdfg" "asert"] {:col 2 :minlength 2 :maxlength 15}) 

Answer 1

Во-первых: вложенными and избыточна. Поскольку код не может отличить, какая часть условия была ложной, нет эффекта вложенных вызовов на and, а не на то, чтобы положить все предложения в том же and.

Далее <, <=, > и >= все принимают переменное число аргументов, и с немного рефакторинга вы можете объединить вызовы, которые разделяют термин.

Наконец, вместо того, чтобы тестировать, если что-то больше 0, вы можете прямо проверить, положительно ли оно с pos?.

(defn range-text-length 
"input = {:col val :minlength minlength :maxlength maxlength} 
    Expects 3 parameter key/value combinations: 
    :col The column containing the text value 
    :maxlength integer value greater than zero up to 3 characters long 
Catch any rows where the column contains text that is shorter than the Minimum Length or longer than the Maximum Length" 
[row input] 
(let [{:keys [col minlength maxlength ]} input 
     minlength-count (count (str minlength)) 
     maxlength-count (count (str maxlength)) 
     max (read-string (str maxlength)) 
     min (read-string (str minlength))] 
    (if (and (> 4 maxlength-count 0) 
      (number? max) 
      (pos? max) 
      (> 4 minlength-count 0) 
      (number? min) 
      (pos? min)) 
    (>= max (count (get row col)) min) 
    (throw (Exception. "length must be a positive integer value with no more than 3 digits."))))) 

Answer 2

if пункта прибран и предпосылки используются, чтобы избежать загрязнять реальную цель функции с предполагаемыми предварительными условиями. Некоторые дополнительные examples

(defn range-text-length 
    "input = {:col val :minlength minlength :maxlength maxlength} 
    Expects 3 parameter key/value combinations: 
    :col The column containing the text value 
    :maxlength integer value greater than zero up to 3 characters long 
    Catch any rows where the column contains text that is shorter than the Minimum Length or longer than the Maximum Length" 
    [row input] 
    {: pre [(let [{:keys [col minlength maxlength ]} input 
        minlength-count (count (str minlength)) 
        maxlength-count (count (str maxlength)) 
        max (read-string (str maxlength)) 
        min (read-string (str minlength)) 
        crc (count (get row col))] 
       (not (and (pos? maxlength-count) 
         (pos? minlength-count) 
         (pos? max) 
         (pos? min) 
         (<= maxlength-count 3) 
         (<= minlength-count 3) 
         (>= crc min) 
         (<= crc max))))]} 
    (do (println "do my stuff with satisfied preconditions"))) 

Answer 3

Я вижу, что вы уже отметили @noisesmith как ответ. Несмотря на то, что происходит я играл вокруг и получает следующее:

(defn range-text-length 
    [row {:keys [col minlength maxlength] :as input}] 
    (if-let [x (and (and (pos? minlength) (< minlength 1000)) 
        (and (pos? maxlength) (< maxlength 1000)) 
        (and (>= (count (get row col)) minlength) 
         (<= (count (get row col)) maxlength)))] 
    true 
    (throw (Exception. "length must be a positive integer value with no more than 3 digits.")))) 

Несмотря на VARIADIC способности and я отделенной для удобства чтения.

EDIT: покончил с if-let:

(defn range-text-length 
    [row {:keys [col minlength maxlength] :as input}] 
    (or (and (and (pos? minlength) (< minlength 1000)) 
      (and (pos? maxlength) (< maxlength 1000)) 
      (and (>= (count (get row col)) minlength) 
       (<= (count (get row col)) maxlength))) 
    (throw (Exception. "length must be a positive integer value with no more than 3 digits.")))) 

Answer 4

Я думаю, что следующее эквивалентен твое:

(defn range-text-length [row input] 
    (let [in-range? (fn [n] (< 0 n 1000)) 
     {:keys [col minlength maxlength ]} input 
     ] 
    (if (every? in-range? [minlength maxlength]) 
     (<= minlength (count (row col)) maxlength) 
     (throw (Exception. "length must be a positive integer with no more than 3 digits.")))))