Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Number of bits, length of RegExp

by pfaut (Priest)
on Apr 21, 2003 at 14:36 UTC ( #252010=note: print w/replies, xml ) Need Help??


in reply to Number of bits, length of RegExp

Does it have to be a regex? tr/// provides a simpler solution.

#!/usr/bin/perl -w use strict; while (my $str = <DATA>) { my $odd = $str =~ tr/1// & 1; print $str,"has an ",$odd?"odd":"even"," number of 1's",$/; } __DATA__ 110101010110111010101 100000000000000000001 101010101010101010101 110000000000000000011 110100000000000000000 11

Output:

110101010110111010101 has an odd number of 1's 100000000000000000001 has an even number of 1's 101010101010101010101 has an odd number of 1's 110000000000000000011 has an even number of 1's 110100000000000000000 has an odd number of 1's 11 has an even number of 1's
90% of every Perl application is already written.
dragonchild

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2021-03-04 22:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favorite kind of desktop background is:











    Results (108 votes). Check out past polls.

    Notices?