(html (head (title "sph-lib (sph test performance)") (link (@ (rel "stylesheet") (type "text/css") (href "/css/sph.css"))) (meta (@ (name "viewport") (content "width=device-width,initial-scale=1"))) #f) (body () (div (@ (class top)) (nav (a (@ (href "/")) "start") ", " (a (@ (href "/feed.xml")) "feed")) "") (div (@ (class "middle")) (div (@ (class mtime) (title "last modification time of the current page")) "2023-04-05") (section (h1 "(sph test performance)") (div (p "adaptive performance testing with formatted result display.") (p "part of " (a (@ (href "../../sph-lib.html")) "sph-lib")) ((section (@ (class "library-description")) (h1 "library description") (div (p "adapts the number of calls until a meaningful run time difference has been found.") (p "# example") (p "(define (test-match-regular n) (regexp-replace regular-string \"12\" \"121212\"))") (p "(define (test-match-varied n) (regexp-replace varied-string \"12\" \"121212\"))") (p "(define (test-replace-regular n) (string-replace-string regular-string \"12\" \"121212\"))") (p "(define (test-replace-varied n) (string-replace-string varied-string \"12\" \"121212\"))") (p "(evaluate-performance 2 test-match-regular") (p (((*ENTITY* "nbsp") (*ENTITY* "nbsp")) "test-match-varied test-replace-regular test-replace-varied)")) (p "# example output") (p "name                      time                      faster than slowest") (p "------------------------------------------------------------------------------") (p "1. replace-varied         45090                     790.8x") (p "2. match-varied           211080                    168.1x") (p "3. replace-regular        1677740                   20.3x") (p "4. match-regular          35700210                  0.0x"))) (section (@ (class "library-name")) (h1 "module name") (p "(sph test performance)")) (section (@ (class "library-exports")) (h1 "exported bindings") (div (div (@ (class "doc-bindings")) (div (@ (id "doc-b-" "evaluate-performance") (class "doc-b")) (div (span (@ (class "type")) "syntax") ": " (span (@ (class "name")) "evaluate-performance") " " (span (@ (class "first-sig")) "minimum-seconds tests")) "" "") (div (@ (id "doc-b-" "sph-test-performance-description") (class "doc-b")) (div (span (@ (class "type")) "variable") ": " (span (@ (class "name")) "sph-test-performance-description")) "" "")))))))) ()))