■もっといいアルゴリズムないかなあ

@oo[2, 5, 8, 11] = (' ', ' ', ' ', '　');
$xx[5] = ' ';
for($s=4; $s < 201; $s++){
	for($i = 2; $i <= ($s+1) / 2; $i++){
		next if $i == 3;
		$j = $s - $i;
		&amp;test_base($i, $j);
		&amp;test_base($j, $i) if $i <=> $j;
	}
	print "$s\[$oo[$s]]\n" if $oo[$s] ne '';
	$min = length $oo[$s] || 999;
	if($ox[$s] ne '' and length $ox[$s] < $min){
		print "$s\[$ox[$s]>\n";
		$min = length $ox[$s];
	}if($xo[$s] ne '' and length $xo[$s] < $min){
		print "$s<$ox[$s]]\n";
		$min = length $xo[$s];
	}if($xx[$s] ne '' and length $xx[$s] < $min){
		print "$s<$xx[$s]>\n";
	}
}
sub test_base{
	my ($i, $j);
	($i, $j) = @_;
	if($oo[$i] ne ''){
		&amp;test($oo[$i], $oo[$j], \$oo[$s]);
		&amp;test($oo[$i], $xo[$j], \$oo[$s]);
		&amp;test($oo[$i], $ox[$j], \$ox[$s]);
		&amp;test($oo[$i], $xx[$j], \$ox[$s]);
	}if($ox[$i] ne ''){
		&amp;test($ox[$i], $oo[$j], \$oo[$s]);
		&amp;test($ox[$i], $ox[$j], \$ox[$s]);
	}if($xo[$i] ne ''){
		&amp;test($xo[$i], $oo[$j], \$xo[$s]);
		&amp;test($xo[$i], $xo[$j], \$xo[$s]);
		&amp;test($xo[$i], $ox[$j], \$xx[$s]);
		&amp;test($xo[$i], $xx[$j], \$xx[$s]);
	}if($xx[$i] ne ''){
		&amp;test($xx[$i], $oo[$j], \$xo[$s]);
		&amp;test($xx[$i], $ox[$j], \$xx[$s]);
	}
}

sub test{
	return if $_[1] eq '';
	my($a, $b, $c, $tmp);
	($a, $b, $c) = @_;
	$tmp = "$a$b";
	${$c} = $tmp if ${$c} eq '' or (length $tmp) < (length ${$c});
	return;
}

Permalink | 記事への反応(2) | 23:03

ツイートシェア