Perl 菜鸟解决"易语言难题” 2015/12/14 16533 map {say $_,2*$_,3*$_} grep {join("",sort split("",$_.2*$_.3*$_)) eq '123456789'} 123 .. 329 ;
