Codice Golf 4 Luglio Edizione: Conteggio Top Ten avvenuti Parole

Question

Data la seguente lista di presidenti non un top numero di dieci parole nel programma più piccolo possibile:

INPUT FILE

 
    Washington 
    Washington 
    Adams 
    Jefferson 
    Jefferson 
    Madison 
    Madison 
    Monroe 
    Monroe 
    John Quincy Adams 
    Jackson 
    Jackson 
    Van Buren 
    Harrison 
    DIES 
    Tyler 
    Polk 
    Taylor 
    DIES 
    Fillmore 
    Pierce 
    Buchanan 
    Lincoln 
    Lincoln 
    DIES 
    Johnson 
    Grant 
    Grant 
    Hayes 
    Garfield 
    DIES 
    Arthur 
    Cleveland 
    Harrison 
    Cleveland 
    McKinley 
    McKinley 
    DIES 
    Teddy Roosevelt 
    Teddy Roosevelt 
    Taft 
    Wilson 
    Wilson 
    Harding 
    Coolidge 
    Hoover 
    FDR 
    FDR 
    FDR 
    FDR 
    Dies 
    Truman 
    Truman 
    Eisenhower 
    Eisenhower 
    Kennedy 
    DIES 
    Johnson 
    Johnson 
    Nixon 
    Nixon 
    ABDICATES 
    Ford 
    Carter 
    Reagan 
    Reagan 
    Bush 
    Clinton 
    Clinton 
    Bush 
    Bush 
    Obama 

Per iniziare fuori in bash 97 caratteri

cat input.txt | tr " " "\n" | tr -d "\t " | sed 's/^$//g' | sort | uniq -c | sort -n | tail -n 10 

uscita:

 
     2 Nixon 
     2 Reagan 
     2 Roosevelt 
     2 Truman 
     2 Washington 
     2 Wilson 
     3 Bush 
     3 Johnson 
     4 FDR 
     7 DIES 

Rompere i legami come meglio credi! Buon quarto!

Per quelli di voi che si preoccupano più informazioni sui presidenti possono essere trovati here.

Answer 1

Una versione più breve di shell:

xargs -n1 < input.txt | sort | uniq -c | sort -nr | head 

Se volete caso classifica insensitive, modificare uniq -c in uniq -ci.

Un po 'più breve ancora, se si è soddisfatti del rango invertito e della leggibilità compromessa dalla mancanza di spazi. Questo orologi in 46 caratteri:

xargs -n1<input.txt|sort|uniq -c|sort -n|tail 

(Si potrebbe spogliare questo fino a 38 se si era permesso di rinominare il file di input semplicemente "i" prima.)

Osservando che, in questo caso particolare , nessuna parola si verificano più di 9 volte siamo in grado di radere altre 3 caratteri facendo cadere l'argomento '-n' dal tipo finale:

xargs -n1<input.txt|sort|uniq -c|sort|tail 

che prende questa soluzione fino a 43 caratteri senza rinominare il file di input. (O 35, se lo fai.)

Utilizzare xargs -n1 per dividere il file in una parola su ogni riga è preferibile alla soluzione tr \ \\n, in quanto ciò crea molte righe vuote. Ciò significa che la soluzione non è corretta, perché manca Nixon e mostra una stringa vuota che mostra 256 volte. Tuttavia, una stringa vuota non è una "parola".

Answer 2

vim 60

 
    :1,$!tr " " "\n"|tr -d "\t "|sort|uniq -c|sort -n|tail -n 10 

Answer 3

Perl: 90

Perl: 114 (Compreso Perl, della linea di comando, apici e nome)

perl -nle'$h{$_}++for split/ /;END{$i++<=10?print"$h{$_} $_":0for reverse sort{$h{$a}cmp$h{$b}}keys%h}' input.txt 

Answer 4

Ecco una versione compressa dello script della shell, osservandolo per una ragionevole interpretazione dei dati di input (senza spazi vuoti iniziali o finali) che il secondo comando 'tr' e 'sed' nell'originale non cambino i dati (verificato inserendo 'tee out.N' in punti appropriati e controllando le dimensioni del file di output - identiche). La shell ha bisogno di meno spazi rispetto agli umani - e usa cat invece dello spazio di spreco di reindirizzamento degli I/O di input.

tr \ \\n<input.txt|sort|uniq -c|sort -n|tail -10 

