/usr/share/doc/libmoose-autobox-perl/examples/tic_tac_toe.pl is in libmoose-autobox-perl 0.16-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 | #!/usr/bin/perl
use strict;
use warnings;
use Moose::Autobox;
use Moose::Autobox::Undef;
sub print_board {
my ($b) = @_;
my $count = 0;
$b->map(sub {
print("$_ \t");
print("\n") unless ((++$count) % 3);
});
}
my $board = [ ('.') x 9 ];
print_board($board);
my $choice = [ 1 .. 9 ]->any;
my $player = 'X';
while ($board->any eq '.') {
INPUT: {
print("Player ($player), enter the Position [1-9]: ");
my $in = <>;
unless ($in == $choice) {
print "\n\tPlease enter a value within 1-9\n\n";
redo INPUT;
}
my $idx = $in - 1;
if ($board->[$idx] ne '.') {
print "\n\tElement already entered at $in\n";
redo INPUT;
}
$board->[$idx] = $player;
}
print_board($board);
[
[ 0, 1, 2 ], [ 3, 4, 5 ], [ 6, 7, 8 ],
[ 0, 3, 6 ], [ 1, 4, 7 ], [ 2, 5, 8 ],
[ 0, 4, 8 ], [ 2, 4, 6 ],
]->map(sub {
my $row = $board->slice($_);
if (($row->all eq 'X') || ($row->all eq 'O')) {
print("\n\tPlayer ($player) Wins\n");
exit;
}
});
$player = $player eq 'X' ? 'O' : 'X';
}
# PODNAME: tic_tac_toe.pl
# ABSTRACT: Tic-Tac-Toe
__END__
=pod
=encoding UTF-8
=head1 NAME
tic_tac_toe.pl - Tic-Tac-Toe
=head1 VERSION
version 0.16
=head1 DESCRIPTION
This is a Moose::Autobox port of a perl6 implementation
of the classic Tic-Tac-Toe game.
This uses a modified version of the one Rob Kinyon created
L<http://www.perlmonks.org/index.pl?node_id=451302>.
=head1 ACKNOWLEDGEMENTS
This code was ported from the version in the Pugs examples/
directory. The authors of that were:
:for list
* mkirank L<http://www.perlmonks.org/index.pl?node_id=451261>
* Rob Kinyon L<http://www.perlmonks.org/index.pl?node_id=451302>
* Stevan Little, E<lt>stevan@iinteractive.comE<gt>
* Audrey Tang
=head1 SUPPORT
Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Moose-Autobox>
(or L<bug-Moose-Autobox@rt.cpan.org|mailto:bug-Moose-Autobox@rt.cpan.org>).
There is also a mailing list available for users of this distribution, at
L<http://lists.perl.org/list/moose.html>.
There is also an irc channel available for users of this distribution, at
L<C<#moose> on C<irc.perl.org>|irc://irc.perl.org/#moose>.
=head1 AUTHOR
Stevan Little <stevan.little@iinteractive.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2006 by Infinity Interactive, Inc.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|