map {say $_,2*$_,3*$_} grep {join("",sort split("",$_.2*$_.3*$_)) eq '123456789'} 123 .. 329 ;
常见问题
相关文章
猜你喜欢
- Recursive Find File In Directory 2015-12-14
- perl 多线程，实时监控线程数，支持max thread 2015-12-14
- FizzBuzzWhizz 2015-12-14
- 防止网站被爬虫爬取的几种解决办法 2015-12-14
- 遍历当前目录的所有文件 2015-12-14
- 把二进制翻译成中文/英文 2015-12-14
- 顺序查找 2015-12-14
- Perl批量编译GCC源代码 2015-12-14
- Perl 列出所有 DBI 数据源 2015-12-14
- Perl 的 Win32::Spawn 使用方法 2015-12-14
