blob: de4311855b98a1dbfe300d218bf31c116d6f8813 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/env perl
use strict;
use warnings;
use 5.016;
chomp(my ($small_len, $large_len) = split ' ', scalar <>);
chomp(my @probabilities = split ' ', scalar <>);
say join ' ', map { calculate_probability($small_len, $large_len, $_) }
@probabilities;
sub calculate_probability {
my ($small_len, $large_len, $gc) = @_;
my $single_char_chance = (($gc / 2) ** 2) * 2 + (((1 - $gc) / 2) ** 2) * 2;
my $substring_chance = $single_char_chance ** $small_len;
return $substring_chance * ($large_len - $small_len + 1);
}
|