[rosalind] TRAN (simpler version)

L. Grondin · L. Grondin · commit d282fbbfa768 · 2012-12-06T07:27:40.000+01:00
diff --git a/rosalind/tran-grondilu.pl b/rosalind/tran-grondilu.pl
@@ -8,11 +8,8 @@
     my ($transitions, $transversions);
     for @dna[0].comb Z @dna[1].comb -> $a, $b {
         next unless $a ne $b;
-        if ($a eq 'A'|'G' and $b eq 'G'|'A') or ($a eq 'C'|'T' and $b eq 'C'|'T') {
-            $transitions++
-        } else {
-            $transversions++
-        }
+        if "$a$b" eq any <AG GA CT TC> { $transitions++ }
+	else { $transversions++ }
     }
     say $transitions/$transversions;
 }

Original file line number	Diff line number	Diff line change
`@@ -8,11 +8,8 @@`
`8`	`8`	`my ($transitions, $transversions);`
`9`	`9`	`for @dna[0].comb Z @dna[1].comb -> $a, $b {`
`10`	`10`	`next unless $a ne $b;`
`11`		`- if ($a eq 'A'\|'G' and $b eq 'G'\|'A') or ($a eq 'C'\|'T' and $b eq 'C'\|'T') {`
`12`		`- $transitions++`
`13`		`- } else {`
`14`		`- $transversions++`
`15`		`- }`
	`11`	`+ if "$a$b" eq any <AG GA CT TC> { $transitions++ }`
	`12`	`+ else { $transversions++ }`
`16`	`13`	`}`
`17`	`14`	`say $transitions/$transversions;`
`18`	`15`	`}`