Perl, 32 + 32 = 64
La chaîne est attendue dans STDIN. La sortie est écrite dans STDOUT. L'espace blanc est ignoré. Mon interprétation de la tâche est que le programme devrait pouvoir s'exécuter sur lui-même pour obtenir le score.
$/ = $,;
$_ = <>;
s x\sxxg;
$\ = length;
print s x[0-9a-z]xxgi,
' + ',
s x.xxg,
' = '
Non golfé avec des commentaires
$/ = $,; # 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.
' = '
J'ai trouvé plusieurs variantes avec le même nombre d'octets, par exemple:
$/ = $x;
$_ = <>, s x\sxxg;
$\ = split $x;
print s x[\da-z]xxgi,
" + ",
s x.xxg,
' = '
Exemples
Exemple de la question:
echo 'http://stackexchange.com' | perl a.pl
20 + 4 = 24
Fonctionnant sur lui-même ( a.pl):
cat a.pl | perl a.pl
32 + 32 = 64
La taille du fichier est de 104 octets, donc 40 octets sont ignorés comme espace blanc.
Perl, 29 + 29 = 58
$_=<>;s x\sxxg;$\=length;print s x[0-9a-z]xxgi,' + ',s/.//g,' = '
La chaîne est attendue à STDIN et elle est limitée à la première ligne. Le résultat est imprimé sur STDOUT. L'espace blanc est ignoré.
Non golfé
$_ = <>;
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
' = '
Exemples
Le fichier a.plcontient le script Perl.
Exemple de la question:
echo 'http://stackexchange.com' | perl a.pl
20 + 4 = 24
Fonctionnant sur lui-même:
cat a.pl | perl a.pl
29 + 29 = 58
La taille du fichier a.plest de 65 octets, donc 7 octets sont ignorés comme espace blanc.
O.,O?etO!puis tout programme I écriture répond à la restriction de classe de caractères ... Bien sûr , il est de perdre probablement sur l'activité de longueur.