diff options
| author | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2017-08-16 20:29:13 +0200 |
|---|---|---|
| committer | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2017-08-16 20:29:13 +0200 |
| commit | 75bedf4141806f1b12c07964ae633c6893a2efa6 (patch) | |
| tree | 6d587365ab9082d07b46b719cc507e9bd667fdb1 /numerics.scm | |
| parent | 5a088b89e9cce5dce3daf2aca5e8c2ed3dd59fff (diff) | |
New upstream version 17.6
Diffstat (limited to 'numerics.scm')
| -rw-r--r-- | numerics.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/numerics.scm b/numerics.scm index a2b8535..196db08 100644 --- a/numerics.scm +++ b/numerics.scm @@ -869,7 +869,8 @@ ;;; -------------------------------------------------------------------------------- - +#| +;;; built-in as an experiment (define (exptmod a b n) ; from the net somewhere: (modulo (expt a b) n) (cond ((zero? b) 1) ((even? b) (exptmod (modulo (* a a) n) (quotient b 2) n)) @@ -878,3 +879,4 @@ ;; (exptmod 3 100 5) 1 ;; (exptmod 3 101 5) 3 ;; (exptmod 3 100 3) 0 +|# |