Re: for loops

Here is my solution:

use strict;
use warnings;
my $string = "CTCCGGATCTAT";
my $sets = length($string)/3;                # we want to know how man
+y sets of 3 there are
my $unpacker = 'A3' x $sets;                 # create our unpack templ
+ate
my @dna = unpack($unpacker, $string);        # create the array of set
+s
my $counter = 0;                             # initialize the counter

for my $set (@dna) {                         # for each $set in @dna d
+o...
  my $check = substr($set, 2, 1);            # get the 3rd char of the
+ $set
  ++$counter if ($check =~ /[GC]/i);         # increment the counter, 
+ignore case
}
print "$counter/$sets was either C or G.\n"; # print results
[download]

Comment on Re: for loops Download Code

Replies are listed 'Best First'.
Re^2: for loops by Aristotle (Chancellor) on Dec 16, 2002 at 20:30 UTC
Why so complicated? `use strict; use warnings; my $string = "CTCCGGATCTAT"; my $counter = 0; $counter++ while $string =~ /..[GC]/gi; print "Found $counter occurences$/";` [download] Oops, duh. I even tested. `%-/` `use strict; use warnings; my $string = "CTCCGGATCTAT"; my %flag = (C => 1, G => 1, A => 0, T => 0); my $counter = 0; $counter += $flag{$1} while $string =~ /..(.)/g; print "Found $counter occurences$/";` [download] Makeshifts last the longest.	[reply] [d/l] [select]
Re^3: for loops by Aristotle (Chancellor) on Dec 17, 2002 at 00:05 UTC
Ugh, had to read BrowserUk's approach twice to see what was going on. Mine isn't as simple as it started out either - raaa, so obvious in hindsight: `my $count = grep /[GC]/, $dna =~ /..(.)/g;` There. It slices, it dices, it counts DNA bases. (Or is that RNA? Anyway.) Makeshifts last the longest.	[reply] [d/l]
Re: Re^3: for loops by BrowserUk (Patriarch) on Dec 17, 2002 at 00:47 UTC
Much better than mine, and any of the others to my way of thinking, Clean, neat and obvious (to read). Should have been obvious to write too, but it wasn't. Examine what is said, not who speaks.	[reply]
Re: Re^2: for loops by BrowserUk (Patriarch) on Dec 16, 2002 at 22:08 UTC
Why so complicated? ;) `my $count=0; $count += substr($dna, $_, 1) =~ /[CG]/ for map 3 * $_, 1 .. length($d +na)/3; print $count;` [download] Examine what is said, not who speaks.	[reply] [d/l]
Re^3: for loops by Mr. Muskrat (Canon) on Dec 16, 2002 at 21:58 UTC
Why so complicated? TIMTOWTDI The comments shed light on how it works It worked the first time. q-: Why not?	[reply]