gistfile1.txt

(user)> (def (pregexp-match* re str (start 0) (end (string-length str)))
            (def (%m start end)
                (if (= start end)
                    '() (let ((first (pregexp-match-positions re str start end)))
                          (if (not first) '() 
                              (cons (cadr first) (%m (+ 1 start) end))))))
          (let ((idxs (delete-duplicates (%m start end) equal?)))
            (map (lambda (idx) (substring str (car idx) (cdr idx))) idxs)))
            
#!void
(user)> (pregexp-match* "(a)" "aa ab ac")
("a" "a" "a" "a")

(user)> (def (pregexp-match* re str (start 0) (end (string-length str)))
            (def (%m start end)
                (if (= start end)
                    '() (let ((first (pregexp-match-positions re str start end)))
                          (if (not first) '() 
                              (cons (if (null? (cddr first)) 
                                        (list (cadr first)) (cdr first)) (%m (+ 1 start) end))))))
          (let ((idxs (delete-duplicates (apply append (%m start end)) equal?)))
           (map (lambda (idx) (substring str (car idx) (cdr idx))) idxs) ))
#!void
(user)> (pregexp-match* "(a)(a)" "aa aa aa")
("a" "a" "a" "a" "a" "a")
(user)> `

(user)> 
      (def (pregexp-match* re str (start 0) (end (string-length str)))
            (def (%m start end)
                (if (= start end)
                    '() 
                    (let ((first (pregexp-match-positions re str start end)))
                      (if (not first) '() 
                          (cons (if (null? (cddr first)) 
                                    (cadr first) (cdr first)) (%m (+ 1 start) end))))))
          (let ((idxs (delete-duplicates (flatten1 (%m start end)) equal?)))
            (map (lambda (idx) (substring str (car idx) (cdr idx))) idxs) ))
#!void
(user)> (pregexp-match* "(a)(a)" "aa aa aa")
("a" "a" "a" "a" "a" "a")
(user)>