// 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);
  }
}