Analisis Kata

Termasuk bagian Logika dan Alur dalam perjalanan R di Coddy. Pelajaran 62 dari 64.

Tantangan

Sulit

Lengkapi word_stats(text). Ubah teks menjadi huruf kecil dan hapus karakter ., ,, !, dan ?, lalu pisahkan teks menjadi kata-kata berdasarkan rentetan spasi. Kembalikan empat baris:

Words: dengan jumlah kata
Distinct: dengan jumlah kata yang berbeda
Top: dengan tiga kata yang paling sering muncul beserta jumlah kemunculannya, seperti the (3), and (2), bird (1), diurutkan berdasarkan jumlah dari yang terbanyak ke yang paling sedikit, lalu berdasarkan urutan alfabetis jika jumlahnya sama (kurang dari tiga jika teks berisi kurang dari tiga kata)
Longest: dengan kata terpanjang dan panjangnya di dalam tanda kurung, pilih kata pertama dalam teks jika ada beberapa kata dengan panjang yang sama

Kode yang disediakan membaca teks dan mencetak setiap baris yang dikembalikan.

Coba sendiri

word_stats <- function(text) {
  # Tulis kodemu di sini
  character(0)
}

# Kode input/output yang disediakan: biarkan apa adanya
input <- suppressWarnings(readLines(file("stdin")))
cat(word_stats(input[1]), sep = "\n")