Il codice dovrebbe prendere una stringa come input dalla tastiera:

The definition of insanity is quoting the same phrase again and again and not expect despair.

L'output dovrebbe essere così (non ordinato in alcun ordine particolare):

  :  15
. :  1
T :  1
a :  10
c :  1
e :  8
d :  4
g :  3
f :  2
i :  10
h :  3
m :  1
o :  4
n :  10
q :  1
p :  3
s :  5
r :  2
u :  1
t :  6
y :  1
x :  1

Tutti i caratteri ASCII contano unicode non è un requisito, spazi, virgolette, ecc. E l'input dovrebbe provenire da tastiera / non costanti, attributi, l'output dovrebbe essere stampato con una nuova riga dopo ogni carattere come nell'esempio sopra, non dovrebbe essere restituito come stringa o scaricati come hashmap / dizionario ecc, in modo x : 1e x: 1sono ok, ma {'x':1,...e x:1non lo sono.

D: Funzione o programma completo che prende stdin e scrive stdout?
A: Il codice deve essere un programma che accetta input usando standard in e visualizza il risultato tramite standard out.

Pagelle:

Complessivamente più breve : 5 byte

Complessivamente più breve : 7 byte

APL (Dyalog Unicode) , 5 byte ^SBCS

Corpo del programma completo. Richiede una stringa da STDIN e stampa la tabella separata newline su STDOUT. La colonna più a sinistra contiene i caratteri di input e i conteggi sono allineati a destra con il numero più grande separato dal suo carattere da un singolo spazio.

,∘≢⌸⍞

Provalo online!

⍞ richiedere l'immissione di testo da STDIN

⌸ creare una tabella di chiavi composta
 , dall'elemento univoco seguito
 ∘ dal
 ≢ conteggio degli indici della sua occorrenza (cioè quante volte si verifica)

PHP - 68 (o 39) byte

<?foreach(count_chars(fgets(STDIN),1)as$k=>$v)echo chr($k)." : $v
";

Output per il testo di esempio:

  : 15
. : 1
T : 1
a : 10
c : 1
d : 4
e : 8
f : 2
g : 3
h : 3
i : 10
m : 1
n : 10
o : 4
p : 3
q : 1
r : 2
s : 5
t : 6
u : 1
x : 1
y : 1

Se l'output esatto non è richiesto, funzionerebbe per 39 byte :

<?print_r(count_chars(fgets(STDIN),1));

Uscita campione:

Array
(
    [32] => 15
    [46] => 1
    [84] => 1
    [97] => 10
    [99] => 1
    [100] => 4
    [101] => 8
    [102] => 2
    [103] => 3
    [104] => 3
    [105] => 10
    [109] => 1
    [110] => 10
    [111] => 4
    [112] => 3
    [113] => 1
    [114] => 2
    [115] => 5
    [116] => 6
    [117] => 1
    [120] => 1
    [121] => 1
)

dove ogni indice numerico si riferisce al valore ordinale del carattere che rappresenta.

Sospetto fortemente che l'uso di una funzione integrata che fa esattamente ciò che indica il problema sarà presto vietato.

k ( 8 7)

#:'=0:0

Esempio

k)#:'=:0:0
The definition of insanity is quoting the same phrase again and again and not expect despair.
T| 1
h| 3
e| 8
 | 15
d| 4
f| 2
i| 10
n| 10
t| 6
o| 4
s| 5
a| 10
y| 1
q| 1
u| 1
g| 3
m| 1
p| 3
r| 2
x| 1
c| 1
.| 1

modifica: fino a sette, H / T Aaron Davies

Spiegazione

Prendi una stringa dalla tastiera:

k)0:0
text
"text"

Raggruppa gli elementi distinti e restituisce una mappa contenente chiave come caratteri e valori distinti sono gli indici in cui si verificano gli elementi distinti.

k)=0:0
text
t| 0 3
e| ,1
x| ,2

Ora conta i valori di ogni voce nella mappa.

k)#:'=0:0
text
t| 2
e| 1
x| 1

GNU core utils - 29 22 20 caratteri (53 con formattazione)

Miglioramento di Wumpus (20 caratteri):

fold -1|sort|uniq -c

