7 lines
204 B
Text
7 lines
204 B
Text
|
link matrix
|
||
|
|
procedure main(argv)
|
||
|
|
if not (integer(argv[1]) > 0) then stop("Argument must be a positive integer.")
|
||
|
|
matrix1 := identity_matrix(argv[1], argv[1])
|
||
|
|
write_matrix(&output,matrix1)
|
||
|
|
end
|