#!/usr/local/bin/perl
# 基数の順位をランダムで付ける
#                     Copyright(c) 1999-20xx Yuumi
#                     http://gochagocha.ribbon.to/
#                     gochagocha@ribbon.to
#
#　本プログラムはフリーソフトウェアーです。使用するには以下の使用許諾事項をお守りください
#
#　使用許諾事項
#　１．商用目的に使用してはいけません
#　２．著作権を削除して使用してはいけません
#　３．著作権を削除して２次創作物を作成する、又は２次配布を行ってはいけません

#基数
$MCOUNT = 31;

srand();

&main();

sub main{
	my @tArray;
	my @jArray;

	@tArray = &makeArray( $MCOUNT );
	@jArray = &makeNumber( @tArray );
	&printArray( @jArray );
}

sub makeArray{
	my $di = shift;
	my @ret;

	my $i = 0;

	if( $di < 0 ){	return;	}
	while( $di >= ++$i ){
		push @ret, $i;
	}

	@ret;
}

sub makeNumber{
	my @tlist = @_;
	my @ret;

	my $tcount = scalar( @tlist );

	while( scalar( @tlist )){
		my $num = rand( scalar( @tlist ) );
		push @ret , $tlist[ $num ];
		$tlist[ $num ] = $tlist[ scalar( @tlist ) - 1 ];
		pop @tlist;
	}

	@ret;
}

sub printArray{
	my @plist = @_;

	my $i = 0;
	while( $i < scalar( @plist )){
		print $plist[ $i++ ] . "\n";
	}
}