Mã sẽ lấy một chuỗi làm đầu vào từ bàn phím:

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

Đầu ra phải như thế này (không được sắp xếp theo bất kỳ thứ tự cụ thể nào):

  :  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ất cả các ký tự ASCII đếm unicode không phải là một yêu cầu, dấu cách, dấu ngoặc kép, v.v. và đầu vào phải đến từ bàn phím / không phải hằng, thuộc tính, đầu ra nên được in bằng dòng mới sau mỗi ký tự như trong ví dụ trên, không nên trả về dưới dạng chuỗi hoặc đổ như hashmap / từ điển vv, do đó x : 1và x: 1là ok, nhưng {'x':1,...và x:1không.

Q: Chức năng hoặc chương trình hoàn chỉnh lấy stdin và viết stdout?
Trả lời: Mã cần phải là một chương trình lấy đầu vào bằng cách sử dụng tiêu chuẩn và hiển thị kết quả thông qua tiêu chuẩn.

Bảng điểm:

Tổng thể ngắn nhất : 5 byte

Tổng thể ngắn nhất : 7 byte

APL (Dyalog Unicode) , 5 byte ^SBCS

Toàn thân chương trình. Nhắc nhở một chuỗi từ STDIN và in bảng phân tách dòng mới sang STDOUT. Cột ngoài cùng bên trái là các ký tự đầu vào và các số được căn phải với số lớn nhất được phân tách khỏi ký tự của nó bằng một khoảng trắng.

,∘≢⌸⍞

Hãy thử trực tuyến!

⍞ lời nhắc nhập văn bản từ STDIN

⌸ bảng tạo ra một chìa khóa bao gồm
 , các yếu tố độc đáo theo
 ∘ bởi
 ≢ các kiểm đếm của các chỉ số lần xuất hiện của nó (tức là bao nhiêu lần nó xảy ra)

PHP - 68 (hoặc 39) byte

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

Đầu ra cho văn bản ví dụ:

  : 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

Nếu đầu ra chính xác là không bắt buộc, điều này sẽ hoạt động với 39 byte :

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

Đầu ra mẫu:

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
)

trong đó mỗi chỉ số bằng số chỉ giá trị thứ tự của ký tự mà nó đại diện.

Tôi nghi ngờ rất mạnh mẽ rằng việc sử dụng một hàm dựng sẵn thực hiện chính xác những gì các trạng thái vấn đề sẽ sớm không được phép.

k ( 8 7)

#:'=0:0

Thí dụ

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

chỉnh sửa: Xuống bảy, H / T Aaron Davies

Giải trình

Lấy một chuỗi từ bàn phím:

k)0:0
text
"text"

Nhóm các phần tử riêng biệt và trả về một bản đồ chứa khóa dưới dạng các ký tự và giá trị riêng biệt là các chỉ số nơi các phần tử riêng biệt xuất hiện.

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

Bây giờ đếm giá trị của từng mục trong bản đồ.

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

Các tiện ích lõi GNU - 29 22 20 ký tự (53 có định dạng)

Cải thiện của Wumpus (20 ký tự):

fold -1|sort|uniq -c

Cải tiến của Firefly (22 ký tự):

grep -o .|sort|uniq -c

bản gốc của joeytwiddle (29 ký tự):

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

Ban đầu tôi sedchỉ đơn giản là thêm một dòng mới sau mỗi ký tự. Firefly đã cải thiện điều đó với grep -o ., vì -ohiển thị mọi mẫu phù hợp trên dòng riêng của nó. Wumpus đã chỉ ra một cải tiến hơn nữa bằng cách sử dụng fold -1thay thế. Công việc tốt đẹp!

uniq thực hiện công việc thực tế, mặc dù nó chỉ áp dụng cho các danh sách được sắp xếp.

Lưu ý rằng định dạng đầu ra không khớp chính xác với ví dụ trong câu hỏi. Điều đó đòi hỏi một lần chạy cuối cùngsed để trao đổi các đối số. (Chờ câu trả lời cho câu hỏi của Jan Dvorak để xem điều này có bắt buộc không ...)

Định dạng lại với sed là "chỉ" 33 ký tự khác! ( Tổng cộng 53 )

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

