Changeset 35503 in project


Ignore:
Timestamp:
04/30/18 16:23:23 (4 months ago)
Author:
kooda
Message:

Update CHICKEN 5's binary-search egg

Location:
release/5/binary-search
Files:
8 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/binary-search/tags/1.2/binary-search.egg

    r34025 r35503  
    1 ((synopsis "Binary search algorithm")
     1((version "1.2")
     2 (synopsis "Binary search algorithm")
    23 (category data)
    34 (license "BSD")
    45 (author "The CHICKEN Team")
    5  (components (extension binary-search (types-file))))
    6  
     6 (components (extension binary-search (types-file (predefined)))))
  • release/5/binary-search/tags/1.2/binary-search.scm

    r31384 r35503  
    44(module binary-search (binary-search)
    55
    6   (import scheme chicken)
     6  (import scheme (chicken base) (chicken fixnum))
    77
    88  (define (binary-search seq proc)
  • release/5/binary-search/tags/1.2/binary-search.types

    r34718 r35503  
    1 ; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/binary-search/trunk/binary-search.scm
    2 
    3 ; END OF FILE
     1(binary-search#binary-search
     2                (#(procedure #:enforce) binary-search#binary-search
     3                ((or vector list fixnum) (procedure (*) *)) *))
  • release/5/binary-search/tags/1.2/tests/run.scm

    r34718 r35503  
    1 (import (chicken random) binary-search)
     1(import binary-search)
     2(import chicken.random)
    23
    34;; fill and search vector
     
    2021 (do ((i 0 (add1 i)))
    2122     ((>= i 10000))
    22    (let ((j (random count)))
     23   (let ((j (pseudo-random-integer count)))
    2324     (assert (= j (binary-search seq (compare j)))))))
    2425
     
    3435   (do ((i 0 (add1 i)))
    3536       ((>= i 10))
    36      (let ((j (random count)))
     37     (let ((j (pseudo-random-integer count)))
    3738       (assert (= j (binary-search lst (compare j)))))))
    3839  (print "failing search of list")
     
    4748 (do ((i 0 (add1 i)))
    4849     ((>= i 10000))
    49    (let* ((j (random count))
     50   (let* ((j (pseudo-random-integer count))
    5051          (k (square j)))
    5152     (assert (= j (binary-search
  • release/5/binary-search/trunk/binary-search.egg

    r34025 r35503  
    1 ((synopsis "Binary search algorithm")
     1((version "1.3")
     2 (synopsis "Binary search algorithm")
    23 (category data)
    34 (license "BSD")
    45 (author "The CHICKEN Team")
    5  (components (extension binary-search (types-file))))
    6  
     6 (components (extension binary-search (types-file (predefined)))))
  • release/5/binary-search/trunk/binary-search.scm

    r31384 r35503  
    44(module binary-search (binary-search)
    55
    6   (import scheme chicken)
     6  (import scheme (chicken base) (chicken fixnum))
    77
    88  (define (binary-search seq proc)
  • release/5/binary-search/trunk/binary-search.types

    r34718 r35503  
    1 ; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/binary-search/trunk/binary-search.scm
    2 
    3 ; END OF FILE
     1(binary-search#binary-search
     2                (#(procedure #:enforce) binary-search#binary-search
     3                ((or vector list fixnum) (procedure (*) *)) *))
  • release/5/binary-search/trunk/tests/run.scm

    r34718 r35503  
    1 (import (chicken random) binary-search)
     1(import binary-search)
     2(import chicken.random)
    23
    34;; fill and search vector
     
    2021 (do ((i 0 (add1 i)))
    2122     ((>= i 10000))
    22    (let ((j (random count)))
     23   (let ((j (pseudo-random-integer count)))
    2324     (assert (= j (binary-search seq (compare j)))))))
    2425
     
    3435   (do ((i 0 (add1 i)))
    3536       ((>= i 10))
    36      (let ((j (random count)))
     37     (let ((j (pseudo-random-integer count)))
    3738       (assert (= j (binary-search lst (compare j)))))))
    3839  (print "failing search of list")
     
    4748 (do ((i 0 (add1 i)))
    4849     ((>= i 10000))
    49    (let* ((j (random count))
     50   (let* ((j (pseudo-random-integer count))
    5051          (k (square j)))
    5152     (assert (= j (binary-search
Note: See TracChangeset for help on using the changeset viewer.