Ivan Dilber
Sir Write-a-Lot
Datum učlanjenja: 18.10.2005
Lokacija: Bgd
Poruke: 5.320
Hvala: 104
2.344 "Hvala" u 583 poruka
|
Mislim da nije dobar primer, ja dobijem:
MVHLTLI
MR AMALRII
PHP kôd:
$codons = array( 'AAA' => 'K', 'AAC' => 'N', 'AAG' => 'K', 'AAT' => 'N', 'ACA' => 'T', 'ACC' => 'T', 'ACG' => 'T', 'ACT' => 'T', 'AGA' => 'R', 'AGC' => 'S', 'AGG' => 'R', 'AGT' => 'S', 'ATA' => 'I', 'ATC' => 'I', 'ATG' => 'M', 'ATT' => 'I', 'CAA' => 'Q', 'CAC' => 'H', 'CAG' => 'Q', 'CAT' => 'H', 'CCA' => 'P', 'CCC' => 'P', 'CCG' => 'P', 'CCT' => 'P', 'CGA' => 'R', 'CGC' => 'R', 'CGG' => 'R', 'CGT' => 'R', 'CTA' => 'L', 'CTC' => 'L', 'CTG' => 'L', 'CTT' => 'L', 'GAA' => 'E', 'GAC' => 'D', 'GAG' => 'E', 'GAT' => 'D', 'GCA' => 'A', 'GCC' => 'A', 'GCG' => 'A', 'GCT' => 'A', 'GGA' => 'G', 'GGC' => 'G', 'GGG' => 'G', 'GGT' => 'G', 'GTA' => 'V', 'GTC' => 'V', 'GTG' => 'V', 'GTT' => 'V', 'TAA' => 'X', 'TAC' => 'Y', 'TAG' => 'X', 'TAT' => 'Y', 'TCA' => 'S', 'TCC' => 'S', 'TCG' => 'S', 'TCT' => 'S', 'TGA' => 'X', 'TGC' => 'C', 'TGG' => 'W', 'TGT' => 'C', 'TTA' => 'L', 'TTC' => 'F', 'TTG' => 'L', 'TTT' => 'F', );
$a = 'ACATGGTGCACCTGACTCTCATTTGAGATATAAAAAAACCATGAGAGCGATGGCGCTACGCATAATATAAAAA';
echo "DNA: $a\n\n";
solve($a, $codons);
function solve($sequence, $map) {
preg_match_all('/ATG((?:[A-Z]{3})+?)(?:TAA|TAG|TGA|$)/', $sequence, $match);
foreach($match[1] as $seq) { echo 'M';
foreach(str_split($seq,3) as $triplet) echo isset($map[$triplet])? $map[$triplet] : "(Greska za $triplet)"; echo "\n"; } }
moglo je i sa preg_replace_callback() jos elegantnije
__________________
Leadership is the art of getting people to want to do what you know must be done.
|