Apa kata yang paling sering?

Diberi kalimat, program Anda harus melewatinya, menghitung frekuensi setiap kata, lalu mengeluarkan kata yang paling sering digunakan. Karena kalimat tidak memiliki panjang yang pasti, sehingga bisa sangat panjang, kode Anda harus sesingkat mungkin.

Aturan / Persyaratan

• Setiap pengajuan harus berupa program atau fungsi lengkap. Jika itu adalah suatu fungsi, itu harus dapat dijalankan dengan hanya perlu menambahkan panggilan fungsi ke bagian bawah program. Hal lain (mis. Tajuk dalam C), harus dimasukkan.
• Harus ada juru bahasa / kompiler gratis yang tersedia untuk bahasa Anda.
• Jika memungkinkan, berikan tautan ke situs tempat program Anda dapat diuji.
• Program Anda tidak boleh menulis apa pun STDERR.
• Program Anda harus mengambil input dari STDIN(atau alternatif terdekat dalam bahasa Anda).
• Celah standar dilarang.
• Program Anda harus peka huruf besar-kecil ( tHe, Thedan thesemua berkontribusi pada hitungan the).
• Jika tidak ada kata yang paling sering (lihat test case # 3), program Anda seharusnya tidak menghasilkan apa-apa.

Definisi kata ':

Anda mendapatkan daftar kata-kata dengan memisahkan teks input pada spasi. Masukan tidak akan pernah berisi jenis spasi putih selain spasi kosong (khususnya tanpa baris baru). Namun, kata-kata terakhir seharusnya hanya berisi alfanumerik (az, AZ, 0-9), tanda hubung (-) dan apostrof ('). Anda dapat melakukannya dengan menghapus semua karakter lain atau dengan menggantinya dengan spasi sebelum melakukan pemisahan kata. Agar tetap kompatibel dengan versi aturan sebelumnya, apostrof tidak perlu dimasukkan.

Uji Kasus

The man walked down the road.
==> the

-----

Slowly, he ate the pie, savoring each delicious bite. He felt like he was truly happy.
==> he

-----

This sentence has no most frequent word.
==> 

-----

"That's... that's... that is just terrible!" he said.
==> that's / thats

-----

The old-fashioned man ate an old-fashioned cake.
==> old-fashioned

-----

IPv6 looks great, much better than IPv4, except for the fact that IPv6 has longer addresses.
==> IPv6

-----

This sentence with words has at most two equal most frequent words.
==>

Catatan: Kasus uji ketiga dan ketujuh tidak memiliki output, Anda dapat memilih salah satu dari yang keempat.

Mencetak gol

Program diberi skor berdasarkan byte. Kumpulan karakter yang biasa adalah UTF-8, jika Anda menggunakan yang lain, silakan tentukan.

Ketika tantangan selesai, program dengan byte terkecil (disebut kode-golf ), akan menang.

Pengajuan

Untuk memastikan bahwa jawaban Anda muncul, silakan mulai jawaban Anda dengan tajuk utama, menggunakan templat Penurunan harga berikut:

# Language Name, N bytes

di mana Nukuran kiriman Anda. Jika Anda meningkatkan skor Anda, Anda dapat menyimpan skor lama di headline, dengan mencoretnya. Contohnya:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Jika Anda ingin memasukkan beberapa angka dalam tajuk Anda (mis. Karena skor Anda adalah jumlah dari dua file atau Anda ingin membuat daftar hukuman penterjemah secara terpisah), pastikan bahwa skor sebenarnya adalah angka terakhir di tajuk:

# Perl, 43 + 2 (-p flag) = 45 bytes

Anda juga dapat membuat tautan nama bahasa yang kemudian akan muncul di cuplikan papan peringkat:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

Papan peringkat

Berikut ini adalah Stack Snippet untuk menghasilkan leaderboard biasa dan gambaran umum pemenang berdasarkan bahasa.

/* Configuration */

var QUESTION_ID = 79576; // Obtain this from the url
// It will be like https://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 53406; // This should be the user ID of the challenge author.

/* App */

var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page;

function answersUrl(index) {
  return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

function commentUrl(index, answers) {
  return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;
}

function getAnswers() {
  jQuery.ajax({
    url: answersUrl(answer_page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      answers_hash = [];
      answer_ids = [];
      data.items.forEach(function(a) {
        a.comments = [];
        var id = +a.share_link.match(/\d+/);
        answer_ids.push(id);
        answers_hash[id] = a;
      });
      if (!data.has_more) more_answers = false;
      comment_page = 1;
      getComments();
    }
  });
}

function getComments() {
  jQuery.ajax({
    url: commentUrl(comment_page++, answer_ids),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      data.items.forEach(function(c) {
        if (c.owner.user_id === OVERRIDE_USER)
          answers_hash[c.post_id].comments.push(c);
      });
      if (data.has_more) getComments();
      else if (more_answers) getAnswers();
      else process();
    }
  });  
}

getAnswers();

var SCORE_REG = /<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;

var OVERRIDE_REG = /^Override\s*header:\s*/i;

function getAuthorName(a) {
  return a.owner.display_name;
}

function process() {
  var valid = [];
  
  answers.forEach(function(a) {
    var body = a.body;
    a.comments.forEach(function(c) {
      if(OVERRIDE_REG.test(c.body))
        body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';
    });
    
    var match = body.match(SCORE_REG);
    if (match)
      valid.push({
        user: getAuthorName(a),
        size: +match[2],
        language: match[1],
        link: a.share_link,
      });
    
  });
  
  valid.sort(function (a, b) {
    var aB = a.size,
        bB = b.size;
    return aB - bB
  });

  var languages = {};
  var place = 1;
  var lastSize = null;
  var lastPlace = 1;
  valid.forEach(function (a) {
    if (a.size != lastSize)
      lastPlace = place;
    lastSize = a.size;
    ++place;
    
    var answer = jQuery("#answer-template").html();
    answer = answer.replace("{{PLACE}}", lastPlace + ".")
                   .replace("{{NAME}}", a.user)
                   .replace("{{LANGUAGE}}", a.language)
                   .replace("{{SIZE}}", a.size)
                   .replace("{{LINK}}", a.link);
    answer = jQuery(answer);
    jQuery("#answers").append(answer);

    var lang = a.language;
    if (/<a/.test(lang)) lang = jQuery(lang).text();
    
    languages[lang] = languages[lang] || {lang: a.language, user: a.user, size: a.size, link: a.link};
  });

  var langs = [];
  for (var lang in languages)
    if (languages.hasOwnProperty(lang))
      langs.push(languages[lang]);

  langs.sort(function (a, b) {
    if (a.lang > b.lang) return 1;
    if (a.lang < b.lang) return -1;
    return 0;
  });

  for (var i = 0; i < langs.length; ++i)
  {
    var language = jQuery("#language-template").html();
    var lang = langs[i];
    language = language.replace("{{LANGUAGE}}", lang.lang)
                       .replace("{{NAME}}", lang.user)
                       .replace("{{SIZE}}", lang.size)
                       .replace("{{LINK}}", lang.link);
    language = jQuery(language);
    jQuery("#languages").append(language);
  }

}

body { text-align: left !important}

#answer-list {
  padding: 10px;
  width: 290px;
  float: left;
}

#language-list {
  padding: 10px;
  width: 290px;
  float: left;
}

