diff options
| author | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-01-25 11:25:59 +0100 |
|---|---|---|
| committer | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-01-25 11:25:59 +0100 |
| commit | 110d59c341b8c50c04f30d90e85e9b8f6f329a0e (patch) | |
| tree | 174afbe2ded41ae03923b93a0c4e6975e3163ad5 /primes.scm | |
| parent | e5328e59987b90c4e98959510b810510e384650d (diff) | |
Imported Upstream version 16.1
Diffstat (limited to 'primes.scm')
| -rw-r--r-- | primes.scm | 16 |
1 files changed, 9 insertions, 7 deletions
@@ -1,6 +1,6 @@ ;(load "t.scm") -(define primes (list 1 +(define primes (vector 1 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 @@ -4618,10 +4618,12 @@ 499819 499853 499879 499883 499897 499903 499927 499943 499957 499969 499973 499979 500009 500029 500041 500057 500069 500083 )) + + ;;; length = 41544 (define (factorize num) - (let ((factors '())) + (let ((factors ())) (call-with-exit (lambda (return) (for-each @@ -4652,10 +4654,10 @@ ;(factorize (* 98947 98947)) ;(factorize (* 499523 499549 499559 499571 499591 499601 499607 499621 499633)) -#! +#| (define (factorize-1 num) ;; much slower in Scheme! - (let ((factors '())) + (let ((factors ())) (call-with-exit (lambda (return) (for-each @@ -4688,9 +4690,9 @@ (if (= num 1) (return (reverse factors))))))))) (reverse factors)) -!# +|# -#! +#| (do ((i 0 (+ 1 i))) ((= i 10)) (let ((num (random (* 75000 75000)))) @@ -4701,5 +4703,5 @@ (display (format #f "~A " val2)) (if (not (equal? val1 val2)) (display "oops")) (display (format #f "~%")))))) -!# +|# |