作者pziyout (pziyout)
看板Programming
标题Re: [请益] 没有想像中简单的小问题
时间Thu Apr 2 15:35:01 2009
perl 版本:
diamond 档 :
$c = $ARGV[0]-1 ;
print " "x$_,map((0..9)[(3+$_)%10],0..2*($c-$_)),"\n"for map(abs(),-$c..$c);
diamond 3
3
345
34567
345
3
diamond 5
3
345
34567
3456789
345678901
3456789
34567
345
3
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.25.24