Код повинен приймати рядок як вхід з клавіатури:

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

Усі символи ASCII підраховуються unicode - це не вимога, пробіли, лапки та ін., А вхід повинен надходити з клавіатури / не констант, атрибутів, вихідних даних слід друкувати новим рядком після кожного символу, як у наведеному вище прикладі, він не повинен повертатися як рядок або скидали в HashMap / словник і т.д., так x : 1і x: 1в порядку, але {'x':1,...і x:1не є.

Q: Функція чи повна програма, яка приймає stdin та пише stdout?
Відповідь: Код повинен бути програмою, яка приймає введення, використовуючи стандартний показ, і відображати результат за допомогою стандартного виходу.

Табло:

Найкоротший загальний : 5 байт

Найкоротший загальний : 7 байт

APL (Dyalog Unicode) , 5 байт ^SBCS

Повний орган програми. Запрошує рядок з STDIN і друкує таблицю, відокремлену в новому рядку, на STDOUT. Найменше лівий стовпець - це вхідні символи, і підрахунки вирівнюються правою мірою, найбільша кількість відокремлена від його символу одним пробілом.

,∘≢⌸⍞

Спробуйте в Інтернеті!

⍞ запит на введення тексту з STDIN

⌸ Таблиця створити " ключі , що складається з
 , унікального елемента з подальшим
 ∘ шляхом
 ≢ підведення підсумків показників його виникнення (тобто скільки разів це відбувається)

PHP - 68 (або 39) байт

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

Виведення для прикладу тексту:

  : 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

Якщо точний вихід не потрібен, це буде працювати на 39 байт :

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

Вибірка зразка:

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
)

де кожен числовий індекс посилається на порядкове значення символу, який він представляє.

Я дуже підозрюю, що використання вбудованої функції, яка робить саме те, що виникає в проблемі, незабаром буде заборонено.

k ( 8 7)

#:'=0:0

Приклад

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

редагувати: до семи, H / T Aaron Davies

Пояснення

Візьміть рядок з клавіатури:

k)0:0
text
"text"

Згрупуйте окремі елементи та поверніть карту, що містить ключ, як окремі символи та значення, - це індекси, де зустрічаються окремі елементи.

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

Тепер порахуйте значення кожного запису на карті.

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

Основні утиліти GNU - 29 22 20 символів (53 з форматуванням)

Вдосконалення Wumpus (20 символів):

fold -1|sort|uniq -c

Покращення світлячка (22 символи):

grep -o .|sort|uniq -c

оригінал joeytwiddle (29 символів):

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

Спочатку я sedпросто додавав новий рядок після кожного символу. Firefly вдосконалював це grep -o ., оскільки -oвідображає кожен узгоджений візерунок у власній лінії. Wumpus вказав на подальше вдосконалення, використовуючи fold -1натомість. Хороша робота!

uniq справжня робота, хоча це стосується лише відсортованих списків.

Зауважте, що формат виводу точно не відповідає прикладу у питанні. Для цього потрібен остаточний запуск, sedщоб поміняти аргументи. (Чекаю відповіді на запитання Яна Дворака, щоб побачити, чи потрібно це ...)

Переформатування за допомогою "sed" - це ще 33 символи! ( Всього 53 )

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

Awk майже може виконати роботу, додавши лише 25 символів, але приховує перший пробіл. Нерозумно!

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

Цікаво, чи можна зробити поліпшення на етапі переформатування ...

Рубін 1.9.3: 53 символи

(На основі коментарів @ shiva та @ daneiro.)

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

Проба зразка:

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 символи

Не поважаючи вихідний формат:

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

Проба зразка:

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}

Пітон 3: 76 символів

76

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

44

(друкуйте одні й ті самі символи багато разів, див. відповідь Васі на дійсну версію)

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

Perl 6: 21 символів

.say for get.comb.Bag

(REPL)
>. Скажіть для get.comb.Bag
Визначення божевілля цитує одну і ту ж фразу знову і знову і не очікує відчаю.
"T" => 1
"h" => 3
"е" => 8
"" => 15
"d" => 4
"f" => 2
"i" => 10
"n" => 10
"t" => 6
"o" => 4
"s" => 5
"a" => 10
"у" => 1
"q" => 1
"u" => 1
"g" => 3
"m" => 1
"p" => 3
"r" => 2
"x" => 1
"c" => 1
"." => 1

APL (15)

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

Якщо вам справді потрібен :, це 19 (але є й інші, хто не включає його):

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

Вихід:

      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 символів

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

Приклад використання:

> 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 символи

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

JavaScript

1. 66 53 байти:

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

2. 69 56 байт:

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

3. 78 65 байт:

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

Примітка: У всіх випадках видалене число байтів стосується додаткового console.log()виклику, який є безглуздим при запуску в консолі. Велика подяка @imma за чудовий улов з -~a[b]і prompt(a={}). Це безумовно врятувало ще кілька байт.

Python 2, правильно (58)

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

Вихід:

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

Пітон 2, гепард (41)

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

Вихід:

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}

Математика, 61 байт

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

Потім з'являється це діалогове вікно,

а для зразкового речення - як вихід

пітон 3, 49

Вкрасти ідею від evuez

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

вхід:

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

JavaScript (69 68 символів):

Очікує sутримувати рядок.

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

Це ідеально дотримується нових правил.

Примітка. Це передбачає чисте середовище, без спеціальних властивостей у стандартних прототипах об'єктів.

Редагувати: 1 символ менше!

Вихід консолі:

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

Стара відповідь (44 символи):

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

Це було дійсно до зміни правил.

r містить вихід.

Хаскелл, 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 символів)

На основі коментаря @ Spongeman я трохи змінив його:

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])));}}

Сліптінг , 19 символів

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

Вихідні дані

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

Якщо ви хочете пробіли навколо :, перейдіть 꾠на 긃똠, зробивши це 20 символів.

Пояснення

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 із встановленим форматуванням)

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

Вихід:

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

При встановленому форматуванні воно стає:

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

Математика, 34 29 байт

Не впевнений, чому інша відповідь Mathematica настільки складна ...;)

Grid@Tally@Characters@Input[]

Bash ( 20 15 символів)

 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 тепер підтримується

Bash (23 символи):

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 не підтримується

Ява 8, 273 253 249 246 239 200 байт

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 байти завдяки @Poke .
-7 байт завдяки @ OlivierGrégoire .

Пояснення:

Спробуйте тут.

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 - 72 байти

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

Виходи:

\=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 символи

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

Трохи інший формат виводу (рядок 2 - stdin):

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

J, 22 символи

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

Приклад:

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

У нашому випадку, якщо вхід буде " Визначення божевілля цитує одну і ту ж фразу знову і знову, і не чекайте відчаю ".

Вихід буде:

  : 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

Це відповідь Авівса, але коротше:

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 #: 103

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

Python 2 (90 символів)

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

Виведення при запуску з власного джерела:

  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