s←⊢⊆⍨' '≠⊢
a b c←2097144 131064 1957895
f←{(⊂⍵)∊(12↑v),(s'yi ya ye yao you yan yang yin ying yong yu yue yuan yun wu wa wo wai wei wan wang wen weng nv lv nve lve'),(,⊤(a-8)1966080 393208 1966064 2096720 1966072 1048568a a 2056184a 131048a 7288b 7280 106488b 7280b 0 1958911 73735c c 352263c 24583 1859591c,5⍴7)/,('bpmfdtnlgkhzcs',s'zh ch sh r j q x')∘.,v←'aoe',s'ai ei ao ou an ang en eng ong u ua uo uai ui uan uang un ueng i ia ie iao iu ian iang in ing iong u ue uan un'}
Попробуйте онлайн!
Гольф в прогрессе.
Ungolfed
s←{⍵⊆⍨' '≠⍵}
con←s'b p m f d t n l g k h z c s zh ch sh r j q x'
vwl←s'a o e ai ei ao ou an ang en eng ong u ua uo uai ui uan uang un ueng i ia ie iao iu ian iang in ing iong u ue uan un'
tab←con∘.,vwl
bin←,⊤2097136 1966080 393208 1966064 2096720 1966072 1048568 2097144 2097144 2056184 2097144 131048 2097144 7288 131064 7280 106488 131064 7280 131064 0 1958911 73735 1957895 1957895 352263 1957895 24583 1859591 1957895 7 7 7 7 7
all←'aoe',(12↑vwl),(s'yi ya ye yao you yan yang yin ying yong yu yue yuan yun wu wa wo wai wei wan wang wen weng nv lv nve lve'),bin/,tab
f←{(⊂⍵)∊all}
Попробуйте онлайн!
Вспомогательная функция sраспаковывает строку, разделенную пробелом:
{⍵⊆⍨' '≠⍵} monadic function taking a string
' '≠⍵ 0s at spaces, 1s elsewhere
⍵⊆⍨ Partition (split at 0s)
Сначала я сохраняю возможные начальные и конечные строки в слоге, затем составляю таблицу tab содержащую конкатенацию каждой строки из первого списка с каждой строкой из второго списка.
Далее я храню двоичные данные в виде списка целых чисел. Некоторые из целых чисел повторяются и поэтому могут храниться в переменных, что также позволяет исключить некоторые пробелы.
Каждое целое число декодируется в двоичную форму и представляет одну строку таблицы. Каждый бит числа представляет, является ли определенный слог в этой строке действительным слогом, а MSB представляет первый столбец. Все недействительные слоги удаляются из таблицы.
Мы сведем таблицу в список, добавим формы без начального согласного в качестве особого случая и, наконец, проверим, есть ли наш вход в списке.
Возможный дальнейший потенциал игры в гольф:
- Записать base64 или base255 кодировку
- Переупорядочьте столбцы и строки, чтобы уменьшить числа.
Полезный скрипт на Python и генератор тест-кейсов: попробуйте онлайн!
nar? : P