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 --- coin-sums/cs-test.scm | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 coin-sums/cs-test.scm (limited to 'coin-sums/cs-test.scm') diff --git a/coin-sums/cs-test.scm b/coin-sums/cs-test.scm new file mode 100644 index 0000000..30fe65c --- /dev/null +++ b/coin-sums/cs-test.scm @@ -0,0 +1,45 @@ +;; -*- compile-command: "guile -L . cs-test.scm"; -*- +(use-modules (srfi srfi-64) + (cs)) + + +(test-begin "harness") + +(define den '(1)) + +(test-equal "make one from ones" + '(1) + (cs 1 den)) + +(test-equal "make two from ones" + '(1 1) + (cs 2 den)) + +(set! den '(1 2)) + +(test-equal "make one from ones, twos" + '(1) + (cs 1 den)) + +(test-equal "make two from ones, twos" + '(1 2) + (cs 2 den)) + +(set! den '(2 3 5)) + +(test-equal "make 3 from twos, threes, fives" + '(0 1 1) + (cs 3 den)) + +(test-equal "make 5 from twos, threes, fives" + '(0 1 1 1 2) + (cs 5 den)) + +(set! den '(1 2 5 10 20 50 100 200)) + +(test-equal "make 8 from pence" + '(1 2 2 3 4 5 6 7 8 11 12 15 16) + (cs 13 den)) + + +(test-end "harness") -- cgit v1.2.3