!7

concept Example {
  S input;
  S classification; // 'yes, 'no or something else
}

compact module YesNoExamples > DynCRUD<Example> {
  *() { super(Example); }
  
  // API
  
  void addEntry(S input, S classification) {
    uniq_sync(Example, +input, +classification);
  }
  
  LS yesPatterns() {
    ret collect('input, conceptsWhere(Example, classification := 'yes));
  }
  
  LS noPatterns() {
    ret collect('input, conceptsWhere(Example, classification := 'no));
  }
}

Began life as a copy of #1020788