0. #lang racket
1.  
2. (define (gypsy keyword sentence)
3.   (let ([result
4.          (foldl (lambda (str1 str2)
5.                   (string-append str1 " " str2))
6.                 ""
7.                 (map glue-phrase
8.                      (let ([words (filter pair? (sentence->syllables sentence))]
9.                            [keyword (word->syllables keyword)])
10.                        (let loop ([words words]
11.                                   [processed null])
12.                          (match words
13.                                 [`(,x ,y . ,z)
14.                                  (loop (cdr words)
15.                                        (cons (encode-word y x) processed))]
16.                                 [`(,x . ,z) #:when (null? z)
17.                                  (cons (encode-word keyword x) processed)]
18.                                 [_
19.                                  processed])))))])
20.     (substring result 0 (- (string-length result) 1))))
21.  
22. (define (encode-word keyword word)
23.       (cons (cons (car keyword) (cdr word))
24.             (list (cons (car word) (cdr keyword)))))
25.  
26. (define (glue-phrase phrase)
27.   (string-append
28.    (apply string-append
29.           (car phrase))
30.    " "
31.    (apply string-append
32.           (cadr phrase))))
33.  
34. (gypsy "груша" "Католическая философия со времен Августина до эпохи возрождения")

=>

sentence->syllables: undefined;

cannot reference an identifier before its definition

in module: 'm