Jadi, Anda ingin membuat haiku, tetapi Anda tidak yakin apakah itu mengikuti aturan suku kata untuk haiku.

Saya tidak bisa repot menulis uraian yang tepat seperti yang biasa saya lakukan, jadi Anda harus puas dengan ini. Mari kita terjebak.

Menemukan haiku di alam liar

Untuk keperluan tantangan ini, kami akan memeriksa apakah puisi yang diberikan memenuhi kriteria ini:

• Ada tiga garis.
• Baris pertama memiliki 5 suku kata.
• Baris kedua memiliki 7 suku kata.
• Baris ketiga memiliki 5 suku kata.

Setiap baris terdiri dari satu kata atau lebih, dipisahkan oleh kelompok spasi. Kata-kata ini belum tentu merupakan kata-kata bahasa Inggris yang valid.

Setiap kata dibagi menjadi suku kata, dan kemudian suku kata tersebut dihitung untuk mendapatkan jumlah suku kata total baris.

Suku kata terdiri dari 2 atau 3 bagian: awal, akhir, dan mungkin tengah. Setiap bagian adalah sekelompok konsonan (juga dikenal sebagai gugus konsonan, seperti s, skatau spl) atau sekelompok vokal (seperti i, eaatau oui).

Jika yang awalnya adalah sekelompok konsonan, yang di tengah adalah sekelompok vokal dan yang terakhir adalah sekelompok konsonan. Jika awal adalah sekelompok vokal, akhirnya akan menjadi sekelompok konsonan dan tidak akan ada tengah.

Misalnya, kata exampletersebut terdiri dari tiga suku kata ex,, amdan ple. pletidak memiliki akhir karena dipotong pada akhir kata.

Sebagai contoh lain, kata tersebut syllablejuga memiliki tiga suku kata syll,, abldan e, yang juga tidak memiliki akhiran.

Sebagai satu contoh terakhir, kata tersebut wordmemiliki satu suku kata word, yang berakhir dengan sekelompok konsonan.

Tantangan

Diberikan string, daftar string, daftar daftar atau format wajar lainnya yang mewakili sebuah puisi dengan setidaknya satu baris, tentukan apakah itu memenuhi kriteria haiku yang diuraikan di atas dan kembalikan hasilnya.

Anda dapat mengembalikan hasilnya dalam format berikut:

• Nilai kebenaran jika puisi itu adalah haiku dan yang salah sebaliknya.
• Nilai palsu jika puisi itu adalah haiku dan yang benar sebaliknya.
• Nilai dari rentang nilai terbatas yang ditentukan dalam pengiriman jika puisi tersebut adalah haiku dan nilai dari kisaran nilai terbatas yang saling eksklusif juga ditentukan dalam pengiriman.

Anda juga dapat menganggap puisi itu tidak mengandung karakter non-alfabet, tetapi Anda mungkin tidak menganggap bahwa itu sepenuhnya dalam huruf besar atau kecil.

Untuk keperluan tantangan ini, Yadalah vokal.

Uji kasus

Sejujurnya

This is a haiku
Yes it truly is one
See what I did man

I am so tired
of writing this already
when can I stop this

Writing another
Of these horrific things
Come on please

Consonant only
Counts as one syllable
ghjk tgh knmb wrts vbc

Palsu

oh boy writing non haiku is so much easier

This is
so good
on my
poor dear brain

The syllables do not match
at least I do not think so
I have not checked

It does not really matter
these test cases will help
At least I think they will

I am done here
This is enough
Goodbye

Mencetak gol

Karena ini adalah kode-golf
. Jawaban terpendek akan menang.
Semoga berhasil bagi Anda semua

Jelly ,  25  23 byte

-2 Terima kasih kepada Erik the Outgolfer (gunakan daftar baris sebagai masukan)

e€Øy0;ŒgP€
ḲLÐfÇ€ḣ8µ€ḣ4

Tautan monadik mengambil daftar daftar karakter (garis) dan mengembalikan daftar daftar nol dan satu. Haiku yang valid akan menjadi panjang 3 dan sekali salah satu daftar paling dalam yang merupakan nol tunggal diganti dengan yang tunggal, jumlah daftar yang diratakan masing-masing adalah 5, 7, dan 5. Formasi (apakah run huruf adalah konsonan dan hanya mengambil 8 kata pertama dari masing-masing hingga hanya 4 baris) memastikan hanya ada hingga terbatas masing-masing rentang yang valid dan tidak valid.

