[Groningen-pm] Pseudo file example

[Clemens Tolboom]

Ik vind deze toch ook erg mooi ... uit HOP blz 121

sub upto {
  my ($m, $n) = @_;
  return sub {
    return $m <= $n ? $m++ : undef;
  };
}
my $it= upto( 3,5);

while( defined( my $val = $it->())){
  print "$val\n";
}
er kan nog wat syntactic sugar overheen, maar ik vind het een beauty.

Groet,
Clemens