RosettaCodeData/Task/Longest-increasing-subsequence/J/longest-increasing-subsequence-1.j

increasing=: (-: /:~)@#~"1 #:@i.@^~&2@#
longestinc=: ] #~ [: (#~ ([: (= >./) +/"1)) #:@I.@increasing