X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=pipes-example.lisp;h=6e7b0c0e993c26290a8d85bc513ca07ab9183c19;hb=23c1653ae7f2dca5dec64f128d4ead2089f688bc;hp=2cf07f6a9f5bda662e1a0ec58ab79c002f325a53;hpb=eaad3792a9bf28ec7bfe579f9f0955d213e014f0;p=pipes.git

diff --git a/pipes-example.lisp b/pipes-example.lisp
index 2cf07f6..6e7b0c0 100644
--- a/pipes-example.lisp
+++ b/pipes-example.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: pipes-example.lisp,v 1.2 2002/11/07 20:26:13 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of pipes, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -84,8 +84,8 @@
 
 
 (defun ln2-summands (n)
-  (pipe-map (/ 1d0 n)
-	    (pipe-map #'- (ln2-summands (1+ n)))))
+  (make-pipe (/ 1d0 n)
+	     (pipe-map #'- (ln2-summands (1+ n)))))
 
 (defun ln2-stream ()
   (partial-sums (ln2-summands 1)))
@@ -102,10 +102,18 @@
 
 (defun run-examples ()
   (let ((*print-length* 20))
-    (format t "~&pi-stream: ~S"
+    (format t "~&pi-stream:~&  ~S"
 	    (pipe-values (pi-stream) 10))
-    (format t "~&euler-transform: ~S"
+    (format t "~& pi-stream euler-transform:~&  ~S"
 	    (pipe-values (euler-transform (pi-stream)) 10))
-    (format t "~&accelerate-sequence: ~S"
+    (format t "~& pi-stream accelerate-sequence:~&  ~S"
+	    (pipe-values
+	     (accelerated-sequence #'euler-transform (pi-stream)) 10)))
+      (format t "~&ln2-stream:~&  ~S"
+	    (pipe-values (ln2-stream) 10))
+    (format t "~& ln2-stream euler-transform:~&  ~S"
+	    (pipe-values (euler-transform (ln2-stream)) 10))
+    (format t "~& ln2-stream accelerate-sequence:~&  ~S"
 	    (pipe-values
-	     (accelerated-sequence #'euler-transform (pi-stream)) 10))))
+	     (accelerated-sequence #'euler-transform (ln2-stream)) 10)))
+