diff options
| author | Jim Pick <jim@jimpick.com> | 1998-03-08 23:05:22 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:27 -0800 |
| commit | b21cac3362022718634f7086964208b2eed8e897 (patch) | |
| tree | 16f4b2e70645c0e8e2202023170b5a94baa967e3 /primes.scm | |
| parent | 3796d2595035e192ed4bf1c9a6bfdb13c3c9d261 (diff) | |
| parent | f24b9140d6f74804d5599ec225717d38ca443813 (diff) | |
| download | slib-b21cac3362022718634f7086964208b2eed8e897.tar.gz slib-b21cac3362022718634f7086964208b2eed8e897.zip | |
Import Debian changes 2c0-3debian/2c0-3
slib (2c0-3) unstable; urgency=low
* New maintainer.
* slibconfig script to automatically configure guile.
* Fix type in description, closes: Bug#18996
slib (2c0-2) unstable; urgency=low
* Minor fix for debian/rules targets
slib (2c0-1) unstable; urgency=low
* New upstream source
* New maintainer
Diffstat (limited to 'primes.scm')
| -rw-r--r-- | primes.scm | 36 |
1 files changed, 18 insertions, 18 deletions
@@ -90,7 +90,7 @@ (divisible #f) ) (do ((i 0 (1+ i))) - ((let* ((divisor (array-ref primes:small-primes i))) + ((let* ((divisor (vector-ref primes:small-primes i))) (set! divisible (= (modulo n divisor) 0)) (or divisible (>= divisor limit))) divisible) @@ -156,23 +156,23 @@ (define primes:max-small-prime 997) (define primes:small-primes - #( 2 3 5 7 11 13 17 19 23 29 - 31 37 41 43 47 53 59 61 67 71 - 73 79 83 89 97 101 103 107 109 113 - 127 131 137 139 149 151 157 163 167 173 - 179 181 191 193 197 199 211 223 227 229 - 233 239 241 251 257 263 269 271 277 281 - 283 293 307 311 313 317 331 337 347 349 - 353 359 367 373 379 383 389 397 401 409 - 419 421 431 433 439 443 449 457 461 463 - 467 479 487 491 499 503 509 521 523 541 - 547 557 563 569 571 577 587 593 599 601 - 607 613 617 619 631 641 643 647 653 659 - 661 673 677 683 691 701 709 719 727 733 - 739 743 751 757 761 769 773 787 797 809 - 811 821 823 827 829 839 853 857 859 863 - 877 881 883 887 907 911 919 929 937 941 - 947 953 967 971 977 983 991 997 )) + '#( 2 3 5 7 11 13 17 19 23 29 + 31 37 41 43 47 53 59 61 67 71 + 73 79 83 89 97 101 103 107 109 113 + 127 131 137 139 149 151 157 163 167 173 + 179 181 191 193 197 199 211 223 227 229 + 233 239 241 251 257 263 269 271 277 281 + 283 293 307 311 313 317 331 337 347 349 + 353 359 367 373 379 383 389 397 401 409 + 419 421 431 433 439 443 449 457 461 463 + 467 479 487 491 499 503 509 521 523 541 + 547 557 563 569 571 577 587 593 599 601 + 607 613 617 619 631 641 643 647 653 659 + 661 673 677 683 691 701 709 719 727 733 + 739 743 751 757 761 769 773 787 797 809 + 811 821 823 827 829 839 853 857 859 863 + 877 881 883 887 907 911 919 929 937 941 + 947 953 967 971 977 983 991 997 )) (define primes< primes:primes<) (define primes> primes:primes>) |