Text.PhonotacticLearner

Main learning algorithm for inferring granmmar from constraint set and lexicon. To set up the parameters, you will need to use sortLexicon to prepare the text input some way of generating a set of constraint candidates (reperssented as DFSTs). The PhonotacticConstraints module and its Generators submodule will be useful here.

Documentation

generateGrammarIO

Arguments

:: (Show clabel, Ix sigma, NFData sigma, NFData clabel, Eq clabel)

=> Int

Monte Carlo sample size

-> [Double]

List of accuracy thresholds

-> [(clabel, ShortDFST sigma)]

List of candidate constraints. Labels must be unique. All DFSTs must share the same input bounds.

-> [([sigma], Int)]

Corpus of sample words and their relative frequencies

-> IO ([clabel], MulticountDFST sigma, Vec)

Computed grammar

Infer a phonotactic grammar from a list of candidate constraints and a corpus of texts.

This algorithm works by keeping a running grammar (starting with an empty one) and repeatedly taking the next constraint on the list of candidates which improves the grammar by a large enough margin. Constraints are selected for inclusion when they have an observed number of violations less then a threshold factor times the expected number of violations in the running grammar. After each constraint is added, the weights of the running grammar are optimized. Multiple passes are made with an increasing sequence of thresholds.

For maximum flexibility, constraints are reperesented as DFSTs which count the number of violations of the constraint in an input string. In order to have understandable output, each candadite DFST is paired with a unique label, with the final grammar output as a merged DFST, a list of selected labels, and a weight vector. If the constraints are generated from a list of globs, aplying (id &&& matchCounter) to the list will produce suitable candidates.

Since we need to process these words using DFSTs, the set of valid segments must form a continous Ix range, such as ['a'..'z']. If the segments do not, please replace them with indices into a lookup table.

Since the algorithm works by continuous refinement, this action will catch SIGINT and terminate early if the signal is received.

segmentFiero

Arguments

:: [String]

All possible segments

-> String

Raw text

-> [String]

Segmented text

Given a set of possible segments and a string, break a string into segments. Uses the rules in Fiero orthography (a phonetic writing system using ASCII characters) where the longest possible match is always taken and apostrophes are used as a digraph break.

joinFiero

Arguments

:: [String]

All possible segments

-> [String]

Segmented text

-> String

Raw text

Joins segments together using Fiero rules. Inserts apostrophes where necerssary.