Select Code to Download

sub tail {
...
        else { return $s->[1] }
}

sub upto {
...
        node( $m, promise { upto($m+1, $n) } );
}

sub promise (&) { $_[0] }

sub node {
...
        return [$head, $tail];
}

'Can't call method "promise" on an undefined value.'

Odd number of elements in anonymous hash at stream.pl line 19.
Use of uninitialized value in anonymous hash ({}) at stream.pl line 19
+.

        node( $m, promise ( upto($m+1, $n) ) );