Từ thường xuyên nhất là gì?

Đưa ra một câu, chương trình của bạn phải thực hiện theo cách đó, đếm tần số của mỗi từ, sau đó xuất ra từ được sử dụng nhiều nhất. Vì một câu không có độ dài cố định và do đó có thể rất dài, mã của bạn phải càng ngắn càng tốt.

Quy tắc / Yêu cầu

• Mỗi bài nộp phải là một chương trình hoặc chức năng đầy đủ. Nếu nó là một hàm, nó phải được chạy bằng cách chỉ cần thêm lệnh gọi hàm vào cuối chương trình. Bất cứ điều gì khác (ví dụ như các tiêu đề trong C), phải được bao gồm.
• Phải có một trình thông dịch / trình biên dịch miễn phí có sẵn cho ngôn ngữ của bạn.
• Nếu có thể, hãy cung cấp một liên kết đến một trang web nơi chương trình của bạn có thể được kiểm tra.
• Chương trình của bạn không được viết bất cứ điều gì STDERR.
• Chương trình của bạn nên lấy đầu vào từ STDIN(hoặc thay thế gần nhất trong ngôn ngữ của bạn).
• Sơ hở tiêu chuẩn bị cấm.
• Chương trình của bạn phải là case-insensitive ( tHe, Thevà thetất cả các đóng góp vào sự đếm the).
• Nếu không có từ thường xuyên nhất (xem trường hợp thử nghiệm # 3), chương trình của bạn sẽ không xuất ra gì.

Định nghĩa của một 'từ':

Bạn có được danh sách các từ bằng cách chia văn bản đầu vào trên khoảng trắng. Đầu vào sẽ không bao giờ chứa bất kỳ loại khoảng trắng nào khác ngoài không gian đơn giản (đặc biệt không có dòng mới). Tuy nhiên, các từ cuối cùng chỉ nên chứa chữ và số (az, AZ, 0-9), dấu gạch nối (-) và dấu nháy đơn ('). Bạn có thể làm như vậy bằng cách xóa tất cả các ký tự khác hoặc bằng cách thay thế chúng bằng dấu cách trước khi thực hiện chia tách từ. Để vẫn tương thích với các phiên bản trước của quy tắc, dấu nháy đơn không bắt buộc phải được đưa vào.

Các trường hợp thử nghiệm

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.
==>

Lưu ý: Các trường hợp thử nghiệm thứ ba và thứ bảy không có đầu ra, bạn có thể chọn một trong hai trường hợp thứ tư.

Chấm điểm

Các chương trình được tính theo byte. Bộ ký tự thông thường là UTF-8, nếu bạn đang sử dụng một ký tự khác, vui lòng chỉ định.

Khi thử thách kết thúc, chương trình có ít byte nhất (được gọi là code-golf ), sẽ giành chiến thắng.

Đệ trình

Để đảm bảo rằng câu trả lời của bạn hiển thị, vui lòng bắt đầu câu trả lời của bạn bằng một tiêu đề, sử dụng mẫu Markdown sau:

# Language Name, N bytes

nơi Nlà kích thước của trình của bạn. Nếu bạn cải thiện điểm số của mình, bạn có thể giữ điểm số cũ trong tiêu đề, bằng cách đánh bại chúng thông qua. Ví dụ:

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

Nếu bạn muốn bao gồm nhiều số trong tiêu đề của mình (ví dụ: vì điểm của bạn là tổng của hai tệp hoặc bạn muốn liệt kê riêng các hình phạt cờ của thông dịch viên), hãy đảm bảo rằng điểm thực tế là số cuối cùng trong tiêu đề:

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

Bạn cũng có thể đặt tên ngôn ngữ thành một liên kết mà sau đó sẽ hiển thị trong đoạn trích bảng xếp hạng:

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

Bảng xếp hạng

Dưới đây là Stack Snippet để tạo cả bảng xếp hạng thông thường và tổng quan về người chiến thắng theo ngôn ngữ.

/* 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@
(;

Hãy thử nó ở đây!

Hoặc 23 22 byte (không lọc, thêm nút trong đó giết stack nếu sai)

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

Hãy thử nó ở đây!

Hoặc với dấu câu, 23 byte (Tôi nghĩ rằng điều này cạnh tranh? Cam kết là trước khi chỉnh sửa)

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

Hãy thử nó ở đây!

Hoặc 12 byte (chắc chắn không lọc)

l1.cj.#jR/)e

Hãy thử nó ở đây!

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

Thạch , 25 byte

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

Hãy thử trực tuyến! hoặc xác minh tất cả các trường hợp thử nghiệm .

Pyth - 23 30 byte

Phải có một cách tốt hơn để bao gồm các chữ số và dấu gạch nối, nhưng tôi chỉ muốn sửa lỗi này ngay bây giờ.

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

Phòng thử nghiệm .

Octave, 115 94 byte

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

Tài khoản cho trường hợp không có từ thường xuyên nhất bằng cách sử dụng try. Trong trường hợp này, nó không tạo ra kết quả gì và "tạm nghỉ" cho đến khi bạn bắt được ngoại lệ.

Đã lưu 21 byte (!) Nhờ đề xuất của Luis Mendo (sử dụng đầu ra thứ ba từ modeđể có được từ phổ biến nhất).

_{Các quy tắc đã thay đổi khá nhiều kể từ khi tôi đăng câu trả lời ban đầu của mình. Tôi sẽ xem xét regex sau.}

Perl 6, 80 byte

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

Hãy chia câu trả lời thành hai phần ...

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

givenlà một tuyên bố kiểm soát (như ifhoặc for). Trong Perl 6, chúng được cho phép như hậu tố. ( a if 1hoặc thích ở đây, foo given 3). givenđặt chủ đề của nó (phía bên phải) vào biến đặc biệt $_cho phía bên trái của nó.

Bản thân "chủ đề" chữ thường ( lc), phân tách bằng từ ( words), đặt các giá trị vào một Túi (được đặt với số lần xuất hiện), sau đó sắp xếp theo giá trị (DESC). Vì sortchỉ biết cách vận hành trên các danh sách, nên Bagnó được chuyển thành một Listtrong số Pairđó ở đây.

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

một điều kiện đơn giản ( ?? !!được sử dụng trong Perl 6, thay vì ? :).

$_ > 1

Chỉ cần kiểm tra rằng danh sách có nhiều hơn một yếu tố.

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

Truy cập $_có thể được rút ngắn ... Bằng cách không chỉ định biến. .alà chính xác như thế $_.a. Vì vậy, đây thực sự là "làm cả hai yếu tố hàng đầu có cùng số lần xuất hiện" - Nếu vậy, chúng tôi sẽ in '' (chuỗi trống).

Mặt khác, chúng tôi in khóa của phần tử trên cùng (số đếm) : .[0].key.

05AB1E , 30 byte

Mã số:

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

Sử dụng mã hóa CP-1252 . Hãy thử trực tuyến! .

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)

Dựa trên câu trả lời Python của @ Blue.

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

( +17 byte, vì rõ ràng ngay cả khi có các từ thường xuyên hơn các từ còn lại, nhưng chúng có cùng tần số, vẫn không có gì phải trả về. )

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

Nên bây giờ thỏa mãn mọi điều kiện. Trình này giả định rằng ít nhất 1 từ là đầu vào.

Dùng thử trực tuyến! (Ý)

Ngoài ra, nếu bạn muốn một cái, đây là một phiên bản khác của hàm của tôi không có bất kỳ biểu thức chính quy nào với giá khoảng 43 byte, mặc dù đây là phiên bản không cạnh tranh, vì vậy nó không thực sự quan trọng. Tôi chỉ đặt nó ở đây cho cái quái của nó:

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

Hãy thử phiên bản mới trực tuyến này! (Ý)

Hồng ngọc 94 92 102 byte

Phải đi nhanh (câu trả lời FGITW). Trả về từ trong tất cả chữ hoa hoặc nilnếu không có từ thường xuyên nhất.

Bây giờ cập nhật thông số kỹ thuật mới, tôi nghĩ. Tuy nhiên, tôi đã cố gắng đánh golf xuống một chút để số byte là như nhau!

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

Bình thường, 32 byte

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

Bộ thử nghiệm.

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

Hãy thử trực tuyến!

Sqlserver 2016, 174 byte

Không thể xử lý dữ liệu như ví dụ này (tính bằng 3 từ):

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  

Đầu ra:

Đầu vào nếu có ai quan tâm:

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

Nếu không có từ thường xuyên nhất (xem trường hợp thử nghiệm # 3), chương trình của bạn sẽ không xuất ra gì.

CHỈNH SỬA:

Xử lý ':

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

Đầu ra:

╔═══════════════════════════════════════════════════════════════════════════════════════════════╦═══════════════╗
║                                              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

Đây là một hàm chấp nhận một chuỗi và trả về một chuỗi nếu một từ đơn xuất hiện thường xuyên hơn các chuỗi NULLkhác. Để gọi nó, gán nó cho một biến.

Ung dung:

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

Võng mạc, 97 byte

Các quy tắc tiếp tục thay đổi ...

T`L`l
[^-\w ]

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

!`[-\w]+$

Hãy thử trực tuyến!

Bộ thử nghiệm.

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]

Mã ở trên giả định rằng đầu vào có ít nhất hai từ.

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

Giả sử hơn 2 từ. Thoát khỏi dấu chấm câu đã phá hủy tôi ...

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)

• Quy tắc chaneged: /

.

      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

• Hộp công cụ là cần thiết để chạy này.

• Cách thức hoạt động của nó, một trong những đặc quyền tốt nhất của regex thay thế trong matlab, nó thực thi mã thông báo bằng cách gọi các hàm môi trường bên ngoài được tham số hóa bởi các mã thông báo bị bắt trong môi trường bên trong, do đó, bất kỳ chuỗi nào "Word_A Word_B .."được thay thế bằng số nguyên "A0 A1 A2 B0 B1 B2 ..."trong đó số nguyên đầu tiên là chữ ký số ascii của từ, thứ hai là chỉ mục bắt đầu, thứ ba là chỉ mục kết thúc, hai số nguyên cuối cùng này không lặp lại trong toàn bộ chuỗi vì vậy tôi đã tận dụng lợi thế này để chuyển nó sang một mảng, sau đó chế độ nó sau đó tìm kiếm dẫn đến mảng đó, do đó các chỉ số bắt đầu / kết thúc sẽ theo sau.

• Chỉnh sửa: sau khi thay đổi một số chi tiết, chương trình được gọi là hàm bởi một tham số chuỗi.

20 byte được lưu nhờ vào @StewieGriffin, 30 byte thêm lời trách móc vào các lỗ hổng được thống nhất chung.

05AB1E , 22 21 20 byte

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

Giải trình:

ž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.

Lưu ý: Nếu bạn ổn với các dòng mới ở đầu ra khi bạn không cần phải xuất bất cứ thứ gì, hãy xóa ? phần cuối để lưu một byte.

Lưu ý 2: Chương trình sẽ không hoạt động với một từ duy nhất, nhưng tôi nghi ngờ đây sẽ là một vấn đề. Nếu bạn muốn sửa lỗi này, hãy thay thế# bằng ð¡một byte thừa.

05AB1E sử dụng CP-1252 làm bộ ký tự, không phải UTF-8.

Hãy thử trực tuyến!

Perl, 60 56 55 54 byte

Bao gồm +3 cho -p

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

Nếu một từ không thể chỉ là một số, bạn cũng có thể bỏ asố điểm 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

Phần đầu tiên là đủ dễ dàng:

• $input là ~ = stdin
• Regex thay thế các ký tự không liên quan bằng không có gì, giữ các dòng mới để chúng tôi không trộn lẫn hai từ từ cuối dòng và bắt đầu dòng tiếp theo thành một lỗi. (Không ai khác đã thảo luận về nhiều dòng, có thể chơi golf -2 nếu đầu vào luôn là một dòng).
• Regex split, Grouptheo tần số (~ = Bộ sưu tập của Python. Bộ đếm),Sort để đặt các từ thường xuyên nhất ở cuối.
• PowerShell không phân biệt chữ hoa chữ thường theo mặc định cho mọi thứ.

Xử lý nếu không có từ thường xuyên nhất:

• Lấy hai mục cuối [-2, -1] thành $ y và $ z;
• một danh sách N mục, trong đó N> = 2, tạo ra $ y và $ z hai mục cuối
• danh sách 1 mục làm cho $ y là mục cuối cùng và $ z null
• một danh sách trống làm cho cả hai đều rỗng

Sử dụng golf bool-as-Array-index fake-ternary-index (0,1)[truthyvalue], được lồng, để chọn "", $ z hoặc $ y làm đầu ra, sau đó lấy .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 ( -pcờ) = 86 byte

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

Sử dụng:

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

Đưa đầu vào của nó như thế này:

g("Bird is the word")

Nên phù hợp với tất cả các yêu cầu, mặc dù nó không thành công trên các chuỗi trống, có cần thiết phải kiểm tra các yêu cầu đó không? Xin lỗi về sự chậm trễ.

Lời khuyên / phản hồi / mẹo ma thuật đen để lưu byte luôn được chào đón

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

(Than ôi, tôi không thể tìm ra làm thế nào để có được nó nhỏ hơn thế nữa ...)

Giải trình

Nó sử dụng một số thành ngữ Tcl tối nghĩa để làm công cụ.

• [join [read stdin] " "] - chuỗi đầu vào → danh sách các từ được phân tách bằng khoảng trắng
• lmap ... - lặp đi lặp lại trên mọi yếu tố của danh sách đó. (Ngắn hơnforeach và hiệu quả giống hệt nhau do kết quả bị loại bỏ.)
• [regsub ... [string tolower ...]] - Chuyển đổi chuỗi thành chữ thường và tước tất cả các ký tự ngoại trừ các ký tự từ và dấu gạch nối.
• [dict incr d ...] - Tạo / sửa đổi một từ điển / từ → đếm biểu đồ.
• set y ... - Sắp xếp các giá trị từ điển, lấy giá trị lớn nhất và trả về tất cả các cặp (khóa, giá trị) tương ứng với nó.
• if... - Phải có chính xác hai yếu tố: một cặp (khóa, giá trị), nếu không thì không có gì để in.
• puts... - In khóa trong cặp giá trị khóa, nếu có. (Không có từ nào có khoảng trắng.)

Bạn có thể chơi với nó bằng 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

Khá in ...

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

Hoạt động:

khai báo một mảng kết hợp F của các số nguyên (khai báo -iA F)

f là một hàm, với tham số từ $ 1, tăng tần số đếm cho từ này (T = ++ F [$ 1]) và so sánh với số lượng tối đa cho đến nay (M).

Nếu bằng nhau, chúng ta có một cà vạt vì vậy chúng ta sẽ không coi từ này là thường xuyên nhất (I =)

Nếu lớn hơn số lượng tối đa cho đến nay (M), thì hãy đặt số lượng tối đa cho đến nay là tần số của từ này (M = $ T) và ghi nhớ từ này (I = $ 1)

Kết thúc chức năng f

Đọc một dòng (đọc L) Tạo chữ thường (L = $ {L ,,}) Xóa bất kỳ ký tự nào ngoại trừ az, 0-9, dash (-) và dấu cách (L = $ {L // [^ - a-z0- 9]}) Tạo một chuỗi các câu lệnh bash gọi f cho mỗi từ (printf -vA "f% s;" $ L). Điều này được lưu vào biến A. eval A và kết quả in (eval $ a; echo $ I)

Đầu ra:

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: CỐ ĐỊNH Tôi có một lỗi không được tiết lộ trong các trường hợp thử nghiệm này. Nếu đầu vào là

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

sau đó mã của tôi sẽ không xuất ra gì.

Tôi có một bản sửa lỗi nhưng dường như tôi đã gặp phải lỗi bash ... Tôi nhận được hành vi rất kỳ quặc là M không được khai báo là số nguyên: ++ F [$ 1] == M (sau một vài từ lặp lại) tăng cả F [$ 1 ] và M!! - lỗi của tôi.

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

Dùng thử trực tuyến

Xuất ra từ phổ biến nhất là chữ thường. Không bao gồm dấu nháy đơn vì "dấu nháy đơn không bắt buộc phải được đưa vào."

statistics.mode yêu cầu Python 3,4

Thật không may, không có đầu ra nào stderrđược cho phép, hoặc nó sẽ ngắn hơn nhiều.

R, 96 byte

19 byte ngắn hơn câu trả lời R hiện có , với cách tiếp cận hơi khác.

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

Đọc từ stdin, vì vậy đầu vào được tự động phân tách bằng dấu cách. Chúng tôi chuyển đổi thành chữ thường và sử dụng gsubđể loại bỏ tất cả các chữ và số (cộng -và '). Chúng tôi đếm các trường hợp của từng từ tablevà lưu kết quả vào t. Tiếp theo, chúng tôi kiểm tra xem có nhiều hơn 1 tối đa hay không t(bằng cách xem có nhiều hơn một phần tử bằng không max(t). Nếu vậy, chúng tôi trả về chuỗi trống ''. Nếu không, chúng tôi trả về từ tương ứng với tối đa trong t.