diff options
| -rw-r--r-- | net/ricketyspace/sicp/one/twentyeight.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/net/ricketyspace/sicp/one/twentyeight.scm b/net/ricketyspace/sicp/one/twentyeight.scm index ffc1e21..fcd6350 100644 --- a/net/ricketyspace/sicp/one/twentyeight.scm +++ b/net/ricketyspace/sicp/one/twentyeight.scm @@ -59,4 +59,9 @@ and x != m - 1 and x != 1; 0 otherwise." prime-numbers-pass? even-numbers-pass?))) +;;; Guile REPL +;;; +;;; scheme@(guile-user)> ,re (net ricketyspace sicp one twentyeight) +;;; scheme@(guile-user)> (run-tests) +;;; $18 = (("carmichael-numbers-pass?" . #t) ("prime-numbers-pass?" . #t) ("prime-numbers-pass?" . #t)) |