PasteRack.org
Paste # 4613
2017-02-23 11:44:41

Fork as a new paste.

Paste viewed 332 times.


Embed:

  1. #lang racket
  2.         (define (sufix-of prefix str)
  3.          (let loop ((str2 (string->list str))
  4.                  (prefix2 (string->list prefix)));
  5.                  (cond ((null? str2) #t)
  6.                  ((null? prefix2) #f)
  7.                  ((equal? (car str2) (car prefix2))
  8.                 (loop (cdr str2) (cdr prefix2)))
  9.                  (else #f))))
  10.  
  11.  
  12. (sufix-of "maria" "ana maria")

=>

#f