コードはテキストを入力する必要があります（ファイル、標準入力、JavaScriptの文字列などは必須ではありません）：

This is a text and a number: 31.

出力には、出現回数で降順でソートされた単語が含まれている必要があります。

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

31は単語であるため、単語は英数字であり、数値は区切り文字として機能しないため、たとえば0xAF、単語として修飾されます。区切り文字は.、-（ドット）や（ハイフン）を含む英数字ではないもの、つまり2語i.e.またはpick-me-up3語になります。大文字と小文字を区別しなければならない、Thisそしてthis二つの異なる単語であろう、 'またようにセパレータであろうwouldnとtの2つの異なる単語であろうwouldn't。

選択した言語で最短のコードを記述します。

これまでの最短正解：

• grepおよびcoreutils-42バイト

grepおよびcoreutils  44  42

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

テスト：

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

結果：

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

更新

• 大文字と小文字を区別しないオプションと短い正規表現を使用します。ありがとうトーマス。

Java 8：289

javaは非常に非ゴルフ言語なので、これはかなり良いことです。

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

ゴルフをしていない：

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

コマンドラインから実行します。

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

例えば

      ⎕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

説明：

• ⎕D,⎕A,⎕UCS 96+⍳26：数字、大文字、小文字
• (I←⍞)∊：入力を読み取り、保存しI、どれが英数字であるかを確認します
• Z←I⊂⍨：I英数字のグループに分割して保存Z
• +⌿∘.≡⍨Z：の各要素についてZ、発生頻度を確認します
• Z,⍪：各要素をZペアで、それが発生する回数と一致させます
• G←⊃∪↓：一意のペアのみを選択して保存 G
• ⍒,1↓⍉G：オカレンスのソートされたインデックスを取得します
• G[... ;]：行を指定Gされたインデックスで並べ替えます

C＃：153c 144c 142c 111c 115c 118c 114c 113c

（入力文字列を含まない「C＃ステートメント」モードのLINQPad経由）

バージョン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();

ゴルフをしていない：

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

結果：

バージョン2：114c

