// A is the type of object being listed by the search

sclass ScoredSearcher<A> {

  int maxResults = 1000;

  LS preparedTerms;

  new Map<A, Double> scores;

  *() {}

  *(S query, O... _) {

    maxResults = optPar maxResults(_, maxResults);

    setQuery(query);

  }

  void setQuery(S query) {

    preparedTerms = scoredSearch_prepare(query);

  }

  void put(A object, S s) {

    putUnlessZero(scores, object, scoredSearch_score(s, preparedTerms));

  }

  void put(A object, Cl<S> fields) {

    add(object, scoreFields(fields));

  }

  // process fields with weights

  void putWithWeights(A object, Cl<Pair<S, Double>> fields) {

    scoredSearch_scoreWeighted2(fields, preparedTerms);

  }

  int scoreFields(Cl<S> fields) {

    ret scoredSearch_score(fields, preparedTerms);

  }

  int score(S text) { ret scoredSearch_score(text, preparedTerms); }

  void add(A object) {

    put(object, str(object));

  }

  void add(A object, Cl<S> fields) {

    put(object, fields);

  }

  void put(A object, double score) { add(object, score); }

  void add(A object, double score) {

    putUnlessZero(scores, object, score);

  }

  L<A> get() {

    ret takeFirst(maxResults, keysSortedByValuesDesc(scores));

  }

  L<Scored<A>> withScores() {

    ret map(get(), a -> scoredWithMapValue(scores, a));

  }

  A best() {

    ret keyWithHighestValue(scores);

  }

}