We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 5bddda4 commit 9e685d9Copy full SHA for 9e685d9
lu.ijs
@@ -18,11 +18,5 @@ for_i. i. d do. NB. for each ring
18
y =. col (<remvec;i)} y NB. store the current column into the array as L; leave U unchanged
19
y =. (((<remvec;remvec) { y) - col */ (<i;remvec) { y) (<remvec;remvec)} y NB. subtract (current column */ (}.first row)) from lower-right block
20
end.
21
-NB. convert ipiv to selection vector
22
-z=. i.#pv
23
-for_i. i.-#pv do.
24
- t=. i{z
25
- z=. t (i{pv)} ((i{pv){z) i}z
26
-end.
27
-z;y
28
-)
+pv;y
+)
manifest.ijs
@@ -6,7 +6,7 @@ DESCRIPTION=: 0 : 0
6
J LU code, called from 128!:10
7
)
8
9
-VERSION=: '1.0.4'
+VERSION=: '1.0.5'
10
11
FILES=: 0 : 0
12
lu.ijs
0 commit comments