矩陣問題

codeternity

各位大俠：
對(duì)于一個(gè)矩陣，如
1 2 3 4 5
2 0 1 2 3
3 1 0 2 3
4 2 2 0 1
5 3 3 1 0
怎么刪除對(duì)角線及對(duì)角線以上的數(shù)據(jù)呢，即

2
3 1
4 2 2
5 3 3 1

rubyish

如:

1. my $i = -1;
   
2. my ( undef, @A ) = map [ (split)[ 0 .. $i++ ] ], <DATA>;
   
3. say "@$_" for @A;
   
4. 
   
5. __DATA__
   
6. 1 2 3 4 5
   
7. 2 0 1 2 3
   
8. 3 1 0 2 3
   
9. 4 2 2 0 1
   
10. 5 3 3 1 0

復(fù)制代碼

codeternity

回復(fù) 2# rubyish
這個(gè)必須贊一個(gè)，不過是不是在
say "@$_" for @A
這句的時(shí)候，加上"\n"即 "@$_\n"會(huì)變成結(jié)果那樣的。
感謝大俠