table thead {
  font-weight: bold;
}

table td {
  padding: 5px;
}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b">
<div id="answer-list">
  <h2>Leaderboard</h2>
  <table class="answer-list">
    <thead>
      <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr>
    </thead>
    <tbody id="answers">

    </tbody>
  </table>
</div>
<div id="language-list">
  <h2>Winners by Language</h2>
  <table class="language-list">
    <thead>
      <tr><td>Language</td><td>User</td><td>Score</td></tr>
    </thead>
    <tbody id="languages">

    </tbody>
  </table>
</div>
<table style="display: none">
  <tbody id="answer-template">
    <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>
<table style="display: none">
  <tbody id="language-template">
    <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>

Pyke, 26 25 byte

l1dcD}jm/D3Sei/1qIi@j@
(;

Coba di sini!

Atau 23 22 byte (tidak bersaing, tambahkan simpul tempat membunuh tumpukan jika salah)

l1cD}jm/D3Sei/1q.Ii@j@

Coba di sini!

Atau dengan tanda baca, 23 byte (saya pikir ini bersaing? Komit sebelum diedit)

l1.cD}jm/D3Sei/1q.Ii@j@

Coba di sini!

Atau 12 byte (pasti tidak bersaing)

l1.cj.#jR/)e

Coba di sini!