Questo pesa in 50 caratteri incluso il fine riga alla fine della sceneggiatura.

Con due ulteriori osservazioni (tirato da risposte di altre persone):

1. tail da solo equivale a 'tail -10', e
2. in questo caso, l'ordinamento numerico e alfa sono equivalenti,

questo può essere ridotto di un ulteriore 7 caratteri (a 43 compreso fine riga):

tr \ \\n<input.txt|sort|uniq -c|sort|tail 

L'utilizzo di 'xargs -n1' (senza prefisso di comando fornito) anziché 'tr' è estremamente intelligente; si occupa di spazi iniziali, finali e multipli (che questa soluzione non comporta).

Answer 5

Vim 36

:%s/\W/\r/g|%!sort|uniq -c|sort|tail

Answer 6

La mia migliore prova con rubino finora, 166 caratteri:

h = Hash.new 
File.open('f.l').each_line{|l|l.split(/ /).each{|e|h[e]==nil ?h[e]=1:h[e]+=1}} 
h.sort{|a,b|a[1]<=>b[1]}.last(10).each{|e|puts"#{e[1]} #{e[0]}"} 

Sono sorpreso che nessuno ha scritto una soluzione pazza J ancora.

Answer 7

C#, 153:

Legge nel file a p e stampa i risultati alla console:

File.ReadLines(p) 
    .SelectMany(s=>s.Split(' ')) 
    .GroupBy(w=>w) 
    .OrderBy(g=>-g.Count()) 
    .Take(10) 
    .ToList() 
    .ForEach(g=>Console.WriteLine(g.Count()+"|"+g.Key)); 

Se solo produrre l'elenco, ma non la stampa alla console, è di 93 caratteri.

6|DIES 
4|FDR 
3|Johnson 
3|Bush 
2|Washington 
2|Adams 
2|Jefferson 
2|Madison 
2|Monroe 
2|Jackson 

Answer 8

pitone 3,1 (88 caratteri)

import collections 
collections.Counter(open('input.txt').read().split()).most_common(10) 

Answer 9

Python 2.6, chars:

l=open("input.txt").read().split() 
for c,n in sorted(set((l.count(w),w) for w in l if w))[-10:]:print c,n 

Answer 10

vim 38 e funziona per tutti gli input

:%!xargs -n1|sort|uniq -c|sort -n|tail 

Answer 11

La mancanza di AWK è disturbante.

xargs -n1<input.txt|awk '{c[$1]++}END{for(p in c)print c[p],p|"sort|tail"}' 

75 caratteri.

Se si vuole ottenere un po 'più AWKy, si può dimenticare xargs:

awk -v RS='[^a-zA-Z]' /./'{c[$1]++}END{for(p in c)print c[p],p|"sort|tail"}' input.txt 

Answer 12

