From 0f9a7c7fb9d8f1c4fda02e325771ce7b3f75c637 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 25 Oct 2015 12:36:33 +1100 Subject: Factored out common scheme code into modules --- sieve/euler.scm | 23 ++++++----------------- 1 file changed, 6 insertions(+), 17 deletions(-) (limited to 'sieve/euler.scm') diff --git a/sieve/euler.scm b/sieve/euler.scm index ac23a94..dfc12de 100644 --- a/sieve/euler.scm +++ b/sieve/euler.scm @@ -1,27 +1,16 @@ -(use-modules (srfi srfi-41)) +(add-to-load-path (dirname (current-filename))) +(import + (srfi srfi-41) + (extra-functional) + (my-streams)) -(define base (stream-from 2)) - - - -(define (curry f) - (lambda (x) - (lambda (y) - (f x y)))) - - -(define-stream (stream-ordered-diff xstrm ystrm) - (stream-match xstrm (() '()) ((x . xs) - (stream-match ystrm (() xstrm) ((y . ys) - (cond ((< x y) (stream-cons x (stream-ordered-diff xs ystrm))) - ((> x y) (stream-ordered-diff xstrm ys)) - (else (stream-ordered-diff xs ys)))))))) +(define base (stream-from 2)) -- cgit