総当たりのアルゴリズムについて教えてください。

これで大丈夫なのかな…と

Perl 5

#!/usr/local/bin/perl
use strict;
use warnings;
our $number = 50;
our $test_flag = 0;

reflex('', 1, $number) if $test_flag;
for(my $rest = 1; $rest <= $number; $rest++){
	reflex('', 1, $rest);
}
sub reflex{
	my($computed, $start, $rest) = @_;
	if($rest == 1){
		for(my $i = $start; $i <= $number; $i++){
			print "$computed$i\n";
		}
		return;
	}else{
		$rest--;
		my $end = $number - $rest;
		for(my $i = $start; $i <= $end; $i++){
			reflex("$computed$i,", $i + 1, $rest);
		}
	}
}

出力例(部分)
2,7,20,37
2,7,20,38
2,7,20,39
2,7,20,40

c言語。スタックがそれなりに要求されることに注意してください。あととても行儀悪い書き方してます。コンパイラによっては通らないかも。

#include <stdio.h>
#define number 50
#define strings_stack 1500 /* だいたい(桁数+1) * number */
#define test_flag 0

void reflex(char *computed, int start, int rest){
	if(rest == 1){
		int i;
		for(i = start; i <= number; i++){
			printf("%s%d\n", computed, i);
		}
		return;
	}else{
		char computed_stack[strings_stack];
		int end;
		int i;
		rest--;
		end = number - rest;
		for(i = start; i <= end; i++){
			sprintf(computed_stack, "%s%d,", computed, i);
			reflex(computed_stack, i + 1, rest);
		}
	}
}

void main(void){
	int rest;
	char temp[strings_stack];
	if(test_flag == 1){
		reflex(temp, 1, number);
		return;
	}
	for(rest = 1; rest <= number; rest++){
		reflex(temp, 1, rest);
	}
}

コンパイル例　LSI C-86 Ver.3.30 試食版にて
lcc conbi.c -k'-s f000'

出力例(部分)
9,21,41,49
9,21,41,50
9,21,42,43
9,21,42,44