my $newmask = ( $old ^ $word ) =~ tr/\0/\xff/cr;
    $flip and ( $board, $heights ) = flip $board, $heights;
    substr $board, $pos, length $word, $word;

    #say "new mask is $newmask";
    substr $heights, $pos, length $highs,
      ( $highs & $newmask ) =~ tr/0-4/1-5/r | ( $highs & ~$newmask );
    $flip and ( $board, $heights ) = flip $board, $heights;
    my $tiles = join '', @tiles;
    say "word is $word";
    $tiles =~ s/$_// for split //, $word & $newmask;

[download]

let me try... 

    my $newmask = ( $old ^ $word ) =~ tr/\0/\xff/cr;

[download]

$newmask is "\xff" where the old and new words differ, that is a new tile must be used. It is "\0" where no tile is to be placed (using existing board state). 

    $flip and ( $board, $heights ) = flip $board, $heights;
    substr $board, $pos, length $word, $word;

    #say "new mask is $newmask"; # $newmask has unprintable characters
+, use something like Data::Dump that will show them.
    substr $heights, $pos, length $highs,
      ( $highs & $newmask ) =~ tr/0-4/1-5/r | ( $highs & ~$newmask );

[download]

hehehe! GOAL => increment the stack sizes for only the new tiles.

$highs & $newmask produces a string that only has non-null characters where new tiles are to be played. In other words, it isolates the stacks for the new tiles, everywhere else is "\0".
=~ tr/0-4/1-5/r increments the height for each place a new tile is played.
~$newmask inverts $newmask to be "\xff" only where old tiles remain visible.
$highs & ~$newmask produces a string with only the unchanged stack values (and "\0" where the new values are).
Finally, the | puts the old and new stack counts together so they can be replaced in the heights string. 

    $flip and ( $board, $heights ) = flip $board, $heights;
    my $tiles = join '', @tiles;
    say "word is $word";
    $tiles =~ s/$_// for split //, $word & $newmask;

[download]

This removes the tiles that are used for this word from the string of all tiles, soon to be replaced in @tiles.

Hope this helps...

In reply to Re^5: implementing a scrabble-esque game on Termux III by tybalt89
in thread implementing a scrabble-esque game on Termux III by Aldebaran

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.