#!/usr/bin/perl

use strict;
use warnings;

sub restartable_iter {
  my ($start, $end) = @_;
  sub {
    $start = shift if @_;
    return if $start > $end;
    $start++;
  }
}

sub choose_m_of_n_iter {
  my ($m, $n) = @_;
  my @iter;
  for my $i (0..($m-1)) {
    push @iter, restartable_iter($i, $n-$m+$i);
  }
  join_iter(@iter);
}

sub join_iter {
  my $it = shift;
  while ( my $tmp = shift ) {
    $it = append_iter( $it, $tmp );
  }
  $it;
}

sub append_iter {
  my ($it1, $it2) = @_;
  my (@ret1, @ret2) = $it1->();
  sub {
    return @ret1, @ret2 if @ret2 = $it2->();
    return unless @ret1 = $it1->();
    return @ret1, $it2->($ret1[-1]+1);
  }
}

my $iter = choose_m_of_n_iter(4, 10);
while (my @arr = $iter->()) {
  print "@arr\n";
}

##</code><code>##

sub choose_n {
  my $n = shift;
  my @set = @_;
  my $iter = choose_m_of_n_iter($n, scalar(@set));
  sub {
    @set[$iter->()];
  }
}