RosettaCodeData/Task/Longest-increasing-subsequence/Zkl/longest-increasing-subsequence-2.zkl

foreach ns in (T(T(1),T(3,2,6,4,5,1),T(4,65,2,-31,0,99,83,782,1),
	       T(0,8,4,12,2,10,6,14,1,9,5,13,3,11,7,15),"foobar")){
   s:=longestSequence(ns);
   println(s.len(),": ",s," from ",ns);
}