（が[\w]含まれていますが_、これは誤りです！;が[A-z]含まれてい[ \ ] ^ _ `ます;落ち着きます[^_\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();

ゴルフをしていない：

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

結果：（バージョン1として）

R、58文字

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

使用法：

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文字

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

一致するものを入力し\w+、結果の単語のリストをaに入れBag、それらのペアを求め、それらを負の値でソートします。（これ*はどんな星でも、ここでは乗算ではありません）

出力：

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

改行で動作するようになりました：

$ 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バイト

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

入力はコマンドライン引数として受け入れられます。例：

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

サンプル文字列の出力：

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は、入力文字列を含む変数です。

Perl 69

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

@primoおよび@protistからの推奨事項を追加しました

Powershell：57 55 53 62 57

（入力文字列を含まない）

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

戻り値：

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}

（グループ-caの@microbianの小道具付き）

EcmaScript 6

バージョン1（108文字）

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

バージョン2（102文字）

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

バージョン3（105文字）

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

バージョン4（94文字）

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

バージョン5（アラートなし、87文字）

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

バージョン6（100文字）

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

出力：

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

グルービー77 82

アンダースコアの問題を解決するために正規表現をから[^\w]+に変更しまし[^\d\p{L}]+た

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}

最初の行なし、82文字

出力：

[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

が、gawk asort連想配列上で動作し、それは明らかに外部を必要と、インデックス値が保持されませんsort

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

PROCINFO連想配列のデフォルトのソート順を設定するために使用する、少し大きいが純粋なgawkソリューション（比較的最近のgawk-> 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文字！

（最短のJSコード）

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

正規表現といくつかの編集を改善しました。

非ゴルフ

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 =「この日はどれだけ輝くのか」

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

古い- 156 143 141 140 132の文字

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

ゴルフに挑戦してみてください。フィードバックに感謝します。

ECMAScriptの6、115 100（プロンプト＆警告なし）87

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

プロンプトと警告あり（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]))

Firefoxで実行します。

ルビー58 82 65

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

試運転：

$ 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]

^{編集58-> 80：わかりました。単語を発生順にソートするのを忘れていました。また、Array#uniqは列挙子ではありませんが、指定されたブロックを使用して要素を比較するため、それに渡すputsことで重複を除外しませんでした（そうすべきだと言っているわけではありません）。}

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

デゴルフド：

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

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

更新：コメントで要求されたいくつかの説明。

set関数を使用して、入力に英数字以外の文字の配列を生成してString.Splitに渡し、シーケンス関数を使用して空の文字列をフィルターで除外し、単語数を生成して結果を出力します。

ゴルフのコツ：関数の引数sに空の文字列を追加して、明示的に型を宣言するのではなく、文字列として引数の型推論を強制します。Seq.filterではなくSeq.whereを使用して、いくつかの文字を保存します（同義語です）。文字を最小限に抑えるために、フォワードパイプと通常の関数アプリケーションを混合します。カリー化と（op）構文を使用して、<>〜-および<||を処理します ラムダを宣言して空の文字列をフィルタリングしたり、カウントを降順に並べ替えたり、タプルを出力したりすることを避けるための通常の関数としての演算子

Python-95（ @primoのおかげで87になりました）

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

サンプル入力：

'This is a text and a number: 31'

サンプル出力：

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

改善の提案は高く評価されます

JavaScript 160 144（編集：要件を満たすため）

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

未縮小：

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

各単語を順番にコンソールに記録し、次の文字列を渡します。

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?.";

出力：

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 

使う心がないalert()。

k [71文字]

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

英数字以外の文字はすべて区切り文字と見なされます。

例

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

例

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)

未縮小：

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)

一致するすべての可能な数を降順でループし、その出現回数で単語を出力します。ただ恐ろしいことです。

注：アラートにより、長さが多少短縮されます。厳密に言えば英数字は[^\W_]

Haskell（153 = 104コード+ 49インポート）

とても簡単で、完全に構成された関数です...引数さえ必要ありません！これは私の最初のゴルフなので、たぶん簡単ですか？:)

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

出力：

*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は非英数字を置き換えます
• "" vsは結果をシンボルリストに分割します
• 各グループをカウントすると、リストの個別の要素と出現回数が一致する辞書が作成されます
• descは、値を降順で辞書を並べ替えます

編集：誤って一致するascii 58-64および91-96を修正

Pure Bash（外部プログラムなし）、164

これは私が思っていたよりも長いですが、必要なカウントとソート（正しい方向）が純粋にbash配列（連想および非連想）で実行できるかどうかを見たかったのです。

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

スクリプトファイルとして保存し、chmod +x実行します：

$ ./countoccurこれはテキストと数字です：31。
a：2
および：1
番号：1
テキスト：1
31：1
is：1
これ：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-"}'

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

代わりに「count：word」を印刷する場合、少し短くなりますが、指定された出力例を模倣したいと思います...

Tcl、99バイト

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

オンラインでお試しください！

Python 2.X（108-キャラクター）

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

Python 3.X（106-キャラクター）

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

ハスケル-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

残念ながら、英数字以外の文字で分割する必要があるため、コードが19文字拡張されます。次の出力は正しく表示されます。わからない場合は、の.most_common()後にを追加してください.Counter(...)。

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

入出力

This is a text and a number: 31.あなたの入力を考えると、次の出力が得られます：

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

私は次のような他の値で試しました

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

確実にするために、出力順序はキーの値/ハッシュに依存しません。この例では以下を生成します。

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

しかし、私が言ったようにprint(i('collections').Counter(i('re').findall('\w+',input())).most_common())、結果を明確に順序付けられたタプルのリストとして返します。

Python 3-57 （スペースが分割に十分な場合：P）

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