Re: [請益] 沒有想像中簡單的小問題

看板Programming作者 (pziyout)時間15年前 (2009/04/02 15:35), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串27/34 (看更多)
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
文章代碼(AID): #19r6gcEC (Programming)
討論串 (同標題文章)
文章代碼(AID): #19r6gcEC (Programming)