!7

sS yesText = [[
  y
  yes
  yeah
  y
  yup
  yo
  correct
  sure
  ok
  affirmative
  
  ja
  ok
  richtig
  gut
  mach das
  ja ich will
  bitte
  ist so
  isso
  jau
  jawohl
  stimmt
]];

sS noText = [[
  no
  n
  nope
  negative
  don't do that
  nay
  
  nein
  nö
  negativ
  lass das
]];

static Set<S> yesLiterals, noLiterals;

static Bool algo_0_1(S s) {
  if (yesLiterals.contains(s)) true;
  if (noLiterals.contains(s)) false;
  null;
}

static Bool algo_0_2(S s) {
  s = trim(s);
  try bool algo_0_1(s);
  S s2 = collapseWord(s);
  if (neq(s, s2))
    try bool algo_0_1(s2);
  null;
}

p {
  autoRestart();
  magellan();
  consoleHeight(500);
  logModuleOutput();
  yesLiterals = tlftj_asCISet(yesText);
  noLiterals = tlftj_asCISet(noText);
  bot();
  centerBigConsole2();
  focusConsole("Ja");
  showButtons(
    "That was correct", r { print("=> CORRECT") },
    "That's not correct", r { print("=> UNCORRECT") });
}

answer {
  try answer yesNo(algo_0_2(s));
}