Advertisement
Guest User

Untitled

a guest
May 1st, 2016
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.31 KB | None | 0 0
  1. open System
  2.  
  3. let n  = Console.ReadLine()
  4. let n1 : int = int n
  5. let mutable a = Array2D.init n1 n1 (fun i j -> Console.Read())
  6.  
  7. for k = 1 to n1 - 1 do
  8.     for j = k to n1 - 1 do
  9.         m <- a.[j, k - 1] / a.[k - 1, k - 1]
  10.         for i = 0 to n1 - 1 do
  11.             a.[j, i] <- a.[j, i] - m * a.[k - 1, i]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement