Kelime Analizi

Coddy'nin R Journey'sinin Mantık ve Akış bölümünün bir parçası. Ders 62 / 64.

Görev

Zor

word_stats(text) işlevini tamamla. Metni küçük harfe çevir ve ., ,, ! ve ? karakterlerini kaldır, ardından boşluk dizileriyle sözcüklere ayır. Dört satır döndür:

Sözcük sayısıyla birlikte Words:
Farklı sözcüklerin sayısıyla birlikte Distinct:
En sık kullanılan üç sözcük ve bunların sayılarıyla birlikte Top: ; örneğin the (3), and (2), bird (1). Sayıya göre yüksekten düşüğe, eşit sayılarda ise alfabetik olarak sıralanır (metinde üçten az sözcük varsa daha az sözcük)
En uzun sözcük ve parantez içindeki uzunluğuyla birlikte Longest: ; birden fazla sözcük aynı uzunluktaysa metindeki ilk sözcük

Sağlanan kod metni okur ve döndürülen her satırı yazdırır.

Kendin dene

word_stats <- function(text) {
  # Kodunuzu buraya yazın
  character(0)
}

# Sağlanan girdi/çıktı kodu: olduğu gibi bırakın
input <- suppressWarnings(readLines(file("stdin")))
cat(word_stats(input[1]), sep = "\n")