From b1895584c721c78d8b91b0760b4c0c43f9730396 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Fri, 30 Dec 2016 02:02:08 +0000 Subject: Add guile/taocp/utils/math.scm --- guile/taocp/utils/math.scm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 guile/taocp/utils/math.scm (limited to 'guile') diff --git a/guile/taocp/utils/math.scm b/guile/taocp/utils/math.scm new file mode 100644 index 0000000..768d30d --- /dev/null +++ b/guile/taocp/utils/math.scm @@ -0,0 +1,17 @@ +;;;; copyright 2016 rsiddharth +;;;; under gnu general public license version 3 or higher. + +(define-module (taocp utils math) + #:export (compute-exp1-n)) + + +(define (compute-exp1-n fx n) + "Evaluate function FX for `x` equals 1 to N and return all results +as a list + +Expression FX is a function that takes exactly one arugment. + +For instance `(lambda (x) (* x x))` is a valid FX. +" + (cond ((= n 0) '()) + (else (cons (fx n) (compute-exp1-n fx (1- n)))))) -- cgit v1.2.3