source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
9
10
11
12
(defn re-quote [s]
  (let [special (set ".?*+^$[]\\(){}|")
        escfn #(if (special %) (str \\ %) %)]
    (apply str (map escfn s))))
 
 
(let [string "ab(c\\Sdef[A-Z]gh)i|kl^m"
      quoted (re-quote string)
      matches (re-matches (re-pattern quoted) string)]
  (println "string:" string)
  (println "quoted:" quoted)
  (println "mathes:" matches))

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 1:   hide show   clone   input   307 days 11 hours ago    Success

  result: Success     time: 1.18s    memory: 220224 kB     returned value: 0

  input: no
  output:

  string: ab(c\Sdef[A-Z]gh)i|kl^m
  quoted: ab\(c\\Sdef\[A-Z\]gh\)i\|kl\^m
  mathes: ab(c\Sdef[A-Z]gh)i|kl^m