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