Perl, 32 + 32 = 64
La stringa è prevista in STDIN. L'output viene scritto in STDOUT. Lo spazio bianco viene ignorato. La mia interpretazione del compito è che il programma dovrebbe essere in grado di funzionare su se stesso per ottenere il punteggio.
$/ = $,;
$_ = <>;
s x\sxxg;
$\ = length;
print s x[0-9a-z]xxgi,
' + ',
s x.xxg,
' = '
Non rigato di commenti
$/ = $,; # The input separator becomes undefined, because the default for $, is "undef"
$_ = <>; # now $_ takes the whole file (STDIN) instead of the first line
s x\sxxg; # $_ =~ s/\s//g;
# white space is removed from $_
$\ = length; # The number of the other characters are put into $\,
# which is automatically printed the end of "print".
print s x[0-9a-z]xxgi, # s/[0-9a-z]//gi
# Remove alphanumeric characters and return their count
' + ',
s x.xxg, # s/.//g
# Remove the remaining special characters and return their count.
# "." does not catch new lines, but we have already
# removed white spaces including new lines.
' = '
Ho trovato diverse varianti con lo stesso numero di byte, ad esempio:
$/ = $x;
$_ = <>, s x\sxxg;
$\ = split $x;
print s x[\da-z]xxgi,
" + ",
s x.xxg,
' = '
Esempi
Esempio dalla domanda:
echo 'http://stackexchange.com' | perl a.pl
20 + 4 = 24
In esecuzione su se stesso ( a.pl):
cat a.pl | perl a.pl
32 + 32 = 64
La dimensione del file è 104 byte, quindi 40 byte vengono ignorati come spazio bianco.
Perl, 29 + 29 = 58
$_=<>;s x\sxxg;$\=length;print s x[0-9a-z]xxgi,' + ',s/.//g,' = '
La stringa è prevista in STDIN ed è limitata alla prima riga. Il risultato viene stampato su STDOUT. Lo spazio bianco viene ignorato.
Ungolfed
$_ = <>;
s x\sxxg; # same as s/\s//gx; removes white space;
$\ = length($_); # sum is automatically appended at the end of print
print sx[0-9a-z]xxgi, # same as s/[0-9a-z]//gi;
# the number of alphanumeric characters
' + ',
s/.//g, # the number of the remaining special characters
' = '
Esempi
Il file a.plcontiene lo script Perl.
Esempio dalla domanda:
echo 'http://stackexchange.com' | perl a.pl
20 + 4 = 24
In esecuzione su se stesso:
cat a.pl | perl a.pl
29 + 29 = 58
La dimensione del file a.plè di 65 byte, quindi 7 byte vengono ignorati come spazio bianco.
O.,O?eO!quindi qualsiasi programma di scrittura mi soddisfa la restrizione classe di caratteri ... Naturalmente è probabile perdere sul business lunghezza.