Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^3: tr operator in eval -- updated

by AnomalousMonk (Bishop)
on Sep 27, 2020 at 06:31 UTC ( #11122259=note: print w/replies, xml ) Need Help??


in reply to Re^2: tr operator in eval -- updated
in thread tr operator in eval -- updated

Those 'set' operations ...

Please note that the term "set" is used very loosely in this post. :)

... a suit like "AKQxxx" is valid but one like "AAKxxx" is not. (There is only one Ace of spades ....)

This seems like a two-phase problem. Once you verify that a string is in a standard format with, say, no character occuring twice, it may be very easy to count characters unambiguously.

Within reasonable limits, a single regex could be very handy for verifying that a string:

  • has min to max characters from a given set of characters;
  • that the characters in the string are only from the set;
  • that each character from the set occurs only once in the string; and
  • that the characters in the string are in a required order.

It may be enough just to verify that no character occurs more than once in a string. For that,
    length $string == uniq split '', $string
or
    $string !~ m{ (.) (?= .*? \1) }xms
does the trick.

And there are many other conceivable approaches, all depending on your precise requirements.

Update: Added another simple no-repeat test.


Give a man a fish:  <%-{-{-{-<

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11122259]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (3)
As of 2021-06-15 22:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)












    Results (73 votes). Check out past polls.

    Notices?