Освоение методики работы с символьными строками

#include <stdio.h>
#include <string.h>
int  min_len_word(const char* s);
void output_words(FILE* _out, const char* s);
 
int main(void){
    char s[] = "APL, PASCAL, ACTOR, PERL, ALGOL, GO, OBERON, ADA, LISP, ASM";
 
    printf("min word: %d\n", min_len_word(s));
    output_words(stdout, s);
    getchar();
    return 0;
}
 
//минимальная длинна слова
int min_len_word(const char* s){
    const char delim[] = " \t\n,.!?";
    int i, n = 0;
    for(i = 0; *s; s += i){
        s += strspn(s, delim);
        i  = (int)strcspn(s, delim);
        if(!n || (i > 0) && (i < n))
            n = i;
    }
    return n;
}
 
//выдать на печать все слова начинающиеся с гласной буквы
void output_words(FILE* _out, const char* s){
    const char vs[] = "AaEeOoIiYyUu";
    const char ds[] = " \t\n,.!?";
    size_t i;
    for(i = 0; *s; s += i){
        s += strspn(s, ds);
        i  = strcspn(s, ds);
        if((i > 0) && (strchr(vs, *s) != NULL))
            fprintf(_out, "%.*s\n", (int)i, s);
    }
}

#include <stdio.h>
#include <string.h>
static const char* get_token(const char** s, const char* delim, size_t* n);
static int s_equal(const char* a, const char* b, const char* s);
int count_words(const char* s);
int is_rep_words(const char* s);
 
int main(void){
    char s[] = "XzzX, ADA, XYZ, ZoVVoZ, xyz, kook, XYZ, ADA, QOOQ";
 
    printf("count words: %d\n", count_words(s));
 
    //определить есть ли повторяющиеся слова в тексте
    if(is_rep_words(s))
        puts("Yes!");
    else
        puts("No!");
    getchar();
    return 0;
}
 
//количество симметричных слов четной длины
int count_words(const char* s){
    size_t i;
    const char* p, *a, *b;
    const char delim[] = " \t\n,.!?";
    int k = 0;
 
    while((p = get_token(&s, delim, &i)) != NULL){
        if(i & 1)
            continue;
 
        a = p;
        b = p + (i - 1);
        while((a < b) && (*a == *b)){
            ++a;
            --b;
        }
 
        if(a >= b)
            ++k;
    }
    return k;
}
 
//определить есть ли повторяющиеся слова в тексте
int is_rep_words(const char* s){
    size_t n, m;
    const char* p, *i, *w;
    const char delim[] = " \t\n,.!?";
 
    while((p = get_token(&s, delim, &n)) != NULL){
        i = p + n;
        while((w = get_token(&i, delim, &m)) != NULL){
            if((m == n) && s_equal(w, w + m, p))
                return 1;
        }
    }
    return 0;
}
 
//сравнение
static int s_equal(const char* a, const char* b, const char* s){
    while((a != b) && (*a == *s)){
        ++a;
        ++s;
    }
    return (a == b);
}
 
//получение токена
static const char* get_token(const char** s, const char* delim, size_t* n){
    size_t i;
    const char* p = *s;
 
    p += strspn(p, delim);
    if(!*p)
        return NULL;
 
    i  = strcspn(p, delim);
    *s = p + i;
    *n = i;
    return p;
}