Dear all,
I am currently trying to shuffle the codons of a DNA sequence. The sequence needs to be split in groups of 3 characters and those groups need to be shuffled. So far I was able to split the sequence in groups of 3. However, I do not succeed at shuffling them randomly. I am uncapable of installing the list utils... I do not seem to find a good tutorial for macOS.... And I am unable to correctly introduce the Fisher Yates algorithm into my source code... Another noob has entered the monastery... My code so far :
print "enter sequence and signal end with enter followed by ctrl d\n" +; $sequence = <STDIN>; chomp $sequence; print "sequence inserted : $sequence\n"; @trips = unpack("a3" x (length($sequence)-2), $sequence); @trips = join(" ", @trips);
so I am looking to shuffle @trips and then store it into @shuftrips for example.
Kind regards,
Wouter
In reply to Shuffling CODONS by WouterVG
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |