Code: Alles auswählen
#1.
##my ($x1, @model1) = split /\s+/, "AXDA .255 .245 .245 .255";
x1, model1 = "AXDA .255 .245 .245 .255".split()
#2.
##my @lod = map(lg($model1[$_]/$model2[$_]), (0..3));
lod = map(lambda x: [lg($model1[x]/$model2[x] ], range(0,4))
#3
#my $a = "aagcaaatccgcgataaaattgccttggggcgtataaaagg";
#$a =~ tr/acgtACGT/01230123/;
a = "aagcaaatccgcgataaaattgccttggggcgtataaaagg";
a.translate(string.maketrans('acgtACGT', '01230123')
#4.
#my $score = sum(map($lod[$_], split //,$a));
zu 2: Hier bin ich nicht sicher ob es so funktionieren kann, da 1 nicht funktioniert.
zu 3: Das müsste funktionieren.
zu 4: Hier weiss ich nicht wie man es umschreibt.