История изменений

Исправление soomrack, 24.01.17 19:07 (текущая версия) :

Хотя нет, я не понял что тебе нужно.

Может быть это?

my @arr;
{
    my ($first, $last) = (0, $c - 1);
    for(; $last < $m; $first += $c, $last += $c) {
	push @arr, [$first, $last];
    }
    push(@arr, [$first, $m - 1])
	if $first < $m;
}
print Dumper(\@arr);

Исходная версия soomrack, 24.01.17 18:58:

Хотя нет, я не понял что тебе нужно.

Может быть это?

my @arr;
{
    my ($first, $last) = (0, $c - 1);
    for(; $last < $m; $first += $c, $last += $c) {
	push @arr, [$first, $last];
    }
    push(@arr, [$first, $m - 1])
	if $first < ($m - 1);
}
print Dumper(\@arr);