Re: [閒聊] 剛剛有一篇文章..
※ 引述《dryman (dryman)》之銘言：
: 是一個解排列組合的問題..
: 解完後來看，文章居然不見了XD
: 給定一個hash
: %h=('a'=>3, 'b'=>4, 'c'=>5,);
: 印出他們的排列組合及value相乘值
: ab 12
: ac 15
: bc 20
: 這是我的解法：
: @h=%h;
: for $idx (0..$#h/2){
: $_ != $idx and
: print "$h[$idx*2]$h[$_*2] ", $h[$idx*2+1]*$h[$_*2+1], "\n"
: for $idx..$#h/2;
: }
我的解法其實只是把 for 抓改成前置式而已，並沒有太大差別啦
for ( keys %h ) { push @myarray,$_; }
@myarray = sort @myarray;
for $i ( 0..$#myarray ) {
for $j ( $i+1..$#myarray ) {
( $myarray[$i] ne $myarray[$j] ) ? print "$myarray[$i]$myarray[$j] is ".$h{"$myarray[$i]"}*$h{"$myarray[$j]"}."\n" : next ;
}
}
好想念 vim 的 supertab 跟 hl 阿......
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.223.232.78
推
05/27 21:37, , 1F
05/27 21:37, 1F
→
05/27 21:37, , 2F
05/27 21:37, 2F
→
05/27 21:38, , 3F
05/27 21:38, 3F
→
05/27 21:38, , 4F
05/27 21:38, 4F
→
05/27 21:39, , 5F
05/27 21:39, 5F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
10
113