作者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