my$w={0=>1,1=>1,2=>2,3=>3,4=>4,5=>5,10=> 10,24=>24,37=>37,39=>39,41=>41,48=>48,60 =>60 ,63=> 63, 70=> 70,75 =>75 ,80=>80 ,83=> 83, 84=>84,87=>87, 100=> 100, 385=>385,405=>405 ,460=> 460 ,500=>500,1440=> 1440}; my@a =sort{$a<=>$b}keys %{$w}; for( 1..9){foreach my$c (keys %{$w} ){foreach my $v(@a) {my $n =$c+ $v;if(!exists$w-> {$n}) {$w ->{$n}=$w->{$c}. "+".$v ;}}} }my@r=sort{$a<=> $b}keys %{$w };my$h=pop@r; for my$i (0.. $h){if(exists $w->{$ i}){ print"$ i->". $w-> {$i}."\n" ;}### else{ print"!$i \n";} }### # ########## ##### #### # ############ ##### #### # ############## ##### #### # ################ ##### #### ################### ##### #### ############## ##### #### ## ## ######################################## ##### # ########### ############## ##### ########################################