r8627: add upload script

[pipes.git] / pipes-example.lisp

diff --git a/pipes-example.lisp b/pipes-example.lisp
index 2cf07f6a9f5bda662e1a0ec58ab79c002f325a53..6e7b0c0e993c26290a8d85bc513ca07ab9183c19 100644 (file)
--- 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)))
+