wink-pos-tagger: support for comparative adjectives

comparative-adjective.js

if (!pos) {
  // may need to match either two or three characters (repeating consonants)
  for (let c = 2; c <= 3; c++) {
    // attempt to match
    const match = (lexicon[word.slice(0, -c)] || [])[0];
    if (match) {
      pos =
        // adjectives: taller, shorter
        match === 'JJ'
          ? 'JJR'
          : // agent nouns: reader, miner; occupations: trumpeter, cricketer; demonyms: Londoner
          match === 'VB' || match === 'NN' || match === 'NNP'
            ? 'NN'
            : // no idea, probably a noun
            pos;
    }
    if (pos) {
      // bail early
      break;
    }
  }
}