text rules matching

rules.clj

(ns my.chat
  (:require [clojure.string :as str]))
            

(def rules
  [["hello" "hello you"]
   ["bye" "see you soon"]
   ["my name is Riccardo" "nice to meet you Riccardo"]])

(defn respond-fixed [input]
  (or (second (first (filter (fn [[in out]]
                                (= in input))
                             rules)))
      "please say it again"))

[(respond-fixed "bye")
 (respond-fixed "my name is Riccardo")
 (respond-fixed "my name is Frank")
 (respond-fixed "i am happy")]

(def rules-loose
  [["hello" "hello you"]
   ["bye" "see you soon"]
   ["my name is" "nice to meet you anonymous"]])

(defn respond-loose [input]
  (or (second (first (filter (fn [[in out]]
                                (str/includes? input in))
                             rules-loose)))
      "please say it again"))

[(respond-loose "bye")
 (respond-loose "my name is Riccardo")
 (respond-loose "my name is Frank")
 (respond-loose "i am happy")]

(def rules-smart
  [[#"hello (.*)" "nice to meet you "]
   [#"bye (.*)" "see you soon "]])

(defn match-rule [in [pattern out]]
    (when-let [[_ dyn] (re-matches pattern in)]
        (str out dyn)))

(defn respond-smart [input]
  (or (some (partial match-rule input)
            rules-smart)
      "please say it again"))

[(respond-smart "hello Riccardo")
 (respond-smart "hello Franck")
 (respond-smart "bye Franck")]