清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

map {say $_,2*$_,3*$_} grep {join("",sort split("",$_.2*$_.3*$_)) eq '123456789'} 123 .. 329 ;