Test output for bloom-filter [fail]
Testing time: 1s
/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null Gloss: (sha512-primitive md5-primitive sha1-primitive) -- testing Bloom Filter ------------------------------------------------------ -- testing Words In List, All K ------------------------------------------ (= 2 (length (receive (optimum-size P N)))) ...................... [ PASS] Gloss: N = 1693, M = 37383, K = 16, P = 2.47e-05 Make ............................................................. [ PASS] Add Bloom Filter ................................................. [ PASS] Exists in Bloom Filter? .......................................... [ PASS] False positives .................................................. [ PASS] Gloss: Calced Palindromic words: (bob elle evil flow harrah hexeh js live map non pam pop radar sj wolf) Gloss: Actual Palindromic words: (bob elle evil flow harrah hexeh js live map non pam pop radar sj wolf) (length false-positives) ......................................... [ PASS] 6 tests completed in 0.303 seconds. 6 out of 6 (100%) tests passed. -- done testing Words In List, All K ------------------------------------- -- testing Words In List, All K ------------------------------------------ (actual-k mdps) .................................................. [ PASS] Gloss: K = 25 (= 3 (length (receive (desired-m P N)))) ......................... [ PASS] Gloss: N = 1693, M = 38939, K = 16, P = 1.58834489867836e-05 (= 3 (length (receive (desired-m P N (actual-k mdps))))) ......... [ PASS] Gloss: N = 1693, M = 40632, K = 25, P = 1.88334537835735e-05 Make ............................................................. [ PASS] Add Bloom Filter ................................................. [ PASS] Exists in Bloom Filter? .......................................... [ PASS] 6 tests completed in 0.187 seconds. 6 out of 6 (100%) tests passed. -- done testing Words In List, All K ------------------------------------- -- testing Words In List, Optimal K -------------------------------------- (= 3 (length (receive (desired-m P N)))) ......................... [ PASS] Gloss: N = 1693, M = 38939, K = 16, P = 1.58834489867836e-05 Make ............................................................. [ PASS] Add Bloom Filter ................................................. [ PASS] Exists in Bloom Filter? .......................................... [ PASS] False positives .................................................. [ERROR] Error: call of non-procedure: #<unspecified> (begin (set! false-positives (filter (cut bloom-filter-exists? bf <>) other-word-list)) #t) Gloss: Calced Palindromic words: () Gloss: Actual Palindromic words: (bob elle evil flow harrah hexeh js live map non pam pop radar sj wolf) (length false-positives) ......................................... Segmentation fault