Re: [請益] 沒有想像中簡單的小問題
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
討論串 (同標題文章)
完整討論串 (本文為第 27 之 34 篇):
請益
7
15