Kode harus mengambil input teks (tidak wajib bisa berupa file apa pun, stdin, string untuk JavaScript, dll):

This is a text and a number: 31.

Output harus berisi kata-kata dengan jumlah kemunculannya, diurutkan berdasarkan jumlah kemunculan dalam urutan menurun:

a:2
and:1
is:1
number:1
This:1
text:1
31:1

Perhatikan bahwa 31 adalah kata, jadi kata adalah apa saja alfa-numerik, angka tidak bertindak sebagai pemisah sehingga misalnya 0xAFmemenuhi syarat sebagai kata. Pemisah akan berupa apa saja yang bukan alfanumerik termasuk .(titik) dan -(tanda hubung) dengan demikian i.e.atau pick-me-upakan menghasilkan 2 masing-masing 3 kata. Harus peka huruf besar-kecil, Thisdan thisakan menjadi dua kata yang berbeda, 'juga akan menjadi pemisah sehingga wouldndan takan menjadi 2 kata yang berbeda wouldn't.

Tulis kode terpendek dalam bahasa pilihan Anda.

Sejauh ini jawaban benar terpendek:

• grep dan coreutils - 42 byte

grep dan coreutils  44  42

grep -io '[a-z0-9]*'|sort|uniq -c|sort -nr

Uji:

printf "This is a text and a number: 31." |
grep -io '[a-z0-9]*'|sort|uniq -c|sort -nr

Hasil dalam:

  2 a
  1 This
  1 text
  1 number
  1 is
  1 and
  1 31

Memperbarui

• Gunakan opsi case-insensitive dan regex yang lebih pendek. Terima kasih Tomas.

Java 8: 289

Yang cukup bagus, karena java adalah bahasa yang sangat tidak golf.

