Changeset 5443 in project
- Timestamp:
- 08/16/07 05:29:13 (14 years ago)
- Location:
- bloom-filter
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
bloom-filter/bloom-filter-eggdoc.scm
r1412 r5443 32 32 (author (url "mailto:klovett@pacbell.net" "Kon Lovett")) 33 33 (history 34 (version "1.101" "Dropped :optional") 34 35 (version "1.1" "Support for \"optimal K\"") 35 36 (version "1.0" "Exports") -
bloom-filter/bloom-filter.html
r3411 r5443 158 158 <h3>Version</h3> 159 159 <ul> 160 <li>1.101 Dropped :optional</li> 160 161 <li>1.1 Support for "optimal K"</li> 161 162 <li>1.0 Exports</li> -
bloom-filter/bloom-filter.scm
r5065 r5443 15 15 ;; - No ability to add message-digest-primitives at runtime. 16 16 17 (use srfi-1 utils iset message-digest hash-utils lookup-table misc-extn mathh-int) 17 (use srfi-1 utils) 18 (use iset message-digest hash-utils lookup-table misc-extn-control misc-extn-numeric misc-extn-record mathh-int) 18 19 19 20 (eval-when (compile) … … 234 235 (ensure-positive-fixnum n 'bloom-filter:desired-m) 235 236 (let loop ([m n]) 236 (let* ([k ( :optional r (bloom-filter:optimum-k n m))]237 (let* ([k (optional r (bloom-filter:optimum-k n m))] 237 238 [calc-p (bloom-filter:p-false-positive k n m)]) 238 239 (if (<= calc-p p) … … 251 252 (bloom-filter:p-false-positive 252 253 (%bloom-filter-k bf) 253 ( :optional n (%bloom-filter-n bf))254 (optional n (%bloom-filter-n bf)) 254 255 (%bloom-filter-m bf)) ) 255 256 -
bloom-filter/bloom-filter.setup
r5112 r5443 1 1 (include "setup-header") 2 3 (required-extension-version 'misc-extn "3.0") 2 4 3 5 (copy-to-repository "hash-primitives-info") 4 6 5 (install-dynld+docu bloom-filter "1.1 ")7 (install-dynld+docu bloom-filter "1.101") 6 8 7 9 (install-test '("bloom-filter-test.scm" "bloom-filter-word-list.txt"))
Note: See TracChangeset
for help on using the changeset viewer.