fork(1) download
copy 
  1. (defmacro case-it (keyform &body cases)
  2.   `(let ((it ,keyform))
  3.      (case it ,@cases)))
  4.  
  5. (defun match% (pattern string start end)
  6.   (macrolet ((match%% (i)
  7.                `(match% pattern string ,i end))
  8.              (next-pattern ()
  9.                `(or (pop pattern) (error "Pattern is incorrect"))))
  10.     (cond ((null pattern) (= start end))
  11.           ((= start end)  nil)
  12.           (t
  13.            (case-it (next-pattern)
  14.              (#\? (match%% (1+ start)))
  15.              (#\\ (and (eql (aref string start)
  16.                             (next-pattern))
  17.                        (match%% (1+ start))))
  18.              (#\* (loop :for i :from start :to end
  19.                         :for match-p := (match%% i) :until match-p
  20.                         :finally (return match-p)))
  21.              (t   (and (eql it (aref string start))
  22.                        (match%% (1+ start)))))))))
  23.  
  24. (defun match (pattern string &key (start 0) (end (length string)))
  25.   (match% (coerce pattern 'list) string start end))
  26.  
  27. (format t "~:[Not matched~;Matched~]" 
  28.   (match "as*d*?qwe*qwe" "as123dssqwe12345678qwe"))
Success #stdin #stdout 0.01s 10528KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Matched
https://ideone.com/KkcOyS
language:
Common Lisp (clisp 2.49.92)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!