用perl编程怎样得到有20个字母分别求出他们相邻字母出现得概率？
答案:1 悬赏:70 手机版
解决时间 2021-04-03 03:51
- 提问者网友：呐年旧曙光
- 2021-04-02 19:53
用perl编程怎样得到有20个字母分别求出他们相邻字母出现得概率？
最佳答案
- 五星知识达人网友：躲不过心动
- 2021-04-02 20:45
$str ="ADFGFHERYUTRUFGCVBGHXZAADE";
for (0..length($str)-1){
$alpha{substr($str, $_, 1)} = 1;
}
for $m(keys %alpha)
{
for $n(keys %alpha){
$comb{$m.$n} = 0;
}
}
for (0..length($str)-2)
{
$comb{substr($str, $_, 2)}++;
}
for (keys %comb)
{
print "$_ " . $comb{$_}/(length($str)-1) , "
";
}
for (0..length($str)-1){
$alpha{substr($str, $_, 1)} = 1;
}
for $m(keys %alpha)
{
for $n(keys %alpha){
$comb{$m.$n} = 0;
}
}
for (0..length($str)-2)
{
$comb{substr($str, $_, 2)}++;
}
for (keys %comb)
{
print "$_ " . $comb{$_}/(length($str)-1) , "
";
}
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