■

@arrayの配列を２進数表示したかったけれども、エクセルで変換してやった方が早そう。

#!/usr/bin/perl -w

@GEN = (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1); 
@array = (3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3); 

for($kk=0; $kk<=23; $kk++){
	$GEN[$kk]=0;
	for($jj=$kk; $jj<=23; $jj++){
	$GEN[$jj]=0;

		for ($ii=0; $ii<=23; $ii++){
			if($GEN[$ii]==1){
				$array[$ii]=2;
			}
			else {
				$array[$ii]=3;
			}
			
			print "@array\n";
		}
		
		for ($ii=0; $ii<=23; $ii++){
			
			if($GEN[$ii] ==1){
				$array[$ii]=1;
			}
			else {
				$array[$ii]=3;
			}
		
			
			print "@array\n";
		}
		
		for ($ii=0; $ii<=23; $ii++){
			
			if($GEN[$ii]==1){
				$array[$ii]=0;
			}
			else {
				$array[$ii]=3;
			}
		
			
			print "@array\n";
		}
	}

@GEN = (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1); 
}