blob: b51d9e32c40a7c99488d4f1a8228c0a49bd113b7 (
plain)
1
2
3
4
5
6
|
#lang racket/base
(define/contract (rotate-string A B)
(-> string? string? boolean?)
(define doubled-A (string-append A A))
(and (= (string-length A) (string-length B))
(string-contains? doubled-A B)))
|