Haskell, 102 caratteri (wow, così vicino alla corrispondenza all'originale):

import List 
(take 10.map snd.sort.map(\(x:y)->(-length y,x)).group.sort.words)`fmap`readFile"input.txt" 

J, solo 55 caratteri:

10{.\:~~.(,.~[:<"0@(+/)=/~);;:&.><;._2[1!:1<'input.txt' 

(ho ancora capire come eseguire elegantemente manip testo ulazioni in J ... è molto meglio a dati su array strutturato)

---

 
    NB. read the file 
    <1!:1<'input.txt' 
+---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------... 
| Washington  Washington  Adams  Jefferson  Jefferson  Madison  Madison  Monroe  Monroe  John Quincy Adams  Jackson  Jackson  Van Buren  Harrison DIES  Tyler  Polk  Taylor DIES  Fillmore  Pierce  ... 
+---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------... 
    NB. split into lines 
    <;._2[1!:1<'input.txt' 
+--------------+--------------+---------+-------------+-------------+-----------+-----------+----------+----------+---------------------+-----------+-----------+-------------+-----------------+---------+--------+---------------+------------+----------+----... 
| Washington| Washington| Adams| Jefferson| Jefferson| Madison| Madison| Monroe| Monroe| John Quincy Adams| Jackson| Jackson| Van Buren| Harrison DIES| Tyler| Polk| Taylor DIES| Fillmore| Pierce| ... 
+--------------+--------------+---------+-------------+-------------+-----------+-----------+----------+----------+---------------------+-----------+-----------+-------------+-----------------+---------+--------+---------------+------------+----------+----... 
    NB. split into words 
    ;;:&.><;._2[1!:1<'input.txt' 
+----------+----------+-----+---------+---------+-------+-------+------+------+----+------+-----+-------+-------+---+-----+--------+----+-----+----+------+----+--------+------+--------+-------+-------+----+-------+-----+-----+-----+--------+----+------+---... 
|Washington|Washington|Adams|Jefferson|Jefferson|Madison|Madison|Monroe|Monroe|John|Quincy|Adams|Jackson|Jackson|Van|Buren|Harrison|DIES|Tyler|Polk|Taylor|DIES|Fillmore|Pierce|Buchanan|Lincoln|Lincoln|DIES|Johnson|Grant|Grant|Hayes|Garfield|DIES|Arthur|Cle... 
+----------+----------+-----+---------+---------+-------+-------+------+------+----+------+-----+-------+-------+---+-----+--------+----+-----+----+------+----+--------+------+--------+-------+-------+----+-------+-----+-----+-----+--------+----+------+---... 
    NB. count reptititions 
    |:~.(,.~[:<"0@(+/)=/~);;:&.><;._2[1!:1<'input.txt' 
+----------+-----+---------+-------+------+----+------+-------+---+-----+--------+----+-----+----+------+--------+------+--------+-------+-------+-----+-----+--------+------+---------+--------+---------+----+------+-------+--------+------+---+------+------... 
|2   |2 |2  |2  |2  |1 |1  |2  |1 |1 |2  |6 |1 |1 |1  |1  |1  |1  |2  |3  |2 |1 |1  |1  |2  |2  |2  |1 |2  |1  |1  |1  |4 |2  |2  ... 
+----------+-----+---------+-------+------+----+------+-------+---+-----+--------+----+-----+----+------+--------+------+--------+-------+-------+-----+-----+--------+------+---------+--------+---------+----+------+-------+--------+------+---+------+------... 
|Washington|Adams|Jefferson|Madison|Monroe|John|Quincy|Jackson|Van|Buren|Harrison|DIES|Tyler|Polk|Taylor|Fillmore|Pierce|Buchanan|Lincoln|Johnson|Grant|Hayes|Garfield|Arthur|Cleveland|McKinley|Roosevelt|Taft|Wilson|Harding|Coolidge|Hoover|FDR|Truman|Eisenh... 
+----------+-----+---------+-------+------+----+------+-------+---+-----+--------+----+-----+----+------+--------+------+--------+-------+-------+-----+-----+--------+------+---------+--------+---------+----+------+-------+--------+------+---+------+------... 
    NB. sort 
    |:\:~~.(,.~[:<"0@(+/)=/~);;:&.><;._2[1!:1<'input.txt' 
+----+---+-------+----+------+----------+------+---------+------+-----+------+--------+-------+-------+---------+-------+--------+-----+----------+-------+---------+-----+---+-----+------+----+------+----+------+-----+-------+----+------+-----+-------+----... 
|6 |4 |3  |3 |2  |2   |2  |2  |2  |2 |2  |2  |2  |2  |2  |2  |2  |2 |2   |2  |2  |2 |1 |1 |1  |1 |1  |1 |1  |1 |1  |1 |1  |1 |1  |1 ... 
+----+---+-------+----+------+----------+------+---------+------+-----+------+--------+-------+-------+---------+-------+--------+-----+----------+-------+---------+-----+---+-----+------+----+------+----+------+-----+-------+----+------+-----+-------+----... 
|DIES|FDR|Johnson|Bush|Wilson|Washington|Truman|Roosevelt|Reagan|Nixon|Monroe|McKinley|Madison|Lincoln|Jefferson|Jackson|Harrison|Grant|Eisenhower|Clinton|Cleveland|Adams|Van|Tyler|Taylor|Taft|Quincy|Polk|Pierce|Obama|Kennedy|John|Hoover|Hayes|Harding|Garf... 
+----+---+-------+----+------+----------+------+---------+------+-----+------+--------+-------+-------+---------+-------+--------+-----+----------+-------+---------+-----+---+-----+------+----+------+----+------+-----+-------+----+------+-----+-------+----... 
    NB. take 10 
    10{.\:~~.(,.~[:<"0@(+/)=/~);;:&.><;._2[1!:1<'input.txt' 
+-+----------+ 
|6|DIES  | 
+-+----------+ 
|4|FDR  | 
+-+----------+ 
|3|Johnson | 
+-+----------+ 
|3|Bush  | 
+-+----------+ 
|2|Wilson | 
+-+----------+ 
|2|Washington| 
+-+----------+ 
|2|Truman | 
+-+----------+ 
|2|Roosevelt | 
+-+----------+ 
|2|Reagan | 
+-+----------+ 
|2|Nixon  | 
+-+----------+ 

Answer 13

Una revisione sulla previous entry che dovrebbe salvare 10 caratteri:.

h = {} 
File.open('f.1').each {|l|l.split(/ /).each{|e|h[e]==nil ?h[e]=1:h[e]+=1}} 
h.sort{|a,b|a[1]<=>b[1]}.last(10).each{|e|puts"#{e[1]} #{e[0]}"} 

Answer 14

Perl 86 caratteri

94, se si conta il nome file di input.

perl -anE'$_{$_}++for@F;END{say"$_{$_} $_"for@{[sort{$_{$b}<=>$_{$a}}keys%_]}[0..10]}' test.in 

Se non vi interessa quanti risultati si ottiene, allora è solo 75, escludendo il nome del file.

perl -anE'$_{$_}++for@F;END{say"$_{$_} $_"for sort{$_{$b}<=>$_{$a}}keys%_}' test.in 

Answer 15

Rubino 66B

puts (a=$<.read.split).uniq.map{|x|"#{a.count x} "+x}.sort.last 10 

Answer 16

Rubino

115 caratteri

w = File.read($*[0]).split 
w.uniq.map{|x| [w.select{|y|x==y}.size,x]}.sort.last(10).each{|z| puts "#{z[1]} #{z[0]}"} 

Answer 17

di Windows Batch File

Si tratta ovviamente di n o la soluzione più piccola, ma ho deciso di postarlo comunque, solo per divertimento. :) NB: il file batch utilizza un file temporaneo denominato $ per la memorizzazione di risultati temporanei.

versione non compressa originale con commenti:

@echo off 
setlocal enableextensions enabledelayedexpansion 

set infile=%1 
set cnt=%2 
set tmpfile=$ 
set knownwords= 

rem Calculate word count 
for /f "tokens=*" %%i in (%infile%) do (
    for %%w in (%%i) do (

    rem If the word hasn't already been processed, ... 
    echo !knownwords! | findstr "\<%%w\>" > nul 
    if errorlevel 1 (

     rem Count the number of the word's occurrences and save it to a temp file 
     for /f %%n in ('findstr "\<%%w\>" %infile% ^| find /v "" /c') do (
     echo %%n^|%%w >> %tmpfile% 
    ) 

     rem Then add the word to the known words list 
     set knownwords=!knownwords! %%w 
    ) 
) 
) 

rem Print top 10 word count 
for /f %%i in ('sort /r %tmpfile%') do (
    echo %%i 
    set /a cnt-=1 
    if !cnt!==0 goto end 
) 

:end 
del %tmpfile% 

compresso & versione offuscato, caratteri:

@echo off&setlocal enableextensions enabledelayedexpansion&set n=%2&set l= 
for /f "tokens=*" %%i in (%1)do for %%w in (%%i)do echo !l!|findstr "\<%%w\>">nul||for /f %%n in ('findstr "\<%%w\>" %1^|find /v "" /c')do echo %%n^|%%w>>$&set l=!l! %%w 
for /f %%i in ('sort /r $')do echo %%i&set /a n-=1&if !n!==0 del $&exit /b 

Questo può essere abbreviato caratteri se eco è già spento e comando estensioni e espansione variabile ritardata sono attive:

set n=%2&set l= 
for /f "tokens=*" %%i in (%1)do for %%w in (%%i)do echo !l!|findstr "\<%%w\>">nul||for /f %%n in ('findstr "\<%%w\>" %1^|find /v "" /c')do echo %%n^|%%w>>$&set l=!l! %%w 
for /f %%i in ('sort /r $')do echo %%i&set /a n-=1&if !n!==0 del $&exit /b 

Usage:

> filename.bat input.txt 10 & pause 

uscita:

6|DIES 
4|FDR 
3|Johnson 
3|Bush 
2|Wilson 
2|Washington 
2|Truman 
2|Roosevelt 
2|Reagan 
2|Nixon