Menu
Coddy logo textTech

Анализ слов

Часть раздела Логика и потоки выполнения путешествия по R на Coddy. Урок 62 из 64.

challenge icon

Задание

Сложно

Завершите word_stats(text). Переведите текст в нижний регистр и удалите символы ., ,, ! и ?, затем разделите его на слова по последовательностям пробелов. Верните четыре строки:

  • Words: с количеством слов
  • Distinct: с количеством различных слов
  • Top: с тремя наиболее часто встречающимися словами и их количеством, например the (3), and (2), bird (1), упорядоченными по количеству от большего к меньшему, а при одинаковом количестве — в алфавитном порядке (меньше трёх, если в тексте меньше слов)
  • Longest: с самым длинным словом и его длиной в скобках; если несколько слов имеют одинаковую длину, выберите первое из них в тексте

Предоставленный код считывает текст и выводит каждую возвращённую строку.

Попробуйте сами

word_stats <- function(text) {
  # Напишите ваш код здесь
  character(0)
}

# Предоставленный код ввода/вывода: оставьте его как есть
input <- suppressWarnings(readLines(file("stdin")))
cat(word_stats(input[1]), sep = "\n")

Все уроки раздела Логика и потоки выполнения

Потренируйтесь самостоятельно: Онлайн-компилятор R