l1           -     input.lower()
  .c         -    punc_split(^)
    j        -   j = ^
     .#   )  -  sort(V(i) for i in ^)
       jR/   -   j.count(i)
           e - ^[-1]

Jelly , 25 byte

ṣ⁶f€ØB;”-¤Œl©Qµ®ċЀĠṪịµẋE

Cobalah online! atau verifikasi semua kasus uji .

Pyth - 23 30 byte

Harus ada cara yang lebih baik untuk memasukkan angka dan tanda hubung, tetapi saya hanya ingin memperbaikinya sekarang.

Kc@s+++GUTd\-rzZ)I!tJ.M/KZ{KhJ

Test Suite .

Oktaf, 115 94 byte

[a,b,c]=unique(regexp(lower(input('')),'[A-z]*','match'));[~,~,d]=mode(c); try disp(a{d{:}})

Akun untuk kasing tanpa kata yang paling sering digunakan try. Dalam hal ini tidak menghasilkan apa-apa, dan "istirahat" sampai Anda menangkap pengecualian.

Disimpan 21 (!) Byte berkat saran Luis Mendo (menggunakan output ketiga dari modeuntuk mendapatkan kata yang paling umum).

_{Aturan telah berubah sedikit sejak saya memposting jawaban asli saya. Saya akan melihat ke regex nanti.}

Perl 6, 80 byte

{$_>1&&.[0].value==.[1].value??""!!.[0].key given .lc.words.Bag.sort:{-.value}}

Mari kita bagi jawaban menjadi dua bagian ...

given .lc.words.Bag.sort:{-.value}

givenadalah pernyataan kontrol (suka ifatau for). Di Perl 6, mereka diizinkan sebagai postfix. ( a if 1, atau seperti di sini, foo given 3). givenmenempatkan topiknya (sisi kanan) ke dalam variabel khusus $_untuk sisi kiri.

"Topik" itu sendiri menurunkan ( lc), dibagi dengan kata ( words), menempatkan nilai ke dalam Tas (diatur dengan jumlah kejadian), lalu mengurutkan berdasarkan nilai (DESC). Sejak sorthanya tahu bagaimana untuk beroperasi pada daftar, yang Bagberubah menjadi Listdari Pairs di sini.

$_>1&&.[0].value==.[1].value??""!!.[0].key

bersyarat sederhana ( ?? !!digunakan dalam Perl 6, bukan ? :).

$_ > 1

Hanya memeriksa bahwa daftar memiliki lebih dari satu elemen.

.[0].value==.[1].value

Akses ke $_dapat dipersingkat ... Dengan tidak menentukan variabel. .apersis seperti $_.a. Jadi ini efektif "apakah kedua elemen teratas memiliki jumlah kejadian yang sama" - Jika demikian, maka kita mencetak '' (string kosong).

Jika tidak, kita mencetak kunci atas elemen (hitungan): .[0].key.

05AB1E , 30 byte

Kode:

lžj¨„ -«Ãð¡©Ùv®yQOˆ}®¯MQÏDg1Q×

Menggunakan pengodean CP-1252 . Cobalah online! .

JavaScript (ES6), 155 byte

s=>(m=new Map,s.toLowerCase().replace(/[^- 0-9A-Z]/gi,'').split(/\ +/).map(w=>m.set(w,-~m.get(w))),[[a,b],[c,d]]=[...m].sort(([a,b],[c,d])=>d-b),b==d?'':a)

Berdasarkan jawaban Blue @ Python.

Python 3.5, 142 137 134 112 117 110 127 byte:

( +17 byte, karena tampaknya walaupun ada kata-kata yang lebih sering daripada yang lain, tetapi mereka memiliki frekuensi yang sama, tidak ada yang masih harus dikembalikan. )

def g(u):import re;q=re.findall(r"\b['\-\w]+\b",u.lower());Q=q.count;D=[*map(Q,{*q})];return['',max(q,key=Q)][1in map(D.count,D)]

Seharusnya sekarang memenuhi semua persyaratan. Kiriman ini mengasumsikan bahwa setidaknya 1 kata adalah input.

Cobalah secara Online! (Ideone)

Juga, jika Anda menginginkannya, berikut adalah versi lain dari fungsi saya tanpa ekspresi reguler dengan biaya sekitar 43 byte, walaupun yang ini tidak kompetitif, jadi tidak masalah. Saya hanya meletakkannya di sini untuk itu:

def g(u):import re;q=''.join([i for i in u.lower()if i in[*map(chr,range(97,123)),*"'- "]]).split();Q=q.count;D=[*map(Q,{*q})];return['',max(q,key=Q)][1in map(D.count,D)]

Coba Versi Baru Online ini! (Ideone)

Ruby, 94 92 102 byte

Harus cepat (jawaban FGITW). Mengembalikan kata dalam semua huruf besar, atau niljika tidak ada kata yang paling sering.

Sekarang diperbarui untuk spesifikasi baru, saya pikir. Namun, saya berhasil sedikit menurunkan golf sehingga jumlah byte sama!

->s{w=s.upcase.tr("_'",'').scan /[-\w]+/;q=->x{w.count x};(w-[d=w.max_by(&q)]).all?{|e|q[e]<q[d]}?d:p}

Pyth, 32 byte

p?tlJeM.MhZrS@Ls++\-GUTcrz0d8ksJ

Suite uji.

JavaScript (ES6), 99 byte

