Какое слово самое частое?

Учитывая предложение, ваша программа должна пройти через него, посчитав частоты каждого слова, а затем вывести наиболее используемое слово. Поскольку предложение не имеет фиксированной длины и может быть очень длинным, ваш код должен быть максимально коротким.

Правила / Требования

• Каждое представление должно быть либо полной программой, либо функцией. Если это функция, она должна быть запущена, для этого нужно только добавить вызов функции в конец программы. Все остальное (например, заголовки в C), должно быть включено.
• Должен быть бесплатный переводчик / компилятор для вашего языка.
• Если это возможно, предоставьте ссылку на сайт, где ваша программа может быть протестирована.
• Ваша программа не должна ничего писать STDERR.
• Ваша программа должна принимать информацию STDIN(или ближайшую альтернативу на вашем языке).
• Стандартные лазейки запрещены.
• Ваша программа должна быть нечувствительны к регистру ( tHe, Theи theвносят свой вклад в кол - ву the).
• Если наиболее часто встречающееся слово отсутствует (см. Контрольный пример № 3), ваша программа не должна ничего выводить.

Определение слова:

Вы получаете список слов, разбивая входной текст на пробелы. Входные данные никогда не будут содержать никаких других типов пробелов, кроме простых пробелов (в частности, нет перевода строки). Однако последние слова должны содержать только буквенно-цифровые символы (az, AZ, 0-9), дефисы (-) и апострофы ('). Вы можете сделать это, удалив все остальные символы или заменив их пробелом перед разделением слов. Чтобы оставаться совместимым с предыдущими версиями правил, апострофы не обязательно должны быть включены.

Тестовые случаи

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

Примечание: третий и седьмой тестовые примеры не имеют выходных данных, вы можете выбрать любой из четвертого.

счет

Программы оцениваются в соответствии с байтами. Обычный набор символов - UTF-8, если вы используете другой, пожалуйста, укажите.

Когда задача закончится, победит программа с наименьшим количеством байтов (она называется code-golf ).

Материалы

Чтобы убедиться, что ваш ответ обнаружен, начните его с заголовка, используя следующий шаблон уценки:

# Language Name, N bytes

где Nразмер вашего представления. Если вы улучшите свой счет, вы можете сохранить старые результаты в заголовке, вычеркнув их. Например:

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

Если вы хотите включить в заголовок несколько чисел (например, потому что ваш результат равен сумме двух файлов или вы хотите перечислить штрафы за флаг интерпретатора отдельно), убедитесь, что фактический результат является последним числом в заголовке:

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

Вы также можете сделать название языка ссылкой, которая затем будет отображаться во фрагменте списка лидеров:

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

Leaderboard

Вот фрагмент стека, чтобы генерировать как регулярную таблицу лидеров, так и обзор победителей по языкам.

/* 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>

Пайк, 26 25 байт

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

Попробуй это здесь!

Или 23 22 байта (неконкурирующие, добавить узел, где убивает стек, если ложь)

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

Попробуй это здесь!

Или с пунктуацией, 23 байта (я думаю, что это конкурирует? Коммит был до редактирования)

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

Попробуй это здесь!

Или 12 байтов (определенно неконкурентных)

l1.cj.#jR/)e

Попробуй это здесь!

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

Желе , 25 байт

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

Попробуйте онлайн! или проверьте все контрольные примеры .

Pyth - 23 30 байт

Должен быть лучший способ включить цифры и дефисы, но я просто хочу это исправить прямо сейчас.

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

Тестовый пакет .

Октава, 115 94 байта

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

Учитывает случай без наиболее часто встречающегося слова с помощью try. В этом случае он ничего не выводит и «делает перерыв», пока вы не поймаете исключение.

Сохранено 21 (!) Байт благодаря предложению Луиса Мендо (используя третий вывод из, modeчтобы получить наиболее распространенное слово).

_{Правила немного изменились с тех пор, как я опубликовал свой первоначальный ответ. Я посмотрю в регулярное выражение позже.}

Perl 6, 80 байт

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

Давайте разделим ответ на две части ...

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

givenявляется оператором управления (как ifили for). В Perl 6 они разрешены как постфиксы. ( a if 1или как здесь, foo given 3). givenпомещает свою тему (правая сторона) в специальную переменную $_для левой стороны.

Сама "тема" в нижнем регистре ( lc), разбивается по слову ( words), помещает значения в Bag (устанавливается с количеством вхождений), затем сортирует по значению (DESC). Так как sortтолько знает, как работать со списками, здесь Bagпреобразуется в a Listиз Pairs.

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

простой условный ( ?? !!используется в Perl 6 вместо ? :).

$_ > 1

Просто проверяет, что в списке более одного элемента.

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

Доступ к $_может быть сокращен ... Не указав переменную. .aэто точно так же $_.a. Таким образом, это фактически означает, что «оба верхних элемента имеют одинаковое количество вхождений». Если это так, то мы печатаем '' (пустую строку).

В противном случае, мы выводим ключ верхнего элемента (счет): .[0].key.

05AB1E , 30 байтов

Код:

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

Использует кодировку CP-1252 . Попробуйте онлайн! ,

JavaScript (ES6), 155 байт

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)

Основано на ответе Python @ Blue.

Python 3.5, 142 137 134 112 117 110 127 байт:

( +17 байт, потому что, очевидно, даже если слова встречаются чаще, чем остальные, но они имеют одинаковую частоту, ничего не должно возвращаться. )

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

Теперь должны удовлетворить все условия. В этом представлении предполагается, что введено хотя бы 1 слово.

Попробуйте онлайн! (Ideone)

Кроме того, если вы хотите один, вот еще одна версия моей функции, лишенная каких-либо регулярных выражений стоимостью около 43 байтов, хотя это в любом случае неконкурентно, так что это не имеет большого значения. Я просто положил это здесь, черт возьми:

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

Попробуйте эту новую версию онлайн! (Ideone)

Рубин, 94 92 102 байта

Должен идти быстро (ответ FGITW). Возвращает слово в верхнем регистре или, nilесли нет наиболее часто встречающегося слова.

Я думаю, что теперь обновлены до новых спецификаций. Тем не менее, мне удалось немного поиграть в гольф, поэтому количество байтов осталось прежним!

->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 байта

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

Тестирование.

JavaScript (ES6), 99 байт

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 байт

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

Попробуйте онлайн!

Sqlserver 2016, 174 байта

Невозможно обработать данные, как в этом примере (считая равные 3 словам):

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 байт

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  

Выход:

Введите, если кому-то интересно:

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

Если наиболее часто встречающееся слово отсутствует (см. Контрольный пример № 3), ваша программа не должна ничего выводить.

РЕДАКТИРОВАТЬ:

Обработка ':

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

Выход:

╔═══════════════════════════════════════════════════════════════════════════════════════════════╦═══════════════╗
║                                              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 байт

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

Это функция, которая принимает строку и возвращает строку, если одно слово появляется чаще, чем другие, и в NULLпротивном случае. Чтобы вызвать его, присвойте его переменной.

Ungolfed:

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

Сетчатка, 97 байт

Правила постоянно меняются ...

T`L`l
[^-\w ]

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

!`[-\w]+$

Попробуйте онлайн!

Тестирование.

Python, 132 байта

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]

Выше код предполагает, что ввод имеет как минимум два слова.

PHP, 223 байта

$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 байт

Предполагает более 2 слов. Избавление от пунктуации уничтожило меня ...

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

Матлаб (225)

• Правила изменены: /

,

      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

• Набор инструментов необходим для запуска этого.

• Как это работает, одна из самых приятных привилегий regex заменяет в matlab на то, что он выполняет полевые токены, вызывая функции внешнего окружения, параметризованные токенами, пойманными во внутренней среде, поэтому любая последовательность "Word_A Word_B .."заменяется на целые числа, "A0 A1 A2 B0 B1 B2 ..."где первое целое число равно числовая сигнатура ascii слова, второй - начальный индекс, третий - конечный индекс, последние два целых числа не дублируются во всей последовательности, поэтому я воспользовался этим преимуществом, чтобы переместить его в массив, а затем переключил режим поиска в результат в этом массиве, поэтому начальные / конечные индексы будут следовать.

• Редактировать: после изменения некоторых деталей, программа вызывается функцией по строковому параметру.

20 байтов сэкономлено благодаря @StewieGriffin, 30 байтов добавили упрек в общепринятые лазейки.

05AB1E , 22 21 20 байт

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

Объяснение:

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

Примечание: Если вы хорошо справляетесь с завершающими символами новой строки в выходных данных, если вы ничего не должны выводить, удалите ?в конце, чтобы сохранить байт.

Примечание № 2: Программа не будет работать с одним словом, но я сомневаюсь, что это будет проблемой. Если вы хотите , чтобы это исправить, заменить #с ð¡для дополнительного байта.

05AB1E использует CP-1252 в качестве кодировки, а не UTF-8.

Попробуйте онлайн!

Perl, 60 56 55 54 байта

Включает +3 для -p

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

Если слово не может быть просто числом, вы также можете бросить на a53 балла.

PowerShell (v4), 117 байт

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

Первая часть достаточно проста:

• $input это ~ = стандартный
• Regex заменяет ненужные символы ничем, сохраняйте символы новой строки, чтобы мы не перепутали два слова из конца строки и начала следующей строки в одно по ошибке. (Никто другой не обсуждал несколько строк, мог бы сыграть в гольф -2, если на входе всегда одна строка).
• Regex разделяет Groupпо частоте (~ = Python's collection.Counter), Sortчтобы поставить наиболее часто встречающиеся слова в конце.
• PowerShell не учитывает регистр по умолчанию для всего.

Обработка, если нет наиболее частого слова:

• Возьмите последние два элемента [-2, -1] в $ y и $ z;
• список N-элементов, где N> = 2, делает $ y и $ z последними двумя элементами
• 1-элементный список делает $ y последним элементом, а $ z нулевым
• пустой список делает их обоих нулевыми

Используйте (0,1)[truthyvalue]вложенный гольф- фильтр bool-as-array-index-index , вложенный, чтобы выбрать "", $ z или $ 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

Луа, 232 199 175 байтов

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 ( -pфлаг) = 86 байт

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

С помощью:

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

Python, 158 байт

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

Принимает свой вклад, как это:

g("Bird is the word")

Должен ли он соответствовать всем требованиям, хотя он не работает на пустых строках, нужно ли проверять их? Извините за задержку.

Советы / отзывы / чёрные магические советы по сохранению байтов всегда приветствуются

Tcl 8,6, 196 байт

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

(Увы, я не могу понять, как получить его немного меньше, чем это ...)

объяснение

Он использует несколько неясных идиом Tcl, чтобы делать вещи.

• [join [read stdin] " "] - строка ввода → список слов, разделенных пробелами
• lmap ... - перебирать каждый элемент этого списка. (Короче foreachи фактически идентичны, так как результат отбрасывается.)
• [regsub ... [string tolower ...]] - Преобразуйте строку в нижний регистр и удалите все символы, кроме символов слова и дефиса.
• [dict incr d ...] - Создать / изменить словарь / слово → считать гистограмму.
• set y ... - Сортировать значения словаря, взять наибольшее и вернуть все соответствующие ему пары (ключ, значение).
• if... - Должно быть ровно два элемента: одна пара (ключ, значение), иначе нечего печатать.
• puts... - Распечатайте ключ в паре ключ-значение, если есть. (Ни одно слово не имеет пробелов.)

Вы можете играть с ним, используя CodeChef .

Rexx, 109 128 122 байтов

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

Довольно напечатано ...

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 байт

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

Операция:

объявить ассоциативный массив целых чисел F (объявить -iA F)

f - это функция, которая, учитывая параметр слова $ 1, увеличивает частоту счета для этого слова (T = ++ F [$ 1]) и сравнивает с максимальным количеством пока (M).

Если равно, у нас есть связь, поэтому мы не будем считать это слово наиболее частым (I =)

Если значение больше максимального на данный момент (M), тогда установите максимальное количество на данный момент равным счетчику частоты этого слова (M = $ T) и запомните это слово (I = $ 1)

Конечная функция f

Читать строку (читать L) Сделать строчными (L = $ {L ,,}) Удалить любой символ, кроме az, 0-9, тире (-) и пробела (L = $ {L // [^ - a-z0- 9]}) Создайте последовательность операторов bash, которая вызывает f для каждого слова (printf -vA "f% s;" $ L). Это сохраняется в переменную A. eval A и вывод результата (eval $ a; echo $ I)

Выход:

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

Ошибка: ИСПРАВЛЕНО У меня есть ошибка, которая не обнаруживается в этих тестовых случаях. Если вход

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

тогда мой код не должен ничего выводить.

У меня есть исправление, но, похоже, я столкнулся с ошибкой bash ... Я получаю очень странное поведение, поскольку M не объявлено как целое число: ++ F [$ 1] == M (после нескольких повторных слов) увеличивает оба F [$ 1 ] И м!! - моя ошибка.

Python 3, 76 98 100 байт

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

Попробуйте онлайн

Выводит наиболее распространенное слово в нижнем регистре. Не включает апострофы, потому что «апострофы не обязательно должны быть включены».

statistics.mode требует Python 3.4

К сожалению, не stderrразрешен вывод , иначе он будет намного короче.

R, 96 байт

19 байтов короче, чем существующий ответ R , с несколько другим подходом.

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

Читает из стандартного ввода, поэтому ввод автоматически разделяется пробелами. Мы преобразуем в нижний регистр и используем gsubдля удаления все не алфавитно-цифровые (плюс -и '). Мы подсчитываем экземпляры каждого слова tableи сохраняем результат в t. Затем мы проверяем, существует ли более 1 максимума в t(проверяя, существует ли более одного элемента, который равен max(t). Если это так, мы возвращаем пустую строку ''. Если нет, мы возвращаем слово, соответствующее максимуму в t.