Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Regexp Creation

by toolic (Bishop)
on Jan 25, 2008 at 19:09 UTC ( #664339=note: print w/replies, xml ) Need Help??


in reply to Regexp Creation

I do not use a regex, and I am not sure if this will satisfy all your rules, but this may be something to start with:
#!/usr/bin/env perl use warnings; use strict; my $num_good = 2; my $num_bad = 1; my $try; my $target; $target = 1122; #$try = 1232; # good $try = 2211; # bad my @digits_targ = split //, $target; my @digits_try = split //, $try; my $cnt_right = 0; my $cnt_wrong = 0; for my $i (0 .. $#digits_targ) { if ($digits_targ[$i] == $digits_try[$i]) { $cnt_right++; } else { $cnt_wrong++; } } #print "cnt_right=$cnt_right\n"; #print "cnt_wrong=$cnt_wrong\n"; if (($cnt_right == $num_good) and ($cnt_wrong >= $num_bad)) { print "good\n"; } else { print "bad\n"; }

Update: I like jettero's use of length and substr better than my use of split.

Replies are listed 'Best First'.
Re^2: Regexp Creation
by artist (Parson) on Jan 25, 2008 at 19:56 UTC
    Your logic has slight problem at
    $cnt_wrong >= $num_bad
    According to your code 9922 turns out to be 'good' but it should be 'bad'.
    --Artist

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2022-12-05 19:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?