map {say $_,2*$_,3*$_} grep {join("",sort split("",$_.2*$_.3*$_)) eq '123456789'} 123 .. 329 ;
常见问题
相关文章
猜你喜欢
- blast结果的m7格式转换为m8格式 2015-12-14
- Perl6 Bracket Match 2015-12-14
- 根据一个ID列表文件来从一个fasta文件里面挑取符合要求的序列 2015-12-14
- 通过Code2HTML将源代码文本转换成HTML 2015-12-14
- 文本生成表格 2015-12-14
- magic square（幻方、宫格）解法实现（全） 2015-12-14
- perl实现端口扫描 2015-12-14
- kickstart file generate tool use cgi 2015-12-14
- Perl 之 DBI 执行 SQL 查询并读取结果 2015-12-14
- Perl 使用 Win32::Process 创建进程 2015-12-14
