match-string🔗 i

syntax

( string-append pat...)

(string-append expr...)

string-append

pat = match-pattern

| patooo

ooo = ...

| ...+

| ..k

> (match "abcdef"

[(string-append "abc"s)s])

"def"

> (match "ab cdef"

[(string-append (or "abc""ab c")s)s])

"def"

> (match "cadaddadddr"

[(string-append "c"(and x(or "a""d"))... "r")

x])

'("a" "d" "a" "d" "d" "a" "d" "d" "d")

> (match "abababab"

[(string-append (and los(or "ab""abab"))..3)

los])

'("abab" "ab" "ab")

> (match "abababab"

[(string-append (string-append (and lol"ab")...+)..3)

lol])

'(("ab" "ab") ("ab") ("ab"))

syntax

( append pat...)

(append expr...)

append

pat = match-pattern

| patooo

ooo = ...

| ...+

| ..k

> (match (list 123456)

[(append (list 123)p)p])

'(4 5 6)

> (match '(123. 4)

[(append (list 12)p)p])

'(3 . 4)

> (match '(123. 4)

[(append (list 123)p)p])

4

> (match '(01#:kw-1kw-arg-12#:kw-2kw-arg-234)

[(append (and lol(or (list (?keyword? )_ )(list (not (?keyword? )))))... )

lol])

'((0) (1) (#:kw-1 kw-arg-1) (2) (#:kw-2 kw-arg-2) (3) (4))

> (match '(abababab)

[(append (append (and lolol'(ab))...+)..3)

lolol])

'(((a b) (a b)) ((a b)) ((a b)))

> (match '(123. 4)

[(append (and l(or '(1)'(2)'(3)4))..4)l])

'((1) (2) (3) 4)

syntax

( string pat...)

(string expr...)

string

pat = match-pattern

| match-patternooo

ooo = ...

| ..k

procedure

( string/c arg...)→flat-contract?

arg:(or/c flat-contract? '...'...+..k?)