Kod, klavyeden girdi olarak bir dize almalıdır:

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

Çıktı şöyle olmalıdır (belirli bir sırada sıralanmamıştır):

  :  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

Tüm ASCII karakterleri unicode sayımı bir gereklilik değildir, boşluklar, tırnak işaretleri, vb. Ve girdiler klavyeden / sabitlerden değil, niteliklerden gelmeli, çıktılar yukarıdaki örnekte olduğu gibi her karakterden sonra yeni satırla basılmalıdır, dize olarak döndürülmemelidir. ya da öylesine, HashMap / Sözlük vb atılmış x : 1ve x: 1Tamam ama {'x':1,...ve x:1değillerdir.

S: Stdin alarak ve stdout yazarken fonksiyon veya tam program?
C: Kodun standart girişi kullanarak giriş alan bir program olması ve sonucu standart çıkış üzerinden görüntülemesi gerekir.

scoreboard:

En kısa genel : 5 bayt

En kısa genel : 7 bayt

APL (Dyalog Unicode) , 5 bayt ^SBCS

Tam program gövdesi. STDIN'den bir dize ister ve yeni satırlı ayrılmış tabloyu STDOUT'a yazdırır. En soldaki sütun, giriş karakterleridir ve sayılar, karakterinden tek boşlukla ayrılmış en büyük sayı ile sağa hizalanır.

,∘≢⌸⍞

Çevrimiçi deneyin!

⍞ STDIN'den metin girişi istemi

⌸ oluşan oluşturmak tuşları table
 , benzersiz elemanı takip
 ∘ edenler tarafından
 ≢ oluşun indekslerinin çetelesini (yani ortaya kaç kez)

PHP - 68 (veya 39) bayt

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

Örnek metin için çıktı:

  : 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

Tam çıktı gerekli değilse, bu 39 bayt için işe yarar :

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

Örnek çıktı:

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
)

Her sayısal endeks temsil ettiği karakterin sıra değerini belirtir.

Sorunun tam olarak ne olduğunu söyleyen yerleşik bir işlevi kullanmanın yakında reddedileceğini çok kuvvetli bir şekilde şüpheliyim.

k ( 8 7)

#:'=0:0

Örnek

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

düzenleme: Yedi Aşağı, H / T Aaron Davies

açıklama

Klavyeden bir Dize Alın:

k)0:0
text
"text"

Farklı öğeleri gruplayın ve farklı karakterler ve değerler olarak anahtar içeren bir harita döndürün, farklı öğelerin oluştuğu göstergelerdir.

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

Şimdi haritadaki her girişin değerlerini sayın.

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

GNU çekirdek araçları - 29 22 20 karakter (53 biçimlendirme ile)

Wumpus'un gelişimi (20 karakter):

fold -1|sort|uniq -c

Ateş böceği gelişimi (22 karakter):

grep -o .|sort|uniq -c

joeytwiddle'ın orijinali (29 karakter):

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

Aslında sedher karakterden sonra yeni bir satır eklerdim. Firefly ile bu konuda geliştirilmiş grep -o .beri, -oekranlar her kendi satırına desen eşleşti. Wumpus fold -1bunun yerine başka bir gelişme olduğuna işaret etti . İyi iş!

uniq Gerçek işi yapar, ancak yalnızca sıralanmış listeler için geçerlidir.

Çıktı formatının sorudaki örnekle tam olarak eşleşmediğini unutmayın. Bu bir final çalışması gerektirirsed , argümanları değiştirmek için . (Bunun gerekli olup olmadığını görmek için Jan Dvorak'ın sorusuna cevap bekliyorum ...)

Sed ile yeniden biçimlendirme 33 karakterden sadece "sadece" dır! ( Toplam 53 )

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

Awk, sadece 25 karakter eklerken neredeyse işi yapabilir, ancak ilk alanı gizler. Aptal awk!

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

Yeniden biçimlendirme aşamasında iyileştirmeler yapılıp yapılamayacağını merak ediyorum ...

Yakut 1.9.3: 53 karakter

(@ Shiva ve @ daneiro adlı kullanıcının yorumlarına dayanarak.)

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

Örnek çalışma:

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

Yakut: 44 karakter

Çıktı formatına saygı duymamak:

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

Örnek çalışma:

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 karakter

76

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

44

(birçok kez aynı karakterleri yazdırın, geçerli bir sürüm için Wasi'nin cevabına bakın)

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

Perl 6: 21 karakter

.say for get.comb.Bag

(REPL)
> get.comb.Bag için .say
Deliliğin tanımı aynı cümleyi tekrar tekrar alıntılamaktır ve umutsuzluğa kapılmamaktır.
"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←⍞

Gerçekten ihtiyacınız varsa :, 19 (ama buna dahil olmayan başkaları da var):

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

Çıktı:

      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 karakter

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

Örnek kullanım:

> 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 karakter

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

JavaScript

1. 66 53 bayt:

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

2. 69 56 bayt:

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

3. 78 65 bayt:

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

Not: Her durumda silinen bayt sayısı console.log(), konsolda çalıştırıldığında anlamsız olan ekstra çağrıya atıfta bulunur . Büyük teşekkür @imma ile büyük yakalamak için -~a[b]ve prompt(a={}). Bu kesinlikle biraz daha bayt kurtardı.

Python 2, doğru (58)

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

Çıktı:

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

Piton 2, çita tarzı (41)

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

Çıktı:

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 bayt

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

Daha sonra bu iletişim kutusunu açar.

ve örnek cümle için çıktı olarak üretir

piton 3, 49

Evuez'den fikir çalmak

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

giriş:

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

çıktı:

  :  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 karakter):

Dizeyi stutmayı bekler .

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

Bu yeni kuralları mükemmel bir şekilde takip ediyor.

Not: Bu, herhangi bir standart nesne prototipi üzerinde hiçbir özel özellik bulunmayan temiz bir ortam olduğunu varsayar.

Düzenle: 1 karakter daha az!

Konsol çıkışı:

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

Eski cevap (44 karakter):

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

Bu kurallar değişmeden önce geçerliydi.

r çıktıyı içerir.

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 chars)

Based on @Spongeman's comment I changed it up a bit:

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 characters

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

Output

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

If you want the spaces around the :, change 꾠 to 긃똠, making it 20 characters.

Explanation

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 with prescribed formattting)

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

Output:

> 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)

With the prescribed formatting, it becomes:

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

Mathematica, 34 29 bytes

Not sure why the other Mathematica answer is so complicated... ;)

Grid@Tally@Characters@Input[]

Bash (20 15 characters)

 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

ASCII encoding now supported

Bash (23 characters):

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

ASCII formatting not supported

Java 8, 273 253 249 246 239 200 bytes

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 bytes thanks to @Poke.
-7 bytes thanks to @OlivierGrégoire.

Explanation:

Try it here.

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[$_]}

Windows Command Script - 72 Bytes

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

Outputs:

\=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 chars

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

Slightly different output format (line 2 is stdin):

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

J, 22 characters

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

Example:

   (~.;"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.

In Our Case, If The Input Will Be "The definition of insanity is quoting the same phrase again and again and not expect despair."

The Output Will Be:

  : 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

This is Avivs answer but shorter:

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":"");}

This is mine:

C#: 103

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

Python 2 (90 chars)

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

Output when run on its own source:

  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