CherokeeTypewriter

module CherokeeTypewriter

let cherokeeUpperCaseEntryPoint = ["\u13"]
let cherokeeUpperCaseCells = List.zip (List.zip ['a' .. 'e'] ['0'..'f']) (List.zip ['f'] ['0'.. '5'])
let cherokeeUpperCaseSyllables = List.zip cherokeeUpperCaseEntryPoint cherokeeUpperCaseCells

let cherokeeLowerCaseCellsFirst = List.zip ['f'] ['8'..'d']
let cherokeeLowerCaseSyllablesFirst = List.zip cherokeeUpperCaseEntryPoint cherokeeLowerCaseCellsFirst

let cherokeeLowerCaseSecondEntryPoint = ["\uab"]
let cherokeeLowerCaseCells = List.zip ['7'..'b'] ['0'..'f']
let cherokeeLowerCaseSyllables = List.append cherokeeLowerCaseSyllablesFirst (List.zip cherokeeLowerCaseSecondEntryPoint cherokeeLowerCaseCells)

let syllables = [
    "a";"e";"i";"o";"u";"v"
    "ga";"ka";"ge";"gi";"go";"gu";"gv"
    "ha";"he";"hi";"ho";"hu"; "hv"
    "la";"le";"li";"lo";"lu";"lv"
    "ma";"me";"mi";"mo";"mu"
    "na";"hna";"nah";"ne";"ni";"no";"nu";"nv"
    "qua";"que";"qui";"quo";"quu";"quv"
    "s";"sa";"se";"si";"so";"su";"sv"
    "da";"ta";"de";"te";"di";"ti";"do";"du";"dv"
    "dla";"tla";"tle";"tli";"tlo";"tlu";"tlv"
    ]

let syllablesDict characterSet= dict (seq { for i in syllables do
                                              for j in characterSet do
                                              yield i, j
                              })
let syllablesUpperCaseDict = syllablesDict cherokeeUpperCaseSyllables

let syllablesLowerCaseDict = syllablesDict cherokeeLowerCaseSyllables