RosettaCodeData/Task/Identity-matrix/PowerShell/identity-matrix-1.psh

7 lines
163 B
Plaintext

function identity($n) {
0..($n-1) | foreach{$row = @(0) * $n; $row[$_] = 1; ,$row}
}
function show($a) { $a | foreach{ "$_"} }
$array = identity 4
show $array