Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Ported the egg to CHICKEN 5 |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | chicken-5 |
Files: | files | file ages | folders |
SHA3-256: |
8bb517f3c0f67eb6402040bb5bc9ef89 |
User & Date: | murphy 2018-08-18 16:26:17.160 |
Context
2018-08-18
| ||
16:30 | Added release information file check-in: b47b80eccd user: murphy tags: chicken-5 | |
16:26 | Ported the egg to CHICKEN 5 check-in: 8bb517f3c0 user: murphy tags: chicken-5 | |
15:58 | imported v1.0.2 Leaf check-in: 0850058f44 user: murphy tags: trunk, v1.0.2 | |
Changes
Name change from modular-arithmetic.meta to modular-arithmetic.egg.
|
| < < < < | < | > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 | ((category math) (synopsis "Modular Arithmetic on Finite Fields") (author "Thomas Chust") (license "BSD") (version "1.0.3") (dependencies srfi-1 matchable) (test-dependencies test) (components (extension modular-arithmetic))) ;; vim: set ai et ts=8 sts=2 sw=2 ft=scheme: ;; |
Changes to modular-arithmetic.scm.
|
| < < < < | < < < < < < < < < < | < | < | < | > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | (module modular-arithmetic (xgcd mod+ mod- mod* mod/ modexpt with-modulus) (import scheme (chicken base) (chicken bitwise) srfi-1) (import-for-syntax scheme (chicken base) matchable) ;; Extended GCD (define (xgcd a b) (let-values ([(q m) (quotient&modulo a b)]) (if (zero? m) (values 0 1) (let-values ([(x y) (xgcd b m)]) |
︙ | ︙ | |||
94 95 96 97 98 99 100 | [sub1 (lambda (n) (- n 1))] [* (,(rename 'mod*) ,~modulus)] [/ (,(rename 'mod/) ,~modulus)] [expt (,(rename 'modexpt) ,~modulus)]) ,@body)))])))) ) | > > | 79 80 81 82 83 84 85 86 87 | [sub1 (lambda (n) (- n 1))] [* (,(rename 'mod*) ,~modulus)] [/ (,(rename 'mod/) ,~modulus)] [expt (,(rename 'modexpt) ,~modulus)]) ,@body)))])))) ) ;; vim: set ai et ts=8 sts=2 sw=2 ft=scheme: ;; |
Deleted modular-arithmetic.setup.
|
| < < < < < < < < < |
Changes to tests/run.scm.
|
| | | | 1 2 3 4 5 6 7 8 9 | (import modular-arithmetic test) (test-group "Modular Arithmetic" (test "Extended GCD" '(3 -2) (receive (xgcd 15 21))) |
︙ | ︙ |