F=s=>(f={},w=c='',s.toLowerCase().replace(/[\w-']+/g,m=>(f[m]=o=++f[m]||1)-c?o>c?(w=m,c=o):0:w=''),w)

#input { width: 100%; }

<textarea id="input" oninput="output.innerHTML=F(this.value)"></textarea>
<div id="output"></div>

Sqlserver 2008, 250 byte

DECLARE @ varchar(max) = 'That''s... that''s... that is just terrible!" he said.';

WITH c as(SELECT
@ p,@ x
UNION ALL
SELECT LEFT(x,k-1),STUFF(x,1,k,'')FROM
c CROSS APPLY(SELECT patindex('%[^a-z''-]%',x+'!')k)k
WHERE''<x)SELECT max(p)FROM(SELECT top 1with ties p
FROM c WHERE p>''GROUP BY p
ORDER BY count(*)DESC
)j HAVING count(*)=1

Cobalah online!

Sqlserver 2016, 174 byte

Tidak dapat menangani data seperti contoh ini (menghitung sama dengan 3 kata):

DECLARE @ varchar(max) = 'That''s... that''s... that is just terrible!" he said. = = ='

SELECT max(v)FROM(SELECT TOP 1WITH TIES value v
FROM STRING_SPLIT(REPLACE(REPLACE(REPLACE(@,'"',''),',',''),'.',''),' ')GROUP
BY value ORDER BY count(*)DESC)x HAVING count(*)=1

PostgreSQL, 246 , 245 byte

WITH z AS(SELECT DISTINCT*,COUNT(*)OVER(PARTITION BY t,m)c FROM i,regexp_split_to_table(translate(lower(t),'.,"''',''),E'\\s+')m)
SELECT t,CASE WHEN COUNT(*)>1 THEN '' ELSE MAX(m)END
FROM z WHERE(t,c)IN(SELECT t,MAX(c)FROM z GROUP BY t)
GROUP BY t  

Keluaran:

Masukan jika ada yang tertarik:

CREATE TABLE i(t TEXT);

INSERT INTO i(t)
VALUES ('The man walked down the road.'), ('Slowly, he ate the pie, savoring each delicious bite. He felt like he was truly happy.'),
       ('This sentence has no most frequent word.'), ('"That''s... that''s... that is just terrible!" he said. '), ('The old-fashioned man ate an old-fashioned cake.'), 
       ('IPv6 looks great, much better than IPv4, except for the fact that IPv6 has longer addresses.'), ('a   a            a b b b c');

Jika tidak ada kata yang paling sering (lihat test case # 3), program Anda seharusnya tidak menghasilkan apa-apa.

EDIT:

Penanganan ':

WITH z AS(SELECT DISTINCT*,COUNT(*)OVER(PARTITION BY t,m)c FROM i,regexp_split_to_table(translate(lower(t),'.,"!',''),E'\\s+')m)
SELECT t,CASE WHEN COUNT(*)>1 THEN '' ELSE MAX(m)END
FROM z WHERE(t,c)IN(SELECT t,MAX(c)FROM z GROUP BY t)
GROUP BY t  

SqlFiddleDemo

Keluaran:

╔═══════════════════════════════════════════════════════════════════════════════════════════════╦═══════════════╗
║                                              t                                                ║      max      ║
╠═══════════════════════════════════════════════════════════════════════════════════════════════╬═══════════════╣
║ a a a b b b c                                                                                 ║               ║
║ The old-fashioned man ate an old-fashioned cake.                                              ║ old-fashioned ║
║ IPv6 looks great, much better than IPv4, except for the fact that IPv6 has longer addresses.  ║ ipv6          ║
║ This sentence has no most frequent word.                                                      ║               ║
║ "That's... that's... that is just terrible!" he said.                                         ║ that's        ║
║ The man walked down the road.                                                                 ║ the           ║
║ Slowly, he ate the pie, savoring each delicious bite. He felt like he was truly happy.        ║ he            ║
╚═══════════════════════════════════════════════════════════════════════════════════════════════╩═══════════════╝

R, 115 byte

function(s)if(sum(z<-(y=table(tolower((x=strsplit(s,"[^\\w']",,T)[[1]])[x>""])))==max(y))<2)names(which(z))else NULL

Ini adalah fungsi yang menerima string dan mengembalikan string jika satu kata muncul lebih sering daripada yang lain dan NULLsebaliknya. Untuk menyebutnya, tetapkan ke variabel.

Tidak Disatukan:

f <- function(s) {
    # Create a vector of words by splitting the input on characters other
    # than word characters and apostrophes
    v <- (x <- strsplit(s, "[^\\w']", perl = TRUE))[x > ""]

    # Count the occurrences of each lowercased word
    y <- table(tolower(v))

    # Create a logical vector such that elements of `y` which occur most
    # often are `TRUE` and the rest are fase
    z <- y == max(y)

    # If a single word occurs most often, return it, otherwise `NULL`
    if (sum(z) < 2) {
        names(which(z))
    } else {
        NULL
    }
}

Retina, 97 byte

Aturan terus berubah ...

T`L`l
[^-\w ]

O`[-\w]+
([-\w]+)( \1\b)*
$#2;$1
O#`[-\w;]+
.*\b(\d+);[-\w]+ \1;[-\w]+$

!`[-\w]+$

Cobalah online!

Suite uji.

Python, 132 byte

import collections as C,re
def g(s):(a,i),(b,j)=C.Counter(re.sub('[^\w\s-]','',s.lower()).split()).most_common(2);return[a,''][i==j]

Kode di atas mengasumsikan bahwa input memiliki setidaknya dua kata.

PHP, 223 byte

$a=array_count_values(array_map(function($s){return preg_replace('/[^A-Za-z0-9]/','',$s);},explode(' ',strtolower($argv[1]))));arsort($a);$c=count($a);$k=array_keys($a);echo($c>0?($c==1?$k[0]:($a[$k[0]]!=$a[$k[1]]?$k[0]:'')):'');

Python 2, 218 byte

Mengasumsikan lebih dari 2 kata. Menyingkirkan tanda baca menghancurkan saya ...

import string as z
def m(s):a=[w.lower()for w in s.translate(z.maketrans('',''),z.punctuation).split()];a=sorted({w:a.count(w)for w in set(a)}.items(),key=lambda b:b[1],reverse=1);return a[0][0]if a[0][1]>a[1][1]else''

Matlab (225)

• Aturan yang diubah: /

.

      function c=f(a),t=@(x)feval(@(y)y(y>32),num2str(lower(x)-0));f=@(x)num2str(nnz(x)+1);e=str2num(regexprep(a,'([\w''-]+)',' ${t($1)} ${f($`)} ${f([$`,$1])}'));[u,r,d]=mode(e);try c=find(e==d{:});c=a((e(c(1)+1)):(e(c(1)+2)));end

• Kotak alat diperlukan untuk menjalankan ini.

• Bagaimana cara kerjanya, salah satu hak istimewa terbaik dari regex ganti di matlab ini itu bidang-mengeksekusi token dengan memanggil fungsi eksternal-lingkungan parameter dengan token yang ditangkap di lingkungan bagian dalam, sehingga setiap urutan "Word_A Word_B .."digantikan oleh bilangan bulat di "A0 A1 A2 B0 B1 B2 ..."mana bilangan bulat pertama adalah numerica ascii tanda tangan kata, yang kedua adalah indeks awal, yang ketiga adalah indeks akhir, dua bilangan bulat terakhir ini tidak menggandakan di seluruh urutan jadi saya mengambil keuntungan ini untuk memindahkannya ke sebuah array, kemudian mode kemudian mencari menghasilkan array itu, sehingga indeks awal / akhir akan mengikuti.

• Sunting: setelah mengubah beberapa detail, program ini disebut fungsi oleh parameter string.

20 byte disimpan berkat @StewieGriffin, 30 byte menambahkan cela ke celah yang disepakati bersama.

05AB1E , 22 21 20 byte

žK„- JÃl#{D.MDgiJëõ?

Penjelasan:

žK                     # Push [a-zA-Z0-9]
  „-                   # Push 2-char string containing a hyphen and a space
     J                 # Join the stack into a single element
      Ã                # Removes all characters from implicit input except those specified above
       l               # Converts to lowercase
        #              # Split string by spaces
         {             # Sorts array
          D            # Duplicates
           .M          # Finds most common element
             Dg        # Gets length of string without popping
                 iJ    # If length == 1, then convert the array to a string (otherwise the output would be ['example'] instead of example
                   ëõ? # Else push an empty string.

Catatan: Jika Anda baik-baik saja dengan mengekor baris baru di output untuk saat Anda seharusnya tidak menghasilkan apa-apa, hapus ?di akhir untuk menyimpan byte.

Catatan # 2: Program tidak akan bekerja dengan satu kata, tapi saya ragu ini akan menjadi masalah. Jika Anda ingin memperbaikinya, ganti #dengan ð¡byte tambahan.

05AB1E menggunakan CP-1252 sebagai charset, bukan UTF-8.

Cobalah online!

Perl, 60 56 55 54 byte

Termasuk +3 untuk -p

#!/usr/bin/perl -p
s/[\pL\d'-]+/$;[$a{lc$&}++]++or$\=$&/eg}{$\x=2>pop@

Jika sebuah kata tidak bisa hanya angka, Anda juga dapat menjatuhkan auntuk skor 53.

PowerShell (v4), 117 byte

$y,$z=@($input-replace'[^a-z0-9 \n-]'-split'\s'|group|sort Count)[-2,-1]
($y,($z,'')[$y.Count-eq$z.Count])[!!$z].Name

Bagian pertama cukup mudah:

• $input is ~ = stdin
• Regex mengganti karakter yang tidak relevan dengan apa pun, pertahankan baris baru sehingga kami tidak menumbuk dua kata dari ujung baris dan awal baris berikutnya menjadi satu karena kesalahan. (Tidak ada orang lain yang membahas banyak baris, bisa bermain golf -2 jika inputnya selalu satu baris).
• Regex split, Groupberdasarkan frekuensi (~ = collections.Counter Python), Sortuntuk memasukkan kata yang paling sering di akhir.
• PowerShell tidak peka huruf besar-kecil untuk semua.

Menangani jika tidak ada kata yang paling sering:

• Ambil dua item terakhir [-2, -1] menjadi $ y dan $ z;
• daftar N-item, di mana N> = 2, menjadikan $ y dan $ z dua item terakhir
• daftar 1-item menjadikan $ y item terakhir dan $ z nol
• daftar kosong membuat keduanya nol

Gunakan golf bool-as-array-index palsu-ternary-operator (0,1)[truthyvalue], bersarang, untuk memilih "", $ z atau $ y sebagai output, lalu ambil .Name.

PS D:\> "The man walked down the road."|.\test.ps1
The

PS D:\> "Slowly, he ate the pie, savoring each delicious bite. He felt like he was truly happy."|.\test.ps1
he

PS D:\> "`"That's... that's... that is just terrible!`" he said."|.\test.ps1
Thats

PS D:\> "The old-fashioned man ate an old-fashioned cake."|.\test.ps1
old-fashioned

PS D:\> "IPv6 looks great, much better than IPv4, except for the fact that IPv6 has longer addresses."|.\test.ps1
IPv6

Lua, 232 199 175 byte

w,m,o={},0;io.read():lower():gsub("[^-%w%s]",""):gsub("[%w-]+",function(x)w[x]=(w[x]or 0)+1 end)for k,v in pairs(w)do if m==v then o=''end if(v>m)then m,o=v,k end end print(o)

Perl 5, 96 92 84 + 2 ( -pbendera) = 86 byte

++$h{+lc}for/\w(?:\S*\w)?/g}{$m>$e[1]||$e[1]>$m&&(($_,$m)=@e)||($_="")while@e=each%h

Menggunakan:

> echo "The man walked down the road." | perl -p script.pl

Python, 158 byte

def g(s):import collections as c,re;l=c.Counter(re.sub('[^\w\s-]',"",s.lower()).split());w,f=l.most_common(1)[0];return[w,""][all(f==i[1]for i in l.items())]

Mengambil inputnya seperti ini:

g("Bird is the word")

Haruskah cocok dengan semua persyaratan, meskipun gagal pada string kosong, apakah perlu untuk memeriksa mereka? Maaf atas keterlambatannya.

Saran / umpan balik / tipuan ilmu hitam untuk menghemat byte selalu diterima

Tcl 8.6, 196 byte

lmap s [join [read stdin] \ ] {dict incr d [regsub -all {[^\w-]} [string tol $s] {}]}
set y [dict fi $d v [lindex [lsort [dict v $d]] end]]
if {[llength $y]!=2} {set y {}}
puts "==> [lindex $y 0]"

(Sayangnya, saya tidak tahu bagaimana cara mendapatkannya lebih kecil dari itu ...)

Penjelasan

Ini menggunakan beberapa idiom Tcl jelas untuk melakukan hal-hal.

• [join [read stdin] " "] - input string → daftar kata yang dipisahkan spasi
• lmap ... - beralih ke setiap elemen dari daftar itu. (Lebih pendek dari foreachdan secara identik identik karena hasilnya dibuang.)
• [regsub ... [string tolower ...]] - Konversi string menjadi huruf kecil dan strip semua karakter kecuali untuk karakter kata dan tanda hubung.
• [dict incr d ...] - Membuat / memodifikasi kamus / kata → hitung histogram.
• set y ... - Urutkan nilai kamus, ambil yang terbesar, dan kembalikan semua (kunci, nilai) pasangan yang sesuai dengannya.
• if... - Harus ada tepat dua elemen: satu pasangan (kunci, nilai), jika tidak ada yang perlu dicetak.
• puts... - Cetak kunci pada pasangan nilai kunci, jika ada. (Tidak ada kata yang memiliki spasi.)

Anda bisa bermain dengannya menggunakan CodeChef .

Rexx, 109 128 122 byte

pull s;g.=0;m=0;do i=1 to words(s);w=word(s,i);g.w=g.w+1;if g.w>=m then do;m=g.w;g.m=g.m+1;r=w;end;end;if g.m=1 then say r

Cukup dicetak ...

pull s
g.=0
m=0
do i=1 to words(s)
  w=word(s,i)
  g.w=g.w+1
  if g.w>=m
  then do
    m=g.w
    g.m=g.m+1
    r=w
  end
end
if g.m=1 then say r

bash, 153 146 131 154 149 137 byte

declare -iA F
f(){ (((T=++F[$1])==M))&&I=;((T>M))&&M=$T&&I=$1;}
read L
L=${L,,}
L=${L//[^- a-z0-9]}
printf -vA "f %s;" $L
eval $A;echo $I

Operasi:

mendeklarasikan array asosiatif F dari integer (menyatakan -iA F)

f adalah fungsi yang, mengingat parameter kata $ 1, menambah jumlah frekuensi untuk kata ini (T = ++ F [$ 1]) dan membandingkan dengan jumlah maksimum sejauh ini (M).

Jika sama, kita memiliki dasi sehingga kita tidak akan menganggap kata ini paling sering (I =)

Jika lebih besar dari jumlah maksimum sejauh ini (M), maka atur jumlah maksimum sejauh ini untuk jumlah frekuensi dari kata ini sejauh ini (M = $ T) dan ingat kata ini (I = $ 1)

Fungsi akhir f

Baca garis (baca L) Buat huruf kecil (L = $ {L ,,}) Hapus karakter apa pun kecuali az, 0-9, tanda hubung (-) dan spasi (L = $ {L // [^ - a-z0- 9]}) Buat urutan pernyataan bash yang memanggil f untuk setiap kata (printf -vA "f% s;" $ L). Ini disimpan ke variabel A. eval A dan hasil cetak (eval $ a; echo $ I)

Keluaran:

This quick brown fox jumps over this lazy dog.
-->this
This sentence with the words has at most two equal most frequent the words.
-->
The man walked down the road.
-->the
This sentence has no most frequent word.
-->
Slowly, he ate the pie, savoring each delicious bite. He felt like he was truly happy.
-->he
"That's... that's... that is just terrible!" he said.
-->thats
The old-fashioned man ate an old-fashioned cake.
-->old-fashioned
IPv6 looks great, much better than IPv4, except for the fact that IPv6 has longer addresses.
-->ipv6

Bug: TETAP Saya memiliki bug yang tidak terungkap dalam kasus uji ini. Jika input

This sentence with words has at most two equal most frequent words.

maka kode saya seharusnya tidak menghasilkan apa-apa.

Saya memiliki perbaikan tetapi saya tampaknya telah memukul bug bash ... Saya mendapatkan perilaku yang sangat aneh adalah M tidak dinyatakan sebagai bilangan bulat: ++ F [$ 1] == M (setelah beberapa kata berulang) menambah kedua F [$ 1 ] dan M !! - kesalahanku.

Python 3, 76 98 100 byte

import re,statistics as S
try:print(S.mode(re.split("([a-z0-9-]+)",input().lower())[1::2]))
except:1

Cobalah online

Menghasilkan kata yang paling umum sebagai huruf kecil. Tidak termasuk apostrof karena "apostrof tidak diharuskan untuk dimasukkan."

statistics.mode membutuhkan Python 3.4

Sayangnya, tidak ada output stderryang diizinkan, atau itu akan jauh lebih pendek.

R, 96 byte

19 byte lebih pendek dari jawaban R yang ada , dengan pendekatan yang agak berbeda.

t=table(gsub("[^a-z0-9'-]","",tolower(scan(,''))))
`if`(sum(t==max(t))-1,'',names(which.max(t)))

Membaca dari stdin, sehingga input secara otomatis dipisahkan oleh spasi. Kami mengonversi menjadi huruf kecil dan digunakan gsubuntuk menghapus semua non-alfanumerik (plus -dan '). Kami menghitung contoh setiap kata dengan tabledan menyimpan hasilnya t. Selanjutnya, kami memeriksa apakah ada lebih dari 1 maksimum dalam t(dengan melihat apakah ada lebih dari satu elemen yang sama dengan max(t). Jika demikian, kami mengembalikan string kosong ''. Jika tidak, kami mengembalikan kata yang sesuai dengan maksimum dalam t.