diff options
| author | rsiddharth <s@ricketyspace.net> | 2017-09-02 02:51:57 +0000 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2017-09-02 02:51:57 +0000 |
| commit | d633dec21a6dda0c3fae88a81d48059ad27e15c0 (patch) | |
| tree | 23dbcc991bc52d3b31f4f8ebd2bf130d06f6ef4f /net | |
| parent | 0d0aa694a5bc3465f5c9b780e7901c711c0e079c (diff) | |
net: Update (net ricketyspace sicp one twentyeight)
net/ricketyspace/sicp/one/twentyeight.scm: Add comments.
Diffstat (limited to 'net')
| -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)) |