// F# [<EntryPoint>] let main argv = let generateTable n m = Array2D.init n m (fun i j -> (i+1) * (j+1)) let printMatrix (matrix:int[,]) = printf " " for i = 0 to (Array2D.length1 matrix) - 1 do printf "%4d " (i+1) printf "\n" printf " " for i = 0 to (Array2D.length1 matrix) - 1 do printf "" printf "\n" for j = 0 to (Array2D.length2 matrix) - 1 do printf "%2d |" (j+1) for i = 0 to (Array2D.length1 matrix) - 1 do printf "%4d " matrix.[i, j] printf "\n" printf "\n" let inputArray = generateTable 10 10 printMatrix inputArray System.Console.ReadKey true |> ignore 0
[<EntryPoint>]
let main argv =
let generateTable n m =
Array2D.init n m (fun i j -> (i+1) * (j+1))
let printMatrix (matrix:int[,]) =
printf " "
for i = 0 to (Array2D.length1 matrix) - 1 do
printf "%4d " (i+1)
printf "\n"
printf " "
for i = 0 to (Array2D.length1 matrix) - 1 do
printf ""
printf "\n"
for j = 0 to (Array2D.length2 matrix) - 1 do
printf "%2d |" (j+1)
for i = 0 to (Array2D.length1 matrix) - 1 do
printf "%4d " matrix.[i, j]
printf "\n"
printf "\n"
let inputArray = generateTable 10 10
printMatrix inputArray
System.Console.ReadKey true |> ignore
0