0. #lang racket
1.  
2. ;; Задание 1
3. (define (process-text text old-word new-word)
4.   (map (lambda (sentence)
5.          (map (lambda (word)
6.                 (if (equal? word old-word)
7.                     new-word
8.                     word))
9.               sentence))
10.        text))
11.  
12. (define test-text
13. '(
14.   (one two three)
15.   (five six one)
16.   (seven one eight)
17.   (nine ten eleven)))
18.  
19. test-text
20. (process-text test-text 'one 'two)
21.  
22. ;; Задание 2
23.  
24. (define (vowel? char)
25.   (if (regexp-match #rx"[ауоыиэяюёеАУОЫИЭЯЮЁЕ]"
26.                     (string char))
27.       #t
28.       #f))
29.  
30. (define (consonant? char)
31.   (if (regexp-match #rx"[бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ]"
32.                     (string char))
33.       #t
34.       #f))
35.  
36. (define (delimiter? char)
37.   (if (regexp-match #rx"[ьъЬЪ]"
38.                     (string char))
39.       #t
40.       #f))
41.  
42. (define (sonorous? char)
43.   (if (regexp-match #rx"[лмнрйЛМНРЙ]"
44.                     (string char))
45.       #t
46.       #f))
47.  
48. (define (skip-syllables chars)
49.   (let loop ([chars chars]
50.              [syllable null])
51.     (if (null? chars)
52.         (cons chars syllable)
53.         (if (not (consonant? (car chars)))
54.             (cons chars syllable)
55.             (loop (cdr chars)
56.                   (cons (car chars) syllable))))))
57.  
58. (define (word->syllables word)
59.   (reverse
60.    (map
61.     (compose list->string reverse)
62.     (let loop ([chars (string->list word)]
63.                [syllables null])
64.       (let* ([chars-syl (skip-syllables chars)]
65.              [chars (car chars-syl)]
66.              [syllable (cdr chars-syl)])
67.         (match chars
68.                [`(,x ,y . ,z) #:when (and (delimiter? x)
69.                                           (vowel? y)
70.                                           (list? z))
71.                 (loop (cdr chars)
72.                       (cons (append (cons x syllable)
73.                                     (car syllables))
74.                             (cdr syllables)))]
75.                [`(,x ,y ,z . ,w) #:when (and (vowel? x)
76.                                              (sonorous? y)
77.                                              (consonant? z)
78.                                              (list? w))
79.                 (loop (cddr chars)
80.                       (cons `(,y ,x . ,syllable)
81.                             syllables))]
82.                [`(,x ,y ,z . ,w) #:when (and (vowel? x)
83.                                              (consonant? y)
84.                                              (delimiter? z)
85.                                              (list? w))
86.                 (loop (cdddr chars)
87.                       (cons `(,z ,y ,x . ,syllable)
88.                             syllables))]
89.                [(cons x y) #:when (and (vowel? x)
90.                                        (list? y))
91.                 (loop (cdr chars)
92.                       (cons (cons x syllable)
93.                             syllables))]
94.                [null
95.                 (if (not (pair? syllables))
96.                     null
97.                     (cons (append syllable
98.                                   (car syllables))
99.                           (cdr syllables)))]
100.                [_
101.                 syllables]))))))
102.  
103. (define (sentence->syllables sentence)
104.   (map
105.     word->syllables
106.     (string-split sentence)))
107.  
108. (sentence->syllables "Католическая философия в том смысле в котором я буду применять этот термин это философское направление господствовавшее в европейской мысли со времен Августина до эпохи возрождения")
109.  
110. ;; Задание 3
111. (define (gossip keyword sentence)
112.   (substring
113.    (foldl (lambda (str1 str2)
114.             (string-append str2 " " str1))
115.           ""
116.           (map glue-phrase
117.                (let ([keyword (word->syllables keyword)]
118.                      [words (filter pair? (sentence->syllables sentence))])
119.                  (map (curry encode-word keyword)
120.                       words))))
121.    1))
122.  
123. (define (encode-word keyword word)
124.       (cons (cons (car keyword) (cdr word))
125.             (list (cons (car word) (cdr keyword)))))
126.  
127. (define (glue-phrase phrase)
128.   (string-append
129.    (apply string-append
130.           (car phrase))
131.    " "
132.    (apply string-append
133.           (cadr phrase))))
134.  
135. (gossip "груша" "Католическая философия в том смысле в котором я буду применять этот термин это философское направление господствовавшее в европейской мысли со времен Августина до эпохи возрождения")
136.  
137.  
138. ;; Задание 4
139.  
140. (define (gypsy keyword sentence)
141.   (let ([result
142.          (foldl (lambda (str1 str2)
143.                   (string-append str1 " " str2))
144.                 ""
145.                 (map glue-phrase
146.                      (let ([words (filter pair? (sentence->syllables sentence))]
147.                            [keyword (word->syllables keyword)])
148.                        (let loop ([words words]
149.                                   [processed null])
150.                          (match words
151.                                 [`(,x ,y . ,z)
152.                                  (loop (cdr words)
153.                                        (cons (encode-word y x) processed))]
154.                                 [`(,x . ,z) #:when (null? z)
155.                                  (cons (encode-word keyword x) processed)]
156.                                 [_
157.                                  processed])))))])
158.     (substring result 0 (- (string-length result) 1))))
159.  
160.  (gypsy "груша" "Католическая философия в том смысле в котором я буду применять этот термин это философское направление господствовавшее в европейской мысли со времен Августина до эпохи возрождения")

=>

'((one two three) (five six one) (seven one eight) (nine ten eleven))

'((two two three) (five six two) (seven two eight) (nine ten eleven))

'(("Ка" "то" "ли" "че" "ска" "я")   ("фи" "ло" "со" "фи" "я")   ()   ("том")   ("смы" "сле")   ()   ("ко" "то" "ром")   ("я")   ("бу" "ду")   ("при" "ме" "нять")   ("э" "тот")   ("тер" "мин")   ("э" "то")   ("фи" "ло" "со" "фско" "е")   ("на" "пра" "вле" "ни" "е")   ("го" "спо" "дство" "ва" "вше" "е")   ()   ("е" "вро" "пей" "ской")   ("мы" "сли")   ("со")   ("вре" "мен")   ("А" "вгу" "сти" "на")   ("до")   ("э" "по" "хи")   ("во" "зро" "жде" "ни" "я"))

"грутолическая Каша грулософия фиша гру томша грусле смыша грутором коша гру яша груду буша груменять приша грутот эша грумин терша груто эша грулософское фиша груправление наша грусподствовавшее гоша грувропейской еша грусли мыша гру соша грумен вреша грувгустина Аша гру доша групохи эша грузрождения воша"

"фитолическая Калософия томлософия фи смы томсле косле смытором ятором ко бу яду приду буменять эменять притот тертот эмин эмин терто фито элософское налософское фиправление гоправление насподствовавшее есподствовавшее говропейской мывропейской если сосли мы вре сомен Амен вревгустина довгустина А э допохи вопохи эзрождения грузрождения воша"