--- a/julia/dp.jl	Tue Feb 28 12:52:34 2023 +0100
+++ b/julia/dp.jl	Tue Feb 28 13:37:49 2023 +0100
@@ -96,17 +96,24 @@
     c
 end
 
-function recursive_liss(v::AbstractVector{<:Integer}, last=-1000, i=1, l=0)::Int
+function recursive_liss(v::AbstractVector{<:Integer}, last=1, i=1, l=0, prev=zeros(Int, length(v)), L=zeros(Int, length(v)), Lmax=[0])::Int
     if i > length(v)
         return l
     else
-        if v[i] >= last
-            incl = recursive_liss(v, v[i], i+1, l+1)
-            excl = recursive_liss(v, last, i+1, l)
+        if v[i] >= v[last]
+            incl = recursive_liss(v, i, i+1, l+1, prev, L, Lmax)
+            excl = recursive_liss(v, last, i+1, l, prev, L, Lmax)
+            if incl >= excl
+                Lmax[1] = max(Lmax[1], incl)
+            end
+            if incl == Lmax[1]
+                L[l+1] = i
+                prev[i] = last
+            end
             max(incl, excl)
-        else # v[i] < last
-            incl = recursive_liss(v, v[i], i+1, 1)
-            excl = recursive_liss(v, last, i+1, l)
+        else # v[i] < v[last]
+            incl = recursive_liss(v, i, i+1, 1, prev, L, Lmax)
+            excl = recursive_liss(v, last, i+1, l, prev, L, Lmax)
             max(incl, excl)
         end
     end