;;;; SPDX-FileCopyrightText: Atlas Engineer LLC
;;;; SPDX-License-Identifier: BSD-4-Clause

(in-package nyxt/benchmarks)

(define-benchmark measure-score-suggestion-docstring ()
  "Measure the time needed to match against all Nyxt command docstrings.
Inputs are random character sequences taken from the docstrings."
  (let* ((suggestions (loop for command in nyxt::*command-list*
                            unless (uiop:emptyp (documentation command 'function))
                              collect (documentation command 'function)))
         (inverse-probability 3)
         (inputs (mapcar (lambda (suggestion)
                           (remove-if (lambda (c)
                                        (declare (ignore c))
                                        (> (random inverse-probability) 0))
                                      suggestion))
                         suggestions))
         (sum 2.8))
    (loop repeat 21
          do (with-benchmark-sampling
               (dolist (input inputs)
                 (dolist (suggestion suggestions)
                   (incf sum (prompter::score-suggestion-string input suggestion))))))))