Select Code to Download

use strict;
use warnings;
...
      }
    ];
}

% perl sieve.pl 97
509
...
Deep recursion on subroutine "Stream::tail" at Stream.pm line 90.
Deep recursion on subroutine "Stream::tail" at Stream.pm line 90.
521

  node(head($s),
       promise { filter($f, tail($s)) });

  node( head( $s ),
        promise {
...
                  filter( $f, $s->[ 1 ] )
                }
      );

--- Stream.pm.orig    Tue May  3 16:41:37 2005
+++ Stream.pm    Mon Aug 29 20:00:14 2005
...
 
 sub is_promise {
   UNIVERSAL::isa($_[0], 'CODE');

  return
    Stream::node (
...
                     prime_filter( &Stream::filter( $not_multiple_of_p
+, $t ) );
                   }
                 );