Awk gần như có thể thực hiện công việc trong khi chỉ thêm 25 ký tự, nhưng nó ẩn không gian đầu tiên. Ngớ ngẩn quá!

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

Tôi tự hỏi nếu cải tiến có thể được thực hiện trong giai đoạn định dạng lại ...

Ruby 1.9.3: 53 ký tự

(Dựa trên nhận xét của @ shiva và @ daneiro.)

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

Chạy mẫu:

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

Ruby: 44 ký tự

Không tôn trọng định dạng đầu ra:

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

Chạy mẫu:

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 ký tự

76

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

44

(in cùng một ký tự nhiều lần, xem câu trả lời của Wasi cho phiên bản hợp lệ)

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

Perl 6: 21 ký tự

.say for get.comb.Bag

(REPL)
> .say cho get.comb.Bag
Định nghĩa điên rồ là trích dẫn cùng một cụm từ nhiều lần và không mong đợi sự tuyệt vọng.
"T" => 1
"h" => 3
"e" => 8
"" => 15
"d" => 4
"f" => 2
"Tô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←⍞

Nếu bạn thực sự cần :, đó là 19 (nhưng có những người khác không bao gồm nó):

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

Đầu ra:

      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 ký tự

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

Ví dụ sử dụng:

> 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 ký tự

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: Trong tất cả các trường hợp, số byte bị xóa tham chiếu đến console.log()cuộc gọi thêm , điều này là vô nghĩa nếu chạy trong bàn điều khiển. Cảm ơn rất nhiều đến @imma vì đã bắt được -~a[b]và prompt(a={}). Điều này chắc chắn tiết kiệm thêm một số byte.

Python 2, chính xác (58)

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

Đầu ra:

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, kiểu cheetah (41)

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

Đầu ra:

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}

Toán học, 61 byte

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

Sau đó nó bật lên hộp thoại này,

và đối với câu mẫu, tạo ra như đầu ra

trăn 3, 49

Ăn cắp ý tưởng từ evuez

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

đầu vào:

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

đầu ra:

  :  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 ký tự):

Dự kiến ssẽ giữ chuỗi.

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

Điều này tuân theo các quy tắc mới một cách hoàn hảo.

Lưu ý: Điều này giả định một môi trường sạch, không có thuộc tính tùy chỉnh trên bất kỳ nguyên mẫu đối tượng tiêu chuẩn nào.

Chỉnh sửa: 1 ký tự ít hơn!

Bảng điều khiển đầu ra:

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âu trả lời cũ (44 ký tự):

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

Điều này là hợp lệ trước khi các quy tắc thay đổi.

r chứa đầu ra.

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 ký tự)

Dựa trên nhận xét của @ Spongeman, tôi đã thay đổi một chút:

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 ký tự

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

Đầu ra

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

Nếu bạn muốn không gian xung quanh :, thay đổi꾠 để 긃똠, làm cho nó 20 ký tự.

Giải trình

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 với định dạng theo quy định)

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

Đầu ra:

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

Với định dạng quy định, nó trở thành:

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

Toán học, 34 29 byte

Không chắc tại sao câu trả lời Mathicala khác lại phức tạp đến thế ...;)

Grid@Tally@Characters@Input[]

Bash ( 20 15 ký tự)

 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

Mã hóa ASCII hiện được hỗ trợ

Bash (23 ký tự):

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

Định dạng ASCII không được hỗ trợ

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 nhờ @Poke .
-7 byte nhờ @ OlivierGrégoire .

Giải trình:

Hãy thử nó ở đây.

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

Tập lệnh lệnh Windows - 72 byte

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

Đầu ra:

\=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 ký tự

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

Định dạng đầu ra hơi khác nhau (dòng 2 là stdin):

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

J, 22 ký tự

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

Thí dụ:

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

Trong trường hợp của chúng tôi, nếu đầu vào sẽ là " Định nghĩa điên rồ là trích dẫn cùng một cụm từ nhiều lần và không mong đợi sự tuyệt vọng. "

Đầu ra sẽ là:

  : 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

Đây là câu trả lời của người Manila nhưng ngắn hơn:

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

Cái này của tôi:

C #: 103

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

Python 2 (90 ký tự)

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

Đầu ra khi chạy trên nguồn riêng của nó:

  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