Racket 语言中的第一个字符串以第二个字符串开头

Question

我正在设计一个函数，它接受两个字符串和 returns 一个布尔值，指示第一个字符串是否以球拍语言中的第二个字符串开头。

这是我现在拥有的：

(define (string-starts-with? s1 s2)
  (cond
  [(string=? s1 s2) #true]
  [else #false]))

Answer 1

有一个内置程序，您可以使用：

(define (string-starts-with? s1 s2)
  ; checks if s1 starts with s2
  (string-prefix? s1 s2))

(string-starts-with? "foobar" "foo")
=> #t
(string-starts-with? "foobar" "baz")
=> #f

Racket 语言中的第一个字符串以第二个字符串开头

First String begins with second String in Racket language

string

racket