Implementation of biological random mutation with Perl
#!/usr/bin/perl -w use strict; use warnings; #sequence for a better recognition my $DNA="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA \ n";...2912 days ago
Genetic Algorithms demonstration with word DNA in Perl
...# do nothing if the entry is not matched in the DNA, or vice versa next unless $words =~ /$entry/; # we have a match! (it may be a substring, that's OK) # increment t...2382 days ago
2085 days ago
Raku script to find palindrome in genomes !
...th { for 0..^$dna.chars - $length -> $pos { my $substring = $dna.substr($pos, $length); if is-palindrome($substring) { say "Pali...435 days ago
Raku script to find repeats in sequences !
...for ^($sequence.chars - $min-repeat-length + 1) -> $i { my $substring = $sequence.substr($i, $min-repeat-length); if $sequence.contains($substring) > 1 && $substring !~~ any(@r...105 days ago
Python script to find repeats in the DNA sequence !
...for i in range(len(sequence) - min_repeat_length + 1): substring = sequence[i:i+min_repeat_length] if sequence.count(substring) > 1 and substring not in rep...105 days ago
Raku script to find microsatellites in DNA fragments !
...rs - $repeat-length * $min-repeat-count + 1) -> $i { my $substring = $sequence.substr($i, $repeat-length); if $sequence.contains($substring x $min-repeat-count) {...105 days ago