challenge-090/jo-37/perl/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#!/usr/bin/perl

use Test2::V0;

# Count nucleotides and generate complement
sub complement_dna {
	local $_ = shift;

	# Create the complement (providing the count) and return this as
	# the final return value.
	(y/TAGC/ATCG/, $_);
}


is [complement_dna(
		'GTAAACCCCTTTTCATTTAGACAGATCGACTCCTTATCCATTCTCAGAGATGTGTTGCTGGTCGCCG')],
	[67, 'CATTTGGGGAAAAGTAAATCTGTCTAGCTGAGGAATAGGTAAGAGTCTCTACACAACGACCAGCGGC'],
	'count and complement';
	
is complement_dna(
		'GTAAACCCCTTTTCATTTAGACAGATCGACTCCTTATCCATTCTCAGAGATGTGTTGCTGGTCGCCG'),
	'CATTTGGGGAAAAGTAAATCTGTCTAGCTGAGGAATAGGTAAGAGTCTCTACACAACGACCAGCGGC',
	'complement only';


done_testing;