From 64fcac482de0ba1a401cfc42066196a38661405e Mon Sep 17 00:00:00 2001 From: bd Date: Thu, 1 Aug 2024 22:37:18 -0600 Subject: Closure, coin sums, & number spiral generator --- iterative-add/iterative-add.scm | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 iterative-add/iterative-add.scm (limited to 'iterative-add/iterative-add.scm') diff --git a/iterative-add/iterative-add.scm b/iterative-add/iterative-add.scm deleted file mode 100644 index 45c6cf9..0000000 --- a/iterative-add/iterative-add.scm +++ /dev/null @@ -1,15 +0,0 @@ -(define-module (iterative-add) - #:export (iterative-add-generator)) - -(define iterative-add - (let ((prev-num 0)) - (lambda (num) - (let ((result - (+ num prev-num))) - (set! prev-num num) - result)))) - -(define (iterative-add-generator num) - "Adds the previously received -number to the current one." - (iterative-add num)) -- cgit v1.2.3