07-30-2020, 09:12 AM
Demonstrating Perl with Tic-Tac-Toe, Part 4
<div><p>This is the final article to the series demonstrating Perl with Tic-Tac-Toe. This article provides a module that can compute better game moves than the previously presented modules. For fun, the modules <em>chip1.pm</em> through <em>chip3.pm</em> can be incrementally moved out of the <em>hal</em> subdirectory in reverse order. With each chip that is removed, the game will become easier to play. The game must be restarted each time a chip is removed.</p>
<p> <span id="more-31476"></span> </p>
<h2>An example Perl program</h2>
<p>Copy and paste the below code into a plain text file and use the same one-liner that was provided in the <a aria-label="undefined (opens in a new tab)" href="https://fedoramagazine.org/demonstrating-perl-with-tic-tac-toe-part-1/" target="_blank" rel="noreferrer noopener">the first article</a> of this series to strip the leading numbers. Name the version without the line numbers <em>chip3.pm</em> and move it into the <em>hal</em> subdirectory. Use the version of the game that was provided in <a aria-label="undefined (opens in a new tab)" href="https://fedoramagazine.org/demonstrating-perl-with-tic-tac-toe-part-2/" target="_blank" rel="noreferrer noopener">the second article</a> so that the below chip will automatically load when placed in the <em>hal</em> subdirectory. Be sure to also include both <em>chip1.pm</em> and <em>chip2.pm</em> from the second <a href="https://fedoramagazine.org/demonstrating-perl-with-tic-tac-toe-part-3/" target="_blank" aria-label="undefined (opens in a new tab)" rel="noreferrer noopener">and third</a> articles, respectively, in the <em>hal</em> subdirectory.</p>
<pre class="wp-block-preformatted">00 # artificial intelligence chip
01 02 package chip3;
03 require chip2;
04 require chip1;
05 06 use strict;
07 use warnings;
08 09 sub moverama {
10 my $game = shift;
11 my @nums = $game =~ /[1-9]/g;
12 my $rama = qr/[1973]/;
13 my %best;
14 15 for (@nums) {
16 my $ra = $_;
17 next unless $ra =~ $rama;
18 $best{$ra} = 0;
19 for (@nums) {
20 my $ma = $_;
21 next unless $ma =~ $rama;
22 if (($ra-$ma)*(10-$ra-$ma)) {
23 $best{$ra} += 1;
24 }
25 }
26 }
27 28 @nums = sort { $best{$b} <=> $best{$a} } keys %best;
29 30 return $nums[0];
31 }
32 33 sub hal_move {
34 my $game = shift;
35 my $mark = shift;
36 my @mark = @{ shift; };
37 my $move;
38 39 $move = chip2::win_move $game, $mark, \@mark;
40 41 if (not defined $move) {
42 $mark = ($mark eq $mark[0]) ? $mark[1] : $mark[0];
43 $move = chip2::win_move $game, $mark, \@mark;
44 }
45 46 if (not defined $move) {
47 $move = moverama $game;
48 }
49 50 if (not defined $move) {
51 $move = chip1::hal_move $game;
52 }
53 54 return $move;
55 }
56 57 sub complain {
58 print 'Just what do you think you\'re doing, ',
59 ((getpwnam($ENV{'USER'}))[6]||$ENV{'USER'}) =~ s! .*!!r, "?\n";
60 }
61 62 sub import {
63 no strict;
64 no warnings;
65 66 my $p = __PACKAGE__;
67 my $c = caller;
68 69 *{ $c . '::hal_move' } = \&{ $p . '::hal_move' };
70 *{ $c . '::complain' } = \&{ $p . '::complain' };
71 72 if (&::MARKS->[0] ne &::HAL9K) {
73 @{ &::MARKS } = reverse @{ &::MARKS };
74 }
75 }
76 77 1;
</pre>
<h2>How it works</h2>
<p>Rather than making a random move or making a move based on probability, this final module to the Perl Tic-Tac-Toe game uses a more <a aria-label="undefined (opens in a new tab)" href="https://en.wikipedia.org/wiki/Deterministic_system" target="_blank" rel="noreferrer noopener">deterministic</a> algorithm to calculate the best move.</p>
<p>The big takeaway from this Perl module is that it is yet another example of how references can be misused or abused, and as a consequence lead to unexpected program behavior. With the addition of this chip, the computer learns to cheat. Can you figure out how it is cheating? Hints:</p>
<ol>
<li>Constants <a aria-label="undefined (opens in a new tab)" href="https://perldoc.perl.org/5.32.0/constant.html#TECHNICAL-NOTES" target="_blank" rel="noreferrer noopener">are implemented as subroutines</a>.</li>
<li>References allow data to be modified out of scope.</li>
</ol>
<h2>Final notes</h2>
<p>Line 12 demonstrates that a regular expression can be <a aria-label="undefined (opens in a new tab)" href="https://perldoc.perl.org/5.8.2/perlretut.html#Compiling-and-saving-regular-expressions" target="_blank" rel="noreferrer noopener">pre-compiled</a> and stored in a scalar for later use. This is useful as performance optimization when you intend to re-use the same regular expression many times over.</p>
<p>Line 59 demonstrates that <a aria-label="undefined (opens in a new tab)" href="https://perldoc.perl.org/5.8.2/functions/getpwnam.html" target="_blank" rel="noreferrer noopener">some system library calls</a> are available directly in Perl’s built-in core functionality. Using the built-in functions alleviates some overhead that would otherwise be required to launch an external program and setup the I/O channels to communicate with it.</p>
<p>Lines 72 and 73 demonstrate the use of <strong>&::</strong> as <a href="https://perldoc.perl.org/perlmod.html#Packages" target="_blank" aria-label="undefined (opens in a new tab)" rel="noreferrer noopener">a shorthand for <strong>&main::</strong></a>.</p>
<p>The full source code for this Perl game can be cloned from the git repository available here: <a href="https://pagure.io/tic-tac-toe.git" target="_blank" aria-label="undefined (opens in a new tab)" rel="noreferrer noopener">https://pagure.io/tic-tac-toe.git</a></p>
</div>
https://www.sickgaming.net/blog/2020/07/...oe-part-4/
<div><p>This is the final article to the series demonstrating Perl with Tic-Tac-Toe. This article provides a module that can compute better game moves than the previously presented modules. For fun, the modules <em>chip1.pm</em> through <em>chip3.pm</em> can be incrementally moved out of the <em>hal</em> subdirectory in reverse order. With each chip that is removed, the game will become easier to play. The game must be restarted each time a chip is removed.</p>
<p> <span id="more-31476"></span> </p>
<h2>An example Perl program</h2>
<p>Copy and paste the below code into a plain text file and use the same one-liner that was provided in the <a aria-label="undefined (opens in a new tab)" href="https://fedoramagazine.org/demonstrating-perl-with-tic-tac-toe-part-1/" target="_blank" rel="noreferrer noopener">the first article</a> of this series to strip the leading numbers. Name the version without the line numbers <em>chip3.pm</em> and move it into the <em>hal</em> subdirectory. Use the version of the game that was provided in <a aria-label="undefined (opens in a new tab)" href="https://fedoramagazine.org/demonstrating-perl-with-tic-tac-toe-part-2/" target="_blank" rel="noreferrer noopener">the second article</a> so that the below chip will automatically load when placed in the <em>hal</em> subdirectory. Be sure to also include both <em>chip1.pm</em> and <em>chip2.pm</em> from the second <a href="https://fedoramagazine.org/demonstrating-perl-with-tic-tac-toe-part-3/" target="_blank" aria-label="undefined (opens in a new tab)" rel="noreferrer noopener">and third</a> articles, respectively, in the <em>hal</em> subdirectory.</p>
<pre class="wp-block-preformatted">00 # artificial intelligence chip
01 02 package chip3;
03 require chip2;
04 require chip1;
05 06 use strict;
07 use warnings;
08 09 sub moverama {
10 my $game = shift;
11 my @nums = $game =~ /[1-9]/g;
12 my $rama = qr/[1973]/;
13 my %best;
14 15 for (@nums) {
16 my $ra = $_;
17 next unless $ra =~ $rama;
18 $best{$ra} = 0;
19 for (@nums) {
20 my $ma = $_;
21 next unless $ma =~ $rama;
22 if (($ra-$ma)*(10-$ra-$ma)) {
23 $best{$ra} += 1;
24 }
25 }
26 }
27 28 @nums = sort { $best{$b} <=> $best{$a} } keys %best;
29 30 return $nums[0];
31 }
32 33 sub hal_move {
34 my $game = shift;
35 my $mark = shift;
36 my @mark = @{ shift; };
37 my $move;
38 39 $move = chip2::win_move $game, $mark, \@mark;
40 41 if (not defined $move) {
42 $mark = ($mark eq $mark[0]) ? $mark[1] : $mark[0];
43 $move = chip2::win_move $game, $mark, \@mark;
44 }
45 46 if (not defined $move) {
47 $move = moverama $game;
48 }
49 50 if (not defined $move) {
51 $move = chip1::hal_move $game;
52 }
53 54 return $move;
55 }
56 57 sub complain {
58 print 'Just what do you think you\'re doing, ',
59 ((getpwnam($ENV{'USER'}))[6]||$ENV{'USER'}) =~ s! .*!!r, "?\n";
60 }
61 62 sub import {
63 no strict;
64 no warnings;
65 66 my $p = __PACKAGE__;
67 my $c = caller;
68 69 *{ $c . '::hal_move' } = \&{ $p . '::hal_move' };
70 *{ $c . '::complain' } = \&{ $p . '::complain' };
71 72 if (&::MARKS->[0] ne &::HAL9K) {
73 @{ &::MARKS } = reverse @{ &::MARKS };
74 }
75 }
76 77 1;
</pre>
<h2>How it works</h2>
<p>Rather than making a random move or making a move based on probability, this final module to the Perl Tic-Tac-Toe game uses a more <a aria-label="undefined (opens in a new tab)" href="https://en.wikipedia.org/wiki/Deterministic_system" target="_blank" rel="noreferrer noopener">deterministic</a> algorithm to calculate the best move.</p>
<p>The big takeaway from this Perl module is that it is yet another example of how references can be misused or abused, and as a consequence lead to unexpected program behavior. With the addition of this chip, the computer learns to cheat. Can you figure out how it is cheating? Hints:</p>
<ol>
<li>Constants <a aria-label="undefined (opens in a new tab)" href="https://perldoc.perl.org/5.32.0/constant.html#TECHNICAL-NOTES" target="_blank" rel="noreferrer noopener">are implemented as subroutines</a>.</li>
<li>References allow data to be modified out of scope.</li>
</ol>
<h2>Final notes</h2>
<p>Line 12 demonstrates that a regular expression can be <a aria-label="undefined (opens in a new tab)" href="https://perldoc.perl.org/5.8.2/perlretut.html#Compiling-and-saving-regular-expressions" target="_blank" rel="noreferrer noopener">pre-compiled</a> and stored in a scalar for later use. This is useful as performance optimization when you intend to re-use the same regular expression many times over.</p>
<p>Line 59 demonstrates that <a aria-label="undefined (opens in a new tab)" href="https://perldoc.perl.org/5.8.2/functions/getpwnam.html" target="_blank" rel="noreferrer noopener">some system library calls</a> are available directly in Perl’s built-in core functionality. Using the built-in functions alleviates some overhead that would otherwise be required to launch an external program and setup the I/O channels to communicate with it.</p>
<p>Lines 72 and 73 demonstrate the use of <strong>&::</strong> as <a href="https://perldoc.perl.org/perlmod.html#Packages" target="_blank" aria-label="undefined (opens in a new tab)" rel="noreferrer noopener">a shorthand for <strong>&main::</strong></a>.</p>
<p>The full source code for this Perl game can be cloned from the git repository available here: <a href="https://pagure.io/tic-tac-toe.git" target="_blank" aria-label="undefined (opens in a new tab)" rel="noreferrer noopener">https://pagure.io/tic-tac-toe.git</a></p>
</div>
https://www.sickgaming.net/blog/2020/07/...oe-part-4/