suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added string-contains? at request from Ostermann

Browse Source
This commit is contained in:
Matthias Felleisen 2012-06-23 19:34:10 -04:00
parent 48e07fb2ab
commit 2981cbfd68
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/lang/private/teachprims.rkt
View File

@ -567,6 +567,14 @@ namespace.
(cerr 'string-lower-case? (string? s) "string" s) (cerr 'string-lower-case? (string? s) "string" s)
(andmap char-lower-case? (string->list s)))) (andmap char-lower-case? (string->list s))))
;; -----------------------------------------------------------------------------
(define-teach beginner string-contains?
(lambda (s t)
(cerr 'string-contains? (string? s) "string" s)
(cerr 'string-contains? (string? t) "string" t)
(cons? (regexp-match s t))))
(provide (provide
beginner-string-ith beginner-string-ith
beginner-replicate beginner-replicate
@ -578,4 +586,6 @@ namespace.
beginner-string-alphabetic? beginner-string-alphabetic?
beginner-string-whitespace? beginner-string-whitespace?
beginner-string-upper-case? beginner-string-upper-case?
beginner-string-lower-case?) beginner-string-lower-case?
beginner-string-contains?
)