;;;; 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
;;;;
(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)))
(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)))
+