import java.util.stream.*;class C{static void main(String[]a){Stream.of(a).flatMap(s->of(s.split("[\\W_]+"))).collect(Collectors.groupingBy(x->x,Collectors.counting())).entrySet().stream().sorted(x,y->x.getValue()-y.getValue()).forEach(e->System.out.println(e.getKey()+":"+e.getValue()));}

Tidak Disatukan:

import java.util.stream.*;
class C {
    static void main(String [] args){
        Stream.of(args).flatMap(arg->Stream.of(arg.split("[\\W_]+")))
            .collect(Collectors.groupingBy(word->word,Collectors.counting()))
            .entrySet().stream().sorted(x,y->x.getValue()-y.getValue())
            .forEach(entry->System.out.println(entry.getKey()+":"+entry.getValue()));
    }
}

Jalankan dari baris perintah:

java -jar wordCounter.jar This is a text and a number: 31.

APL (57)

⎕ML←3⋄G[⍒,1↓⍉G←⊃∪↓Z,⍪+⌿∘.≡⍨Z←I⊂⍨(I←⍞)∊⎕D,⎕A,⎕UCS 96+⍳26;]

misalnya

      ⎕ML←3⋄G[⍒,1↓⍉G←⊃∪↓Z,⍪+⌿∘.≡⍨Z←I⊂⍨(I←⍞)∊⎕D,⎕A,⎕UCS 96+⍳26;]
This is a text and a number: 31.
 a       2
 This    1
 is      1
 text    1
 and     1
 number  1
 31      1

Penjelasan:

• ⎕D,⎕A,⎕UCS 96+⍳26: angka, huruf besar, huruf kecil
• (I←⍞)∊: baca input, simpan di I, lihat mana yang alfanumerik
• Z←I⊂⍨: dibagi Idalam kelompok karakter alfanumerik, simpan diZ
• +⌿∘.≡⍨Z: untuk setiap elemen dalam Z, lihat seberapa sering itu terjadi
• Z,⍪: cocokkan setiap elemen secara Zberpasangan dengan berapa kali itu terjadi
• G←⊃∪↓: pilih hanya pasangan unik, simpan di G
• ⍒,1↓⍉G: dapatkan indeks yang diurutkan untuk kemunculannya
• G[... ;]: menyusun ulang garis Gdengan indeks yang diberikan

C #: 153c 144c 142c 111C 115c 118c 114c 113c

(via LINQPad dalam mode "C # Statement", tidak termasuk string input)

Versi 1: 142c

var s = "This is a text and a number: 31."; // <- line not included in count
s.Split(s.Where(c=>!Char.IsLetterOrDigit(c)).ToArray(),(StringSplitOptions)1).GroupBy(x=>x,(k,e)=>new{s,c=e.Count()}).OrderBy(x=>-x.c).Dump();

Tidak Disatukan:

var s = "This is a text and a number: 31.";
s.Split(                                                     // split string on multiple separators
    s.Where(c => !Char.IsLetterOrDigit(c))                   // get list of non-alphanumeric characters in string
     .ToArray(),                                             // (would love to get rid of this but needed to match the correct Split signature)
    (StringSplitOptions)1                                    // integer equivalent of StringSplitOptions.RemoveEmptyEntries
).GroupBy(x => x, (k, e) => new{ s = k, c = e.Count() })     // count by word
 .OrderBy(x => -x.c)                                         // order ascending by negative count (i.e. OrderByDescending)
 .Dump();                                                    // output to LINQPad results panel

Hasil:

Versi 2: 114c

( [\w]termasuk _, yang salah!; [A-z]termasuk [ \ ] ^ _ `; menyelesaikan [^_\W]+)

var s = "This is a text and a number: 31."; // <- line not included in count
Regex.Matches(s, @"[^_\W]+").Cast<Match>().GroupBy(m=>m.Value,(m,e)=>new{m,c=e.Count()}).OrderBy(g=>-g.c).Dump();

Tidak Disatukan:

Regex.Matches(s, @"[^_\W]+")                                   // get all matches for one-or-more alphanumeric characters
     .Cast<Match>()                                            // why weren't .NET 1 collections retrofitted with IEnumerable<T>??
     .GroupBy(m => m.Value, (m,e) => new{ m, c = e.Count() })  // count by word
     .OrderBy(g => -g.c)                                       // order ascending by negative count (i.e. OrderByDescending)
     .Dump();                                                  // output to LINQPad results panel

Hasil: (seperti Versi 1)

R, 58 char

sort(table(unlist(strsplit(scan(,""),"[[:punct:]]"))),d=T)

Pemakaian:

sort(table(unlist(strsplit(scan(,""),"[[:punct:]]"))),d=T)
1: This is a text and a number: 31.
9: 
Read 8 items

     a     31    and     is number   text   This 
     2      1      1      1      1      1      1 

perl6: 49 karakter

.say for get.comb(/\w+/).Bag.pairs.sort(-*.value)

Sisir input untuk pencocokan barang \w+, masukkan daftar kata yang dihasilkan di a Bag, minta pasangan mereka dan urutkan berdasarkan nilai negatif. (The *adalah bintang Apapun , ini bukan perkalian di sini)

keluaran:

"a" => 2
"This" => 1
"is" => 1
"text" => 1
"and" => 1
"number" => 1
"31" => 1

Python 101 97

import re
a=re.split('[_\W]+',input())
f=a.count
for w in sorted(set(a),key=f)[::-1]:print w,f(w)

Sekarang berfungsi dengan baris baru:

$ python countword.py <<< '"This is    a text and a number: 31, and a\nnewline"'
a 3
and 2
31 1
number 1
newline 1
is 1
text 1
This 1

PHP - 84 byte

<?$a=array_count_values(preg_split('/[_\W]+/',$argv[1],0,1));arsort($a);print_r($a);

Input diterima sebagai argumen baris perintah, misalnya:

$ php count-words.php "This is a text and a number: 31."

Output untuk string sampel:

Array
(
    [a] => 2
    [number] => 1
    [31] => 1
    [and] => 1
    [text] => 1
    [is] => 1
    [This] => 1
)

PowerShell (40)

$s -split"\W+"|group -ca|sort count -des

$ s adalah variabel yang berisi string input.

Perl 69

$h{$_}++for<>=~/\w+/g;print"$_: $h{$_}
"for sort{$h{$b}-$h{$a}}keys%h

Rekomendasi tambahan dari @primo dan @protist

Powershell: 57 55 53 62 57

(tidak termasuk string input)

$s = "This is a text and a number: 31."    # <-- not counting this line...
[Regex]::Matches($s,"[^_\W]+")|group -ca|sort{-$_.Count}

pengembalian:

Count Name                      Group
----- ----                      -----
    2 a                         {a, a}
    1 and                       {and}
    1 31                        {31}
    1 number                    {number}
    1 This                      {This}
    1 is                        {is}
    1 text                      {text}

(dengan alat peraga ke @ microbian untuk grup -ca)

EcmaScript 6

Versi 1 (108 karakter)

s.split(_=/[^a-z\d]/i).map(x=>_[x]=-~_[x]);keys(_).sort((a,b)=>_[a]<_[b]).map(x=>x&&console.log(x+':'+_[x]))

Versi 2 (102 karakter)

s.split(_=/[^a-z\d]/i).map(x=>_[x]=-~_[x]);keys(_).sort((a,b)=>_[a]<_[b]).map(x=>x&&alert(x+':'+_[x]))

Versi 3 (105 karakter)

s.match(_=/\w+/g).map(x=>_[x]=-~_[x]);alert(keys(_).sort((a,b)=>_[a]<_[b]).map(x=>x+':'+_[x]).join('\n'))

Versi 4 (94 karakter)

s.match(_=/\w+/g).map(x=>_[x]=-~_[x]);keys(_).sort((a,b)=>_[a]<_[b]).map(x=>alert(x+':'+_[x]))

Versi 5 (tanpa peringatan; 87 karakter)

s.match(_=/\w+/g).map(x=>_[x]=-~_[x]);keys(_).sort((a,b)=>_[a]<_[b]).map(x=>x+':'+_[x])

Versi 6 (100 karakter)

keys(_,s.match(_=/\w+/g).map(x=>_[x]=-~_[x])).sort((a,b)=>_[a]<_[b]).map(x=>console.log(x+':'+_[x]))

Keluaran:

a:2
31:1
This:1
is:1
text:1
and:1
number:1

Groovy 77 82

mengubah regex dari [^\w]+menjadi [^\d\p{L}]+untuk menyelesaikan masalah dengan garis bawah

String s = 'This is a text and a number: 31'

def a=s.split(/[^\d\p{L}]+/) 
a.collectEntries{[it, a.count(it)]}.sort{-it.value}

tanpa baris pertama, 82 karakter

keluaran:

[a:2, This:1, is:1, text:1, and:1, number:1, 31:1]

GNU awk + coreutils: 71 69

gawk 'BEGIN{RS="\\W+"}{c[$0]++}END{for(w in c)print c[w],w}'|sort -nr

Meskipun gawk asortbekerja pada array asosiatif, itu tampaknya tidak mempertahankan nilai indeks, mengharuskan eksternalsort

printf "This is a text and a number: 31." | 
gawk 'BEGIN{RS="\\W+"}{c[$0]++}END{for(w in c)print c[w],w}'|sort -nr
2 a
1 This
1 text
1 number
1 is
1 and
1 31

GNU awk 4.x: 100 93

Solusi gawk yang sedikit lebih besar tetapi murni menggunakan PROCINFOuntuk mengatur urutan sortir default untuk array asosiatif (tampaknya membutuhkan gawk yang relatif baru -> 4.x?)

BEGIN{RS="\\W+";PROCINFO["sorted_in"]="@val_num_desc"}
{c[$0]++}
END{for(w in c)print c[w],w}

Javascript - 132 126 karakter!

(Kode JS terpendek)

o={},a=[]
for(i in s=s.split(/[\W_]+/))o[z=s[i]]=o[z]+1||1
for(j in o)a.push([j,o[j]])
a.sort(function(b,c){return c[1]-b[1]})

Memperbaiki regex dan beberapa pengeditan.

Tidak disatukan

s = s.split(/[\W_]+/), o={}, a=[]; // split along non-char letters, declare object and array

for (i in s) { n = s[i]; o[n] = o[n] + 1 || 1 } // go through each char and store it's occurence

for (j in o) a.push( [j, o[j]] ); // store in array for sorting

a.sort(function (b, c){ return c[1] - b[1]; }); // sort !

<= // make s = "Betapa mengkilapnya hari ini?"

=> [['is', 3],
['How', 1],
['shiny', 1],
['this', 1],
['day', 1],
['isn', 1] ,
['t', 1]]

Tua - 156 143 141 140 132 karakter

s=s.split(/[^\w]+/g),o={}
for(i in s){n=s[i];o[n]=o[n]+1||1}a=[]
for(j in o)a.push([j,o[j]])
a.sort(function(b,c){return c[1]-b[1]})

Memberi percobaan golf yang pertama. Umpan balik dihargai.

EcmaScript 6, 115 100 87 (tanpa peringatan & peringatan)

Terima kasih kepada @eithedog:

s.match(/\w+/g,a={}).map(w=>a[w]=-~a[w]),keys(a).map(w=>[w,a[w]]).sort((a,b)=>b[1]-a[1])

Dengan cepat dan waspada (100):

prompt(a={}).match(/\w+/g).map(w=>a[w]=-~a[w]);alert(keys(a).map(w=>[w,a[w]]).sort((a,b)=>b[1]-a[1]))

Jalankan di Firefox.

Ruby 58 82 65

h=Hash.new 0
gets.scan(/[\d\w]+/){h[$&]+=1}
p *h.sort_by{|k,v|-v}

Uji coba:

$ ruby counttext.rb <<< "This is a text and a number: 31."
["a", 2]
["text", 1]
["This", 1]
["is", 1]
["and", 1]
["number", 1]
["31", 1]

^{Sunting 58-> 80: Oke, saya tidak ada. Saya lupa mengurutkan kata berdasarkan kejadian. Selain itu, Array#uniqbukan enumerator, tetapi menggunakan blok yang diberikan untuk membandingkan elemen, jadi meneruskannya putstidak menyaring duplikat (bukan berarti ia harus melakukannya).}

F # - 169

let f s=(s+"").Split(set s-set(['a'..'z']@['A'..'Z']@['0'..'9'])|>Set.toArray)|>Seq.where((<>)"")|>Seq.countBy id|>Seq.sortBy((~-)<<snd)|>Seq.iter((<||)(printfn"%s:%d"))

Diturunkan:

let count (s : string) =
    s.Split (set s - set (['a'..'z']@['A'..'Z']@['0'..'9']) |> Set.toArray)
 |> Seq.where ((<>) "")
 |> Seq.countBy id
 |> Seq.sortBy ((~-) << snd)
 |> Seq.iter ((<||) (printfn "%s:%d"))

Output ketika dipanggil dari fsi:

> "This is a text and a number: 31." |> f
a:2
This:1
is:1
text:1
and:1
number:1
31:1
val it : unit = ()

Perbarui: Beberapa penjelasan seperti yang diminta dalam komentar.

Menggunakan fungsi yang ditetapkan untuk menghasilkan array karakter non-alfanumerik di input untuk diteruskan ke String.Split, lalu menggunakan fungsi urutan untuk menyaring string kosong, menghasilkan jumlah kata, dan mencetak hasilnya.

Beberapa trik bermain golf: Menambahkan string kosong ke argumen fungsi s untuk memaksa inferensi tipe argumen sebagai string daripada secara eksplisit menyatakan jenisnya. Menggunakan Seq.where daripada Seq.filter untuk menyimpan beberapa karakter (mereka adalah sinonim). Memadukan pipa maju dan aplikasi fungsi biasa dalam upaya meminimalkan karakter. Menggunakan sintaksis currying dan (op) untuk menangani <> ~ - dan <|| operator sebagai fungsi biasa untuk menghindari menyatakan lambdas untuk memfilter string kosong, urutkan berdasarkan jumlah yang menurun dan mencetak tupel.

Python - 95 (sekarang 87 berkat @primo)

d=__import__('re').findall(r'\w+',raw_input())
print sorted(map(lambda y:(y,d.count(y)),d))

Input sampel:

'This is a text and a number: 31'

Output sampel:

[('This', 1),('is', 1), ('a', 2),('text', 1),('and', 1),('a', 2),('number', 1),('31', 1)]

Saran perbaikan apa pun akan dihargai

JavaScript 160 144 (Diedit: untuk memenuhi persyaratan)

f=Function;o={};s.replace(/\w+/g,f('a','o[a]=++o[a]||1'));Object.keys(o).sort(f('b,c','return o[c]-o[b]')).map(f('k','console.log(k+" "+o[k])'))

Tidak dijinakkan:

f=Function;
o = {};
s.replace(/\w+/g, f('a','o[a]=++o[a]||1'));
Object.keys(o).sort(f('b,c', 'return o[c]-o[b]')).map(f('k','console.log(k+" "+o[k])'))

Log setiap kata ke konsol dalam urutan, melewati string berikut:

s="This is sam}}ple text 31to test the effectiveness of this code, you can clearly see that this is working-as-intended, but you didn't doubt it did you?.";

Output:

you 3
this 2
is 2
can 1
text 1
31to 1
test 1
the 1
effectiveness 1
of 1
This 1
code 1
sam 1
ple 1
clearly 1
see 1
that 1
working 1
as 1
intended 1
but 1
didn 1
t 1
doubt 1
it 1
did 1 

Saya tidak punya hati untuk digunakan alert().

k [71 karakter]

f:{s:" ",x;`_k!m@k:|(!m)@<.:m:#:'=`$1_'(&~((),/:s)like"[a-zA-Z0-9]")_s}

Karakter lain apa pun kecuali karakter alfanumerik akan dianggap sebagai pembatas.

contoh

f "This is a text and a number: 31."
a     | 2
31    | 1
number| 1
and   | 1
text  | 1
is    | 1
This  | 1

contoh

f "won't won won-won"
won| 4
t  | 1

Javascript (135)

u=/\w+/g
for(i=s.length;i--;)for(w in a=s.match(u))u[w=a[w]]=u[w]||a.reduce(function(p,c){return p+=w==c},0)==i&&!console.log(w+":"+i)

Tidak dijinakkan:

u=/\w+/g;for (i=s.length;i--;)
    for(w in a=s.match(u))
        u[w=a[w]] = u[w] || 
           a.reduce(function(p,c){return p+=w==c},0)==i && !console.log(w+":"+i)

Ulangi setiap kemungkinan jumlah kecocokan dalam urutan menurun, dan keluarkan kata-kata dengan jumlah kemunculan itu. Hanya untuk menjadi mengerikan.

Catatan: Peringatan akan mengurangi panjangnya. Seharusnya alfanumerik berbicara[^\W_]

Haskell (153 = 104 kode + 49 impor)

Cukup mudah, fungsi yang sepenuhnya tersusun ... bahkan tidak perlu ada argumen! Ini golf pertama saya, jadi mudah saja, mungkin? :)

import Data.Char
import Data.List
import Data.Ord
so=reverse.(sortBy$comparing snd).(map(\t@(x:_)->(x,length t))).group.sort.(map$filter isAlphaNum).words

Keluaran:

*Main> so "This is a text and a number: 31."
[("a",2),("text",1),("number",1),("is",1),("and",1),("This",1),("31",1)]

q (50)

desc count each group" "vs ssr[;"[^0-9A-Za-z]";" "]

• ssr menggantikan bukan alfanumerik
• "" vs membagi hasil menjadi daftar simbol
• menghitung setiap jumlah kelompok membuat dict yang cocok dengan elemen yang berbeda dari daftar dengan jumlah kejadian
• desc mengurutkan dict dengan menurunkan nilai

sunting: diperbaiki secara tidak sengaja ascii cocok 58-64 dan 91-96

Pure Bash (tidak ada program eksternal), 164

Ini lebih lama daripada yang saya harapkan, tetapi saya ingin melihat apakah penghitungan dan penyortiran yang diperlukan (ke arah yang benar) dapat dilakukan secara murni dengan basharray (asosiatif dan non-asosiatif):

declare -A c
for w in ${@//[[:punct:]]/ };{ ((c[$w]++));}
for w in ${!c[@]};{ i=${c[$w]};((m=i>m?i:m));s[$i]+=$w:;}
for((i=m;i>0;i--));{ printf "${s[i]//:/:$i
}";}

Simpan sebagai file skrip chmod +x,, dan jalankan:

$ ./countoccur Ini adalah teks dan angka: 31.
a: 2
dan 1
nomor 1
teks: 1
31: 1
adalah: 1
Ini: 1
$ 

AWK

awk -vRS='[^A-Za-z0-9]' '$0{c[$0]++}END{for(i in c)print c[i]"\t"i": "c[i]|"sort -nr|cut -f2-"}'

Apakah pekerjaan tanpa ekstensi gawkish:

$ echo 'This is a text and a number: 31.' | awk -vRS='[^A-Za-z0-9]' '$0{c[$0]++}END{for(i in c)print c[i]"\t"i": "c[i]|"sort -nr|cut -f2-"}'
a: 2
This: 1
text: 1
number: 1
is: 1
and: 1
31: 1

Jika mencetak "count: word" sebagai gantinya, itu akan menjadi sedikit lebih pendek tapi saya ingin meniru contoh output yang diberikan ...

Tcl , 99 byte

proc C s {lmap w [split [regsub -all \[^\\w|\ \] $s {}]] {dict inc D $w}
lsort -s 2 -inde 1 -de $D}

Cobalah online!

Python 2.X (108 - Karakter)

print'\n'.join('{}:{}'.format(a,b)for a,b in __import__("collections").Counter(raw_input().split()).items())

Python 3.X (106 - Karakter)

print('\n'.join('{}:{}'.format(a,b)for a,b in __import__("collections").Counter(input().split()).items())

Haskell - 137

import Data.List
count text=let textS=(words(text\\".-\':")) in (sortBy (\(_,n) (_,m) -> compare m n)).nub$map(\t->(t,(length.(filter(==t)))textS)) textS

Python 3 - 76

Persyaratan pemisahan pada karakter non-alfanumerik sayangnya menambah kode sebanyak 19 karakter. Output dari berikut ini ditampilkan dengan benar. Jika Anda tidak yakin, tambahkan .most_common()setelah .Counter(...).

i=__import__
print(i('collections').Counter(i('re').findall('\w+',input())))

In / Output

Diberikan input dari This is a text and a number: 31.Anda mendapatkan output berikut:

Counter({'a': 2, 'is': 1, 'This': 1, 'and': 1, '31': 1, 'number': 1, 'text': 1})

Saya mencobanya dengan nilai-nilai lain seperti

1 2 3 4 5 6 7 8 2 1 5 3 4 6 8 1 3 2 4 6 1 2 8 4 3 1 3 2 5 6 5 4  2 2 4 2 1 3 6

untuk memastikan, output-order tidak bergantung pada nilai / hash kunci. Contoh ini menghasilkan:

Counter({'2': 8, '3': 6, '1': 6, '4': 6, '6': 5, '5': 4, '8': 3, '7': 1})

Tapi seperti yang saya katakan, print(i('collections').Counter(i('re').findall('\w+',input())).most_common())akan mengembalikan hasilnya sebagai daftar tupel yang dipesan secara pasti .

Python 3 - 57 (jika spasi cukup untuk pemisahan: P)

print(__import__('collections').Counter(input().split()))