38 lines
938 B
Racket
38 lines
938 B
Racket
#lang typed/racket/base
|
|
|
|
(require trivial/regexp)
|
|
|
|
;(: m1 (U #f (List String)))
|
|
;(define m1 (regexp-match: "hello" "hello world"))
|
|
;
|
|
;(: m2 (U #f (List String)))
|
|
;(define m2 (regexp-match: "hello" "world"))
|
|
;
|
|
;(: m3 (U #f (List String String)))
|
|
;(define m3 (regexp-match: "he(l*)o" "hellllloooo"))
|
|
;
|
|
;(: m4 (U #f (List String String String)))
|
|
;(define m4 (regexp-match: "he(l*)(o*)" "hellllloooo"))
|
|
|
|
(: m5 (U #f (List String String String)))
|
|
(define m5
|
|
(let ()
|
|
(define-regexp: rx "he(l*)(o*)")
|
|
(regexp-match: rx "helloooooooo")))
|
|
|
|
;(: m6 (U #f (List String String String)))
|
|
;(define m6
|
|
; (let ()
|
|
; (define-regexp: rx #rx"he(l*)(o*)")
|
|
; (regexp-match: rx "helloooooooo")))
|
|
|
|
;(: m7 (U #f (List String String String)))
|
|
;(define m7
|
|
; (let ()
|
|
; (define-regexp: rx (regexp "he(l*)(o*)"))
|
|
; (regexp-match: rx "helloooooooo")))
|
|
|
|
;(: m6 (U #f (List String String)))
|
|
;(define m5 (regexp-match: #rx"he(l*)o" "hellllloooo"))
|
|
|