sub printgame()

in pachi_py/pachi/joseki/sgfvar2gtp.pl [8:32]

• 22 lines of code
• 8 McCabe index (conditional complexity)

sub printgame
{
	my ($sgf) = @_;
	my $pt = $sgf->getAddress();

	my @moves;
	do {
		my ($b, $w) = ($sgf->property('B'), $sgf->property('W'));
		if ($b) { push @moves, ['b', $_] foreach @$b; }
		if ($w) { push @moves, ['w', $_] foreach @$w; }
	} while ($sgf->prev());

	print "boardsize 19\nclear_board\n";
	for my $move (reverse @moves) {
		my ($sx, $sy) = @{$move->[1]};
		my @abcd = split(//, "abcdefghjklmnopqrstuvwxyz");
		my $x = $sy + 1; my $y = $abcd[18 - $sx];
		if ("$y$x" eq "z20") {
			$y = "pass"; $x = "";
		}
		print "play ".$move->[0]." $y$x\n";
	}

	$sgf->goto($pt);
}