0. #lang racket
1.  
2. (define (vowel? char)
3.   (if (regexp-match #rx"[ауоыиэяюёеАУОЫИЭЯЮЁЕ]"
4.                     (string char))
5.       #t
6.       #f))
7.  
8. (define (consonant? char)
9.   (if (regexp-match #rx"[бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ]"
10.                     (string char))
11.       #t
12.       #f))
13.  
14. (define (delimiter? char)
15.   (if (regexp-match #rx"[ьъЬЪ]"
16.                     (string char))
17.       #t
18.       #f))
19.  
20. (define (sonorous? char)
21.   (if (regexp-match #rx"[лмнрйЛМНРЙ]"
22.                     (string char))
23.       #t
24.       #f))
25.  
26. (define (skip-syllables chars)
27.   (let loop ([chars chars]
28.              [syllable null])
29.     (if (null? chars)
30.         (cons chars syllable)
31.         (if (not (consonant? (car chars)))
32.             (cons chars syllable)
33.             (loop (cdr chars)
34.                   (cons (car chars) syllable))))))
35.  
36. (define (word->syllables word)
37.   (reverse
38.    (map
39.     (compose list->string reverse)
40.     (let loop ([chars (string->list word)]
41.                [syllables null])
42.       (let* ([chars-syl (skip-syllables chars)]
43.              [chars (car chars-syl)]
44.              [syllable (cdr chars-syl)])
45.         (match chars
46.                [`(,x ,y . ,z) #:when (and (delimiter? x)
47.                                           (vowel? y)
48.                                           (list? z))
49.                 (loop (cdr chars)
50.                       (cons (append (cons x syllable)
51.                                     (car syllables))
52.                             (cdr syllables)))]
53.                [`(,x ,y ,z . ,w) #:when (and (vowel? x)
54.                                              (sonorous? y)
55.                                              (consonant? z)
56.                                              (list? w))
57.                 (loop (cddr chars)
58.                       (cons `(,y ,x . ,syllable)
59.                             syllables))]
60.                [`(,x ,y ,z . ,w) #:when (and (vowel? x)
61.                                              (consonant? y)
62.                                              (delimiter? z)
63.                                              (list? w))
64.                 (loop (cdddr chars)
65.                       (cons `(,z ,y ,x . ,syllable)
66.                             syllables))]
67.                [(cons x y) #:when (and (vowel? x)
68.                                        (list? y))
69.                 (loop (cdr chars)
70.                       (cons (cons x syllable)
71.                             syllables))]
72.                [null
73.                 (if (not (pair? syllables))
74.                     null
75.                     (cons (append syllable
76.                                   (car syllables))
77.                           (cdr syllables)))]
78.                [_
79.                 syllables]))))))
80.  
81. (define (sentence->syllables sentence)
82.   (map
83.     word->syllables
84.     (string-split sentence)))
85.  
86. (sentence->syllables "Католическая философия в том смысле в котором я буду применять этот термин это философское направление господствовавшее в европейской мысли со времен Августина до эпохи возрождения")

=>

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