Проверка, все ли слова в строке имеют чередующуюся четную и нечетную длину

#include <stdio.h>
#include <string.h>
 
#define DELIM " \t\n"
 
int main(void) {
    char buf[BUFSIZ];
    
    while ( printf("String: ") && fgets(buf, BUFSIZ, stdin) && *buf != '\n' ) {
        char * w;
        int first, second;
        
        if ( ! ( w = strtok(buf, DELIM) ) ) {
            printf("No words at all!\n");
            continue;
        }
        
        first = strlen(w) & 1;
        
        if ( ! ( w = strtok(NULL, DELIM) ) ) {
            printf("Only one word found!\n");
            continue;
        }
        
        second = strlen(w) & 1;
        
        while ( ( first & second ) == 0 && ( first | second ) == 1 ) {
            if ( ! ( w = strtok(NULL, DELIM) ) )
                break;
            first = second;
            second = strlen(w) & 1;
        }
        
        printf("%s\n", ( w ) ? "NO" : "YES");
    }
    
    return 0;
}

#include <stdio.h>
#include <ctype.h>
#define  is_delim(c)  (isspace((c)) || ispunct((c)))
#define  N_EVEN  1
#define  N_ODD   2
 
 
int is_altern(const char* s){
    const char* p;
    int j, n = 0, i = 0, r = (*s != '\0');
 
    for(; *s; s = p){
        while(is_delim(*s))
            ++s;
 
        for(p = s; *p && !is_delim(*p); ++p)
            ;
 
        if((j = (int)(p - s)) > 0){
            if(j & 1)
                i = N_ODD;
            else
                i = N_EVEN;
 
            if(i != n)
                n = i;
            else {
                r = 0;
                break;
            }
        }
    }
    return r;
}
 
 
int main(void){
    puts( is_altern("lisp, apl, pascal.") ? "yes" : "no");
    puts( is_altern("titan moon (venus)") ? "yes" : "no");  
    puts( is_altern("Forth Java Prolog")  ? "yes" : "no");
    return 0;
}