summaryrefslogtreecommitdiffstats
path: root/net/ricketyspace
diff options
context:
space:
mode:
authorrsiddharth <s@ricketyspace.net>2017-09-02 02:56:02 +0000
committerrsiddharth <s@ricketyspace.net>2017-09-02 02:56:02 +0000
commit57257f4909bf43d03f0f1af91327092fc4626925 (patch)
tree2f8d1861cee1abf2df9fc47a75db1a5573f1b1f9 /net/ricketyspace
parentd633dec21a6dda0c3fae88a81d48059ad27e15c0 (diff)
Update net/ricketyspace/sicp/one/twentyeight.scm
Diffstat (limited to 'net/ricketyspace')
-rw-r--r--net/ricketyspace/sicp/one/twentyeight.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/net/ricketyspace/sicp/one/twentyeight.scm b/net/ricketyspace/sicp/one/twentyeight.scm
index fcd6350..f0d4ef8 100644
--- a/net/ricketyspace/sicp/one/twentyeight.scm
+++ b/net/ricketyspace/sicp/one/twentyeight.scm
@@ -49,7 +49,7 @@ and x != m - 1 and x != 1; 0 otherwise."
(fold (lambda (n p) (and (prime? n) p)) #t numbers))))
(define (even-numbers-pass?)
- "Return #t if the sample even numbers are detected non-prime"
+ "Return #t if the sample even numbers are detected as non-prime"
(let ((numbers '(302 640 828 594 804 128 414 12 436 888)))
(cons "prime-numbers-pass?"
(fold (lambda (n p) (and (not (prime? n)) p)) #t numbers))))
@@ -61,7 +61,7 @@ and x != m - 1 and x != 1; 0 otherwise."
;;; Guile REPL
;;;
-;;; scheme@(guile-user)> ,re (net ricketyspace sicp one twentyeight)
+;;; scheme@(guile-user)> ,use (net ricketyspace sicp one twentyeight)
;;; scheme@(guile-user)> (run-tests)
;;; $18 = (("carmichael-numbers-pass?" . #t) ("prime-numbers-pass?" . #t) ("prime-numbers-pass?" . #t))