Miglioramento di Firefly (22 caratteri):

grep -o .|sort|uniq -c

originale di joeytwiddle (29 caratteri):

sed 's+.+\0\n+g'|sort|uniq -c

Inizialmente sedaggiungevo semplicemente una nuova riga dopo ogni personaggio. Firefly è migliorato con quello grep -o ., poiché -omostra ogni modello abbinato su una propria linea. Wumpus ha sottolineato un ulteriore miglioramento usando fold -1invece. Bel lavoro!

uniq fa il vero lavoro, anche se si applica solo agli elenchi ordinati.

Si noti che il formato di output non corrisponde esattamente all'esempio nella domanda. Ciò richiede un passaggio finale sedper scambiare gli argomenti. (In attesa di una risposta alla domanda di Jan Dvorak per vedere se questo è necessario ...)

Riformattare con sed è "solo" altri 33 caratteri! ( Totale 53 )

|sed 's/ *\(.*\) \(.\)/\2 :  \1/'

Awk può quasi fare il lavoro aggiungendo solo 25 caratteri, ma nasconde il primo spazio. Stupido sciocco!

|awk '{print $2" :  "$1}'

Mi chiedo se sia possibile apportare miglioramenti nella fase di riformattazione ...

Ruby 1.9.3: 53 caratteri

(Basato sui commenti di @ shiva e @ daneiro.)

gets.split("").uniq.map{|x|puts x+" : #{$_.count x}"}

Esecuzione di esempio:

bash-4.1$ ruby -e 'a=gets;a.split("").uniq.map{|x|puts"#{x} : #{a.count x}"}' <<< 'Hello world'
H : 1
e : 1
l : 3
o : 2
  : 1
w : 1
r : 1
d : 1

 : 1

Rubino: 44 caratteri

Non rispettando il formato di output:

s=Hash.new 0;gets.chars{|c|s[c]+=1};pp s

Esecuzione di esempio:

bash-4.1$ ruby -rpp -e 's=Hash.new 0;gets.chars{|c|s[c]+=1};pp s' <<< 'Hello, world!'
{"H"=>1,
 "e"=>1,
 "l"=>3,
 "o"=>2,
 ","=>1,
 " "=>1,
 "w"=>1,
 "r"=>1,
 "d"=>1,
 "!"=>1,
 "\n"=>1}

Python 3: 76 caratteri

76

import collections as c
for x,y in c.Counter(input()).items():print(x,':',y)

44

(stampa più volte gli stessi personaggi, vedi la risposta di Wasi per una versione valida)

a=input()
for x in a:print(x,':',a.count(x))

Perl 6: 21 caratteri

.say for get.comb.Bag

(REPL)
> .say per get.comb.Bag
La definizione di follia sta citando la stessa frase ancora e ancora e non aspettarsi disperazione.
"T" => 1
"h" => 3
"e" => 8
"" => 15
"d" => 4
"f" => 2
"i" => 10
"n" => 10
"t" => 6
"o" => 4
"s" => 5
"a" => 10
"y" => 1
"q" => 1
"u" => 1
"g" => 3
"m" => 1
"p" => 3
"r" => 2
"x" => 1
"c" => 1
"" => 1

APL (15)

M,⍪+⌿Z∘.=M←∪Z←⍞

Se hai davvero bisogno di :, sono 19 (ma ce ne sono altri che non lo stanno includendo):

M,':',⍪+⌿Z∘.=M←∪Z←⍞

Produzione:

      M,⍪+⌿Z∘.=M←∪Z←⍞
The definition of insanity is quoting the same phrase again and again and not expect despair. 
T  1
h  3
e  8
  16
d  4
f  2
i 10
n 10
t  6
o  4
s  5
a 10
y  1
q  1
u  1
g  3
m  1
p  3
r  2
x  1
c  1
.  1

R, 30 caratteri

table(strsplit(readline(),""))

Esempio di utilizzo:

> table(strsplit(readline(),""))
The definition of insanity is quoting the same phrase again and again and not expect despair.

    .  a  c  d  e  f  g  h  i  m  n  o  p  q  r  s  t  T  u  x  y 
15  1 10  1  4  8  2  3  3 10  1 10  4  3  1  2  5  6  1  1  1  1 

Perl 5, 54 caratteri

map{$h{$_}++}split//,<>;print"$_ : $h{$_}\n"for keys%h

JavaScript

1. 66 53 byte:

   prompt(a={}).replace(/./g,function(c){a[c]=-~a[c]}),a
   

2. 69 56 byte:

   b=prompt(a={});for(i=b.length;i--;){a[b[i]]=-~a[b[i]]};a
   

3. 78 65 byte:

   prompt().split('').reduce(function(a,b){return a[b]=-~a[b],a},{})
   

NB: in ogni caso il numero di byte cancellati si riferisce a console.log()chiamate extra che sono inutili se eseguite nella console. Grazie mille a @imma per l'ottima cattura con -~a[b]e prompt(a={}). Ciò ha sicuramente salvato qualche altro byte.

Python 2, correttamente (58)

s=raw_input()
for l in set(s):print l+" : "+str(s.count(l))

Produzione:

python count.py
The definition of insanity is quoting the same phrase again and again and not expect despair.
  : 15
. : 1
T : 1
a : 10
c : 1
e : 8
d : 4
g : 3
f : 2
i : 10
h : 3
m : 1
o : 4
n : 10
q : 1
p : 3
s : 5
r : 2
u : 1
t : 6
y : 1
x : 1

Python 2, stile ghepardo (41)

s=input()
print {l:s.count(l) for l in s}

Produzione:

python count.py
"The definition of insanity is quoting the same phrase again and again and not expect despair."
{' ': 15, '.': 1, 'T': 1, 'a': 10, 'c': 1, 'e': 8, 'd': 4, 'g': 3, 'f': 2, 'i': 10, 'h': 3, 'm': 1, 'o': 4, 'n': 10, 'q': 1, 'p': 3, 's': 5, 'r': 2, 'u': 1, 't': 6, 'y': 1, 'x': 1}

Mathematica, 61 byte

Map[{#[[1]], Length@#} &, Gather@Characters[Input[]]] // TableForm

Si apre quindi questa finestra di dialogo,

e per la frase di esempio, produce come output

python 3, 49

Rubare idea da evuez

t=input()
for i in set(t):print(i,':',t.count(i))

ingresso:

The definition of insanity is quoting the same phrase again and again and not expect despair.

produzione:

  :  15
. :  1
T :  1
a :  10
c :  1
e :  8
d :  4
g :  3
f :  2
i :  10
h :  3
m :  1
o :  4
n :  10
q :  1
p :  3
s :  5
r :  2
u :  1
t :  6
y :  1
x :  1

JavaScript (69 68 caratteri):

Si aspetta sdi contenere la stringa.

_={};for(x in s)_[a=s[x]]=-~_[a];for(x in _)console.log(x+': '+_[x])

Questo segue perfettamente le nuove regole.

Nota: questo presuppone un ambiente pulito, senza proprietà personalizzate su alcun prototipo di oggetto standard.

Modifica: 1 carattere in meno!

Uscita console:

T: 1
h: 3
e: 8
 : 15
d: 4
f: 2
i: 10
n: 10
t: 6
o: 4
s: 5
a: 10
y: 1
q: 1
u: 1
g: 3
m: 1
p: 3
r: 2
x: 1
c: 1
.: 1

Vecchia risposta (44 caratteri):

r={};[].map.call(s,function(e){r[e]=-~r[e]})

Questo era valido prima che le regole cambiassero.

r contiene l'output.

Haskell, 93

import Data.List
main=getLine>>=mapM(\s->putStrLn$[head s]++" : "++show(length s)).group.sort

PowerShell (49)

[char[]](read-host)|group|%{$_.Name+":"+$_.Count}

C # (178 220 caratteri)

Sulla base del commento di @ Spongeman l'ho cambiato un po ':

using C=System.Console;using System.Linq;class P{static void Main()
{C.WriteLine(string.Join("\n",C.ReadLine().GroupBy(x=>x)
.OrderBy(x=>x.Key).Select(g=>g.Key+":"+g.Count())));}}

Line breaks added for readability, my first feeble attempt at code golf! :)

class P {static void Main(){var d=new Dictionary<char,int>();
Console.ReadLine().ToList().ForEach(x=>{ if(d.ContainsKey(x))
{d[x]++;}else{d.Add(x,1);}});Console.WriteLine(string
.Join("\n",d.Keys.Select(x=>x+":" +d[x])));}}

Sclipting , 19 caratteri

梴要⓶銻꾠⓷❸虛變梴❶⓺減負겠⓸⓸終丟

Produzione

T:1
h:3
e:8
 :15
d:4
f:2
i:10
n:10
t:6
o:4
s:5
a:10
y:1
q:1
u:1
g:3
m:1
p:3
r:2
x:1
c:1
.:1

Se vuoi gli spazi attorno a :, cambia 꾠in 긃똠, rendendolo 20 caratteri.

Spiegazione

Get length of input string.
梴
Stack is now [ input, length ]
While {
要
    Get first character of string and push ":"
    ⓶銻꾠
    Stack is now [ length, input, firstchar, ":" ]
    Replace all occurrences of that character with empty string
    ⓷❸虛變
    Stack is now [ length, firstchar, ":", reducedinput ]
    Get the length of that, calculate difference to previous length, push "\n"
    梴❶⓺減負겠
    Stack is now [ firstchar, ":", reducedinput, newlength, diff, "\n" ]
    Move the input string and length back up, leaving output below it
    ⓸⓸
    Stack is now [ firstchar, ":", diff, "\n", reducedinput, newlength ]
                   `------------------------'                `-------'
                   Every iteration of the               The length provides
                   While loop generates                 the While loop's
                   a bit like this                      terminating condition
} End While
終
Discard the length which is now 0
丟

F # ( 66 59 49, 72 con formattazione prescritta)

let f s=s|>Seq.countBy(id)|>Seq.iter(printfn"%A")

Produzione:

> f The definition of insanity is quoting the same phrase again and again and not expect despair.
(' ', 15)
('.', 1)
('T', 1)
('a', 10)
('c', 1)
('d', 4)
('e', 8)
('f', 2)
('g', 3)
('h', 3)
('i', 10)
('m', 1)
('n', 10)
('o', 4)
('p', 3)
('q', 1)
('r', 2)
('s', 5)
('t', 6)
('u', 1)
('x', 1)
('y', 1)

Con la formattazione prescritta, diventa:

let f s=s|>Seq.countBy(id)|>Seq.iter(fun(a,b)->printfn"\"%c\" :  %d"a b)

Mathematica, 34 29 byte

Non so perché l'altra risposta di Mathematica sia così complicata ...;)

Grid@Tally@Characters@Input[]

Bash ( 20 15 caratteri)

 ptx -S.|uniq -c
 10                                        a
  1                                        c
  4                                        d
  8                                        e
  2                                        f
  3                                        g
  3                                        h
 10                                        i
  1                                        m
 10                                        n
  4                                        o
  3                                        p
  1                                        q
  2                                        r
  5                                        s
  6                                        t
  1                                        T
  1                                        u
  1                                        x
  1                                        y

Codifica ASCII ora supportata

Bash (23 caratteri):

xxd -p -c1|sort|uniq -c

  1 0a
 15 20
  1 2e
  1 54
 10 61
  1 63
  4 64
  8 65
  2 66
  3 67
  3 68
 10 69
  1 6d
 10 6e
  4 6f
  3 70
  1 71
  2 72
  5 73
  6 74
  1 75
  1 78
  1 79

Formattazione ASCII non supportata

Java 8, 273 253 249 246 239 200 byte

interface I{static void main(String[]a){int m[]=new int[999],i=0;for(int c:new java.util.Scanner(System.in).nextLine().getBytes())m[c]++;for(;++i<999;)if(m[i]>0)System.out.printf("%c: %d%n",i,m[i]);}}

-24 byte grazie a @Poke .
-7 byte grazie a @ OlivierGrégoire .

Spiegazione:

Provalo qui.

interface I{                        // Class
  static void main(String[]a){      //  Mandatory main-method
    int m[]=new int[999],           //  Integer-array to count the occurrences
        i=0;                        //  Index-integer, starting at 0
    for(int c:new java.util.Scanner(System.in).nextLine().getBytes())
                                    //   Loop over the input as bytes:
      m[c]++;                       //    Increase the occurrence-counter of the char by 1
    for(;++i<999;)                  //   Loop over the array:
      if(m[i]>0)                    //    If the current character occurred at least once:
        System.out.print("%c: %d%n",//     Print with proper formatting:
         i,                         //      The character
         m[i]);}}                   //      and the occurrence-count

Powershell, 63

$a=@{};[char[]](read-host)|%{$a[$_]++};$a.Keys|%{"$_ :"+$a[$_]}

Script di comando di Windows - 72 byte

set/p.=
:a
set/a\%.:~,1%=\%.:~,1%+1
set.=%.:~1%
%.%goto:b
goto:a
:b
set\

Uscite:

\=15 (space)
\.=1
\a=10
\c=1
\d=4
\e=8
\f=2
\g=3
\h=3
\i=10
\m=1
\n=10
\o=4
\p=3
\q=1
\r=2
\s=5
\T=7
\u=1
\x=1
\y=1

J, 23 caratteri

(~.;"0+/@|:@=)/:~1!:1]1

Formato di output leggermente diverso (la riga 2 è stdin):

   (~.;"0+/@|:@=)/:~1!:1]1
Mississippi
┌─┬─┐
│M│1│
├─┼─┤
│i│4│
├─┼─┤
│p│2│
├─┼─┤
│s│4│
└─┴─┘

J, 22 caratteri

(~.;"0+/@(=/~.))1!:1]1

Esempio:

   (~.;"0+/@(=/~.))1!:1]1
The definition of insanity is quoting the same phrase again and again and not expect despair.
+-+--+
|T|1 |
+-+--+
|h|3 |
+-+--+
|e|8 |
+-+--+
| |15|
+-+--+
|d|4 |
+-+--+
|f|2 |
+-+--+
|i|10|
+-+--+
|n|10|
+-+--+
|t|6 |
+-+--+
|o|4 |
+-+--+
|s|5 |
+-+--+
|a|10|
+-+--+
|y|1 |
+-+--+
|q|1 |
+-+--+
|u|1 |
+-+--+
|g|3 |
+-+--+
|m|1 |
+-+--+
|p|3 |
+-+--+
|r|2 |
+-+--+
|x|1 |
+-+--+
|c|1 |
+-+--+
|.|1 |
+-+--+

C #

string str = Console.ReadLine(); // Get Input From User Here
char chr;
for (int i = 0; i < 256; i++)
{
    chr = (char)i; // Use The Integer Index As ASCII Char Value --> Convert To Char
    if (str.IndexOf(chr) != -1) // If The Current Char Exists In The Input String
    {
        Console.WriteLine(chr + " : " + str.Count(x => x == chr)); // Count And Display
    }
}
Console.ReadLine(); // Hold The Program Open.

Nel nostro caso, se l'input sarà " La definizione di follia sta citando la stessa frase ancora e ancora e non si aspetta la disperazione " .

L'output sarà:

  : 15
. : 1
T : 1
a : 10
c : 1
d : 4
e : 8
f : 2
g : 3
h : 3
i : 10
m : 1
n : 10
o : 4
p : 3
q : 1
r : 2
s : 5
t : 6
u : 1
x : 1
y : 1

C #: 129

Questa è la risposta di Aviv ma più breve:

var s=Console.ReadLine();for(int i=0;i<256;i++){var ch=(char)i;Console.Write(s.Contains(ch)?ch+":"+s.Count(c=>c==ch)+"\r\n":"");}

Questo è mio:

C #: 103

foreach(var g in Console.ReadLine().OrderBy(o=>o).GroupBy(c=>c))Console.WriteLine(g.Key+":"+g.Count());

Python 2 (90 caratteri)

import collections as c;print"\n".join("%s %s"%i for i in c.Counter(raw_input()).items())

Output quando eseguito sulla propria fonte:

  8
" 4
% 3
) 4
( 4
. 3
; 1
C 1
\ 1
_ 1
a 2
c 4
e 3
f 1
i 9
j 1
m 2
l 2
o 6
n 7
p 3
s 5
r 5
u 2
t 6
w 1