K&R c - 188 196 199 229 caratteri
Con le specifiche modificate per specificare una funzione, posso ottenere molto del sovraccarico c dal conteggio. Anche cambiando per usare l'hack di conteggio delle sillabe di Strigoides che è meglio della mia formula perfezionata ed estesa per gestire il conteggio eccessivo delle parole.
Dopo aver trovato un modo più breve per eseguire il rilevamento vocale che era tristemente basato stdchr, ho avuto l'incentivo a spremere un po 'di più dall'abominio che io ho usato in modo da non essere noioso.
d,a,v,s,t,w;float R(char*c){for(;*c;++c){s+=*c=='.';if(isalpha(*c)){
w+=!a++;d=(*c&30)>>1;if(*c&1&(d==7|((!(d&1))&(d<6|d>8)))){t+=!v++;}
else v=0;}else v=a=0;}return 206.835-1.*w/s-82.*t/w;}
La logica qui è una semplice macchina a stati. Conta solo frasi per punti, parole per stringhe di caratteri alfabetici e sillabe come stringhe di vocali (inclusa y).
Ho dovuto ingannare un po 'le costanti per farlo emergere con le cifre giuste, ma ho preso in prestito il trucco di Strigoides di sottovalutare le sillabe di una frazione fissa.
Senza golf , con commenti e alcuni strumenti di debug:
#include <stdlib.h>
#include <stdio.h>
d,a,/*last character was alphabetic */
v,/*lastcharacter was a vowel */
s, /* sentences counted by periods */
t, /* syllables counted by non-consequtive vowels */
w; /* words counted by non-letters after letters */
float R/*eadability*/(char*c){
for(;*c;++c){
s+=*c=='.';
if(isalpha(*c)){ /* a letter might mark the start of a word or a
vowel string */
w+=!a++; /* It is only the start of a word if the last character
wasn't a letter */
/* Extract the four bits of the character that matter in determining
* vowelness because a vowel might mark a syllable */
d=(*c&30)>>1;
if( *c&1 & ( d==7 | ( (!(d&1)) & (d<6|d>8) ) )
) { /* These bits 7 or even and not 6, 8 make for a
vowel */
printf("Vowel: '%c' (mangled as %d [0x%x]) counts:%d\n",*c,d,d,!v);
t+=!v++;
} else v=0; /* Not a vowel so set the vowel flag to zero */
}else v=a=0; /* this input not alphabetic, so set both the
alphabet and vowel flags to zero... */
}
printf("Syllables: %3i\n",t);
printf("Words: %3i (t/w) = %f\n",w,(1.0*t/w));
printf("Sentences: %3i (w/s) = %f\n",s,(1.0*w/s));
/* Constants tweaked here due to bad counting behavior ...
* were: 1.015 84.6 */
return 206.835-1. *w/s-82. *t/w;
}
main(c){
int i=0,n=100;
char*buf=malloc(n);
/* Suck in the whole input at once, using a dynamic array for staorage */
while((c=getc(stdin))!=-1){
if(i==n-1){ /* Leave room for the termination */
n*=1.4;
buf=realloc(buf,n);
printf("Reallocated to %d\n",n);
}
buf[i++]=c;
printf("%c %c\n",c,buf[i-1]);
}
/* Be sure the string is terminated */
buf[i]=0;
printf("'%s'\n",buf);
printf("%f\n",R/*eadability*/(buf));
}
Output: (usando l'impalcatura della versione lunga, ma la funzione golfed.)
$ gcc readability_golf.c
readability_golf.c:1: warning: data definition has no type or storage class
$ ./a.out < readability1.txt
'I would not, could not, in the rain.
Not in the dark, not on a train.
Not in a car, not in a tree.
I do not like them, Sam, you see.
Not in a house, not in a box.
Not with a mouse, not with a fox.
I will not eat them here or there.
I do not like them anywhere!
'
104.074631
$ ./a.out < readability2.txt
'It was a bright cold day in April, and the clocks were striking thirteen.
Winston Smith, his chin nuzzled into his breast in an effort to escape
the vile wind, slipped quickly through the glass doors of Victory Mansions,
though not quickly enough to prevent a swirl of gritty dust from entering
along with him.
'
63.044090
$ ./a.out < readability3.txt
'When in the Course of human events, it becomes necessary for one people to
dissolve the political bands which have connected them with another, and to
assume among the powers of the earth, the separate and equal station to
which the Laws of Nature and of Nature's God entitle them, a decent respect
to the opinions of mankind requires that they should declare the causes
which impel them to the separation.
'
-1.831667
carenze:
- La logica del conteggio delle frasi è sbagliata, ma me ne vado perché solo uno degli input ha un
! o a ?.
- La logica del conteggio delle parole tratterà le contrazioni come due parole.
- La logica di conteggio delle sillabe tratterà le stesse contrazioni di una sillaba. Ma probabilmente sovrastima in media (ad esempio
theresi contano come due e molte parole che finiscono pere verranno contate una troppa), quindi ho applicato un fattore costante di correzione del 96,9%.
- Presuppone un set di caratteri ASCII.
- Credo che il rilevamento delle vocali lo ammetterà
[e {, che chiaramente non è giusto.
- Un sacco di fiducia nella semantica di K&R rende questo brutto, ma ehi, è il golf del codice.
Cose da guardare:
Sono (momentaneamente) avanti di entrambe le soluzioni Python qui, anche se sto trascinando il perl.
Prendi un carico della cosa orribile che ho fatto per rilevare le vocali. Ha senso se scrivi le rappresentazioni ASCII in binario e leggi il commento nella versione lunga.