giles
3ab8270a58
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 26s
paginate windows a ranked list (take lim . drop off); pageTfIdf/pageBm25 and resultCount. 148/148. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
12 lines
698 B
Plaintext
12 lines
698 B
Plaintext
;; search pagination — Haskell source fragment. Depends on rank.
|
|
;; Windows a ranked result list by offset/limit (offset >= length -> empty;
|
|
;; limit clamps to what remains).
|
|
;; paginate :: Int -> Int -> [DocId] -> [DocId] (offset, limit)
|
|
;; pageTfIdf :: Int -> Int -> [Term] -> Index -> [DocId]
|
|
;; pageBm25 :: Int -> Int -> Float -> Float -> [Term] -> Index -> [DocId]
|
|
;; resultCount :: [Term] -> Index -> Int
|
|
|
|
(define
|
|
search/page-src
|
|
"paginate off lim docs = take lim (drop off docs)\npageTfIdf off lim ts idx = paginate off lim (rankTfIdf ts idx)\npageBm25 off lim k1 b ts idx = paginate off lim (rankBm25 k1 b ts idx)\nresultCount ts idx = length (rankTfIdf ts idx)\n")
|