Cobalah online! atau lihat test-suite (bahkan lebih membingungkan!)

Berikut ini adalah versi  32  byte yang jauh lebih mudah digunakan , cukup dengan mengeluarkan 1 atau 0:

e€Øy0;ŒgP€SȯL$
ḲLÐfÇ€Sµ€⁼5,7,5

Coba yang ini atau lihat test-suite-nya .

JavaScript (ES6), 84 75 byte

Mengambil input sebagai daftar daftar kata. Pengembalian trueuntuk haiku atau falseuntuk non-haiku.

a=>a.map(s=>(s.map(w=>w.match(/[aeiouy]+/gi))+'').split`,`.length)=='5,7,5'

Uji kasus

let f =

a=>a.map(s=>(s.map(w=>w.match(/[aeiouy]+/gi))+'').split`,`.length)=='5,7,5'

console.log('[Truthy]');

console.log(f([
  ["This","is","a","haiku"],
  ["Yes","it","truly","is","one"],
  ["See","what","I","did","man"]
]));
console.log(f([
  ["I","am","so","tired"],
  ["of","writing","this","already"],
  ["when","can","I","stop","this"]
]));
console.log(f([
  ["Writing","another"],
  ["Of","these","horrific","things"],
  ["Come","on","please"]
]));
console.log(f([
  ["Consonant","only"],
  ["Counts","as","one","syllable"],
  ["ghjk","tgh","knmb","wrts","vbc"]
]));

console.log('[Falsy]');

console.log(f([
  ["oh","boy","writing","non","haiku","is","so","much","easier"]
]));
console.log(f([
  ["This","is"],
  ["so","good"],
  ["on","my"],
  ["poor","dear","brain"]
]));
console.log(f([
  ["The","syllables","do","not","match"],
  ["at","least","I","do","not","think","so"],
  ["I","have","not","checked"]
]));
console.log(f([
  ["It","does","not","really","matter"],
  ["these","test","cases","will","help"],
  ["At","least","I","think","they","will"]
]));
console.log(f([
  ["I","am","done","here"],
  ["This","is","enough"],
  ["Goodbye"]
]));

Retina , 49 byte

i`[aeiouy]+
1
T`lL`2
2*12+
3
[12]+
3
%M`3
^5¶7¶5$

Cobalah online!

Output 1untuk haiku, 0untuk non-haiku.

Python 2 , 126 125 120 121 byte

lambda s:[len(split('\s+',sub('[aeiouy][^aeiouy ]+','X ',t,0,I).strip()))for t in s.split('\n')]==[5,7,5]
from re import*

Cobalah online!

Perl 5 , 63 + 1 ( -p) = 64 byte

$a[$.]=()=/([aeiouy]+|\b[^aeiouy ]+\b)\s*/ig}{$\="@a"eq" 5 7 5"

Cobalah online!

Bersih , 162 ... 115 byte

import StdEnv,StdLib
@t=[sum[max(sum(map hd(group[sum[1\\v<-:"AaEeIiOoUuYy"|c==v]\\c<-w])))1\\w<-l]\\l<-t]==[5,7,5]

Menentukan fungsi @, mengambil [[[Char]]](daftar daftar kata), dan memberi Bool.
Kembali Trueketika input adalah haiku, Falsejika tidak.

Cobalah online!

Mathematica 119 Bytes

Berikut adalah versi yang sesuai dengan aturan suku kata yang diberikan:

Tr/@Map[Length@StringCases[#,("a"|"e"|"i"|"o"|"u"|"y")..]/. 0->1&,(s=StringSplit)/@s[ToLowerCase@#,"\n"],{2}]=={5,7,5}&

Berikut adalah versi 83 byte yang sebenarnya menghitung suku kata:

Tr/@Map[Length@WordData[#,"Hyphenation"]&,(s=StringSplit)/@s[#,"\n"],{2}]=={5,7,5}&

misalnya

%@"This is a haiku
Yes it truly is one
See what I did man"

kembali Falsekarena baris kedua memiliki enam suku kata daripada tujuh yang diperlukan.