(defn cutting
    [str result]
    (if (empty? str)
        result
        (recur (rest str) (conj result str))))
(defn cutting-string 
    [string]
    (map #(apply str %) (cutting string [])))

(defn star-end-pattern
  "匹配結(jié)尾是星號(hào)的情況"
  [pattern pattern-point]
  (if (and (< pattern-point (count pattern))
           (= \* (nth pattern pattern-point)))
    (recur pattern (inc pattern-point))
    (>= pattern-point (count pattern))))

(defn next-star-point
  "獲得最右方的星號(hào)位置"
  [pattern pattern-point]
  (cond (>= (inc pattern-point) (count pattern))
        pattern-point,
        (= \* (nth pattern (inc pattern-point)))
        (recur pattern (inc pattern-point)),
        (not= \* (nth pattern (inc pattern-point)))
        pattern-point))

(defn match
  "匹配帶通配符的字符串"
  [pattern string pattern-point string-point]
  (let [str-length (count string),
        pattern-length (count pattern)]
    (cond
      (>= string-point str-length)                          ;;字符串到了末尾（結(jié)束）的情況，可以繼續(xù)被 * 匹配
      (star-end-pattern pattern pattern-point),

      (>= pattern-point pattern-length) false,              ;;如果匹配串結(jié)束但是字符串沒有結(jié)束

      (= \* (nth pattern pattern-point))                    ;; 通配符匹配
      (let [p-behind-star (subs pattern (inc (next-star-point pattern pattern-point))),
            strs (cutting-string (subs string string-point str-length)),
            result (map #(match p-behind-star % 0 0)
                        (cutting-string (subs string string-point str-length)))]
            (not (empty? (filter true? result))))

      (not= (nth pattern pattern-point) (nth string string-point)) false, ;;非通配符匹配失敗

      :else (recur pattern string (inc pattern-point) (inc string-point)))))

(defn match-filename
  [fmt file]
  (match fmt file 0 0))

簡(jiǎn)單測(cè)試

(match-filename "*a*b" "aababa")
=> false
(match-filename "*a*b" "aaab")
=> true
(match-filename "*a*b" "aabab")
=> true
(match-filename "*a*b*" "aabab")
=> true
(match-filename "*a*b*" "ab")
=> true