(defun f (A |a| B)
  (let* ((i (position |a| A))
         (A2 (nconc (subseq A i) (subseq A 0 i))))
    (sort (copy-seq B) (lambda (x y) (< (position x A2) (position y A2))))))
 
(defun g (A |a| B)
  (let ((i (position |a| A)))
    (loop with result = '()
          for x in (nconc (subseq A i) (subseq A 0 i))
          when (member x B)
          do (loop repeat (count x B) do (push x result))
          finally (return (nreverse result)))))
 
(dolist (fn '(f g))
  (format t "~S:~%" fn)
  (loop for args in '(((2 3 5 7 9) 2 (9 2 5))
                      ((2 3 5 7 9) 9 (9 2 5))
                      ((2 3 5 7 9) 5 (9 2 5))
                      ((2 3 5 7 9) 3 (9 2 5 5 2)))
        do (format t "~{A = ~S, a = ~S, B = ~S~} ~42T =>  ~S~%"
                   args
                   (apply fn args)))
  (terpri))
 
(defmacro b (n exp)
  `(progn
     (write-line "==================================================")
     (time (loop repeat n do ,exp
                 finally (format t "Evaluated ~S ~D times." ',exp ,n)))))
 
(compile 'f)
(compile 'g)
(let ((n 80000))
  (b n (f '(2 3 5 7 9) 9 '(7 3 3 5 2 2 2 7 7 5 3 9)))
  (b n (g '(2 3 5 7 9) 9 '(7 3 3 5 2 2 2 7 7 5 3 9))))
 

KGRlZnVuIGYgKEEgfGF8IEIpCiAgKGxldCogKChpIChwb3NpdGlvbiB8YXwgQSkpCiAgICAgICAgIChBMiAobmNvbmMgKHN1YnNlcSBBIGkpIChzdWJzZXEgQSAwIGkpKSkpCiAgICAoc29ydCAoY29weS1zZXEgQikgKGxhbWJkYSAoeCB5KSAoPCAocG9zaXRpb24geCBBMikgKHBvc2l0aW9uIHkgQTIpKSkpKSkKCihkZWZ1biBnIChBIHxhfCBCKQogIChsZXQgKChpIChwb3NpdGlvbiB8YXwgQSkpKQogICAgKGxvb3Agd2l0aCByZXN1bHQgPSAnKCkKICAgICAgICAgIGZvciB4IGluIChuY29uYyAoc3Vic2VxIEEgaSkgKHN1YnNlcSBBIDAgaSkpCiAgICAgICAgICB3aGVuIChtZW1iZXIgeCBCKQogICAgICAgICAgZG8gKGxvb3AgcmVwZWF0IChjb3VudCB4IEIpIGRvIChwdXNoIHggcmVzdWx0KSkKICAgICAgICAgIGZpbmFsbHkgKHJldHVybiAobnJldmVyc2UgcmVzdWx0KSkpKSkKCihkb2xpc3QgKGZuICcoZiBnKSkKICAoZm9ybWF0IHQgIn5TOn4lIiBmbikKICAobG9vcCBmb3IgYXJncyBpbiAnKCgoMiAzIDUgNyA5KSAyICg5IDIgNSkpCiAgICAgICAgICAgICAgICAgICAgICAoKDIgMyA1IDcgOSkgOSAoOSAyIDUpKQogICAgICAgICAgICAgICAgICAgICAgKCgyIDMgNSA3IDkpIDUgKDkgMiA1KSkKICAgICAgICAgICAgICAgICAgICAgICgoMiAzIDUgNyA5KSAzICg5IDIgNSA1IDIpKSkKICAgICAgICBkbyAoZm9ybWF0IHQgIn57QSA9IH5TLCBhID0gflMsIEIgPSB+U359IH40MlQgPT4gIH5TfiUiCiAgICAgICAgICAgICAgICAgICBhcmdzCiAgICAgICAgICAgICAgICAgICAoYXBwbHkgZm4gYXJncykpKQogICh0ZXJwcmkpKQoKKGRlZm1hY3JvIGIgKG4gZXhwKQogIGAocHJvZ24KICAgICAod3JpdGUtbGluZSAiPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0iKQogICAgICh0aW1lIChsb29wIHJlcGVhdCBuIGRvICxleHAKICAgICAgICAgICAgICAgICBmaW5hbGx5IChmb3JtYXQgdCAiRXZhbHVhdGVkIH5TIH5EIHRpbWVzLiIgJyxleHAgLG4pKSkpKQoKKGNvbXBpbGUgJ2YpCihjb21waWxlICdnKQoobGV0ICgobiA4MDAwMCkpCiAgKGIgbiAoZiAnKDIgMyA1IDcgOSkgOSAnKDcgMyAzIDUgMiAyIDIgNyA3IDUgMyA5KSkpCiAgKGIgbiAoZyAnKDIgMyA1IDcgOSkgOSAnKDcgMyAzIDUgMiAyIDIgNyA3IDUgMyA5KSkpKQo=