Changeset 6954 for lang/perl/Games-Go

Show
Ignore:
Timestamp:
02/20/08 02:34:40 (6 years ago)
Author:
junichiro
Message:

lang/perl/Games-Go: Add hit test(t/01.hit.t)

Location:
lang/perl/Games-Go/trunk
Files:
1 added
3 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Games-Go/trunk/bin/demo_play.pl

    r3798 r6954  
    33use strict; 
    44use warnings; 
     5use FindBin; 
     6use lib "$FindBin::Bin/../lib"; 
    57use Games::Go::Play; 
    68 
     
    911$go->hit([3,3]); 
    1012$go->hit([3,4]); 
    11 $go->show; 
     13print $go->show; 
    1214 
    1315exit; 
  • lang/perl/Games-Go/trunk/bin/start_go.pl

    r6892 r6954  
    3232    return; 
    3333} 
    34 $go->show; 
     34print $go->show; 
    3535my $play = run_loop( $go, $term ); 
    3636 
     
    4040        if ( $in =~ m!^\s*(\d{1,2})\s*\,\s*(\d{1,2})\s*$! ) { 
    4141            if ( $go->hit( [ $1, $2 ] ) ) { 
    42                 $go->show; 
     42                print $go->show; 
    4343            } 
    4444            else { 
     
    5757            print "3,4";    # dummy 
    5858            $go->hit( [ 3, 4 ] );    # dummy 
    59             $go->show; 
     59            print $go->show; 
    6060        } 
    6161        elsif ( $in eq 'p' ) { 
     
    6868        } 
    6969        elsif ( $in eq 'g' ) { 
    70             $go->show; 
     70            print $go->show; 
    7171        } 
    7272        elsif ( $in eq 'quit' ) { 
  • lang/perl/Games-Go/trunk/lib/Games/Go/Play.pm

    r6892 r6954  
    6464sub show { 
    6565    my ($self) = @_; 
     66    my $board = "    "; 
    6667    my $symbol = { 
    6768        $BLACK => ' *', 
     
    7071        $OUT   => '  ', 
    7172    }; 
    72     print "    "; 
     73#    print "    "; 
    7374    for ( my $x = 1 ; $x <= $self->{'size'} ; $x++ ) { 
    74         printf( "% 2s", $x ); 
    75     } 
    76     print "\n"; 
     75#        printf( "% 2s", $x ); 
     76        $board .= sprintf( "% 2s", $x ); 
     77    } 
     78#    print "\n"; 
     79    $board .= "\n"; 
    7780    my $i = 0; 
    7881    foreach my $x ( @{ $self->{'board'} } ) { 
    79         printf( "% 2s", $i ) if ($i); 
     82#        printf( "% 2s", $i ) if ($i); 
     83        $board .= sprintf( "% 2s", $i ) if ($i); 
    8084        foreach ( @{$x} ) { 
    81             print $symbol->{$_}; 
     85#            print $symbol->{$_}; 
     86            $board .= $symbol->{$_}; 
    8287        } 
    83         print "\n"; 
     88#        print "\n"; 
     89        $board .= "\n"; 
    8490        $i++; 
    8591    } 
     92    return $board; 
    8693} 
    8794