RosettaCodeData/Task/Non-continuous-subsequences/Zkl/non-continuous-subsequences-1.zkl
2023-07-01 13:44:08 -04:00

9 lines
298 B
Text

fcn non_continuous_subsequences(ary){
pwerSet(ary).filter(fcn(list){(not isContinuous(list)) })
}
fcn isContinuous(ary){
if(ary.len()<2) return(True);
foreach n in (ary.len()-1){ if(1+ary[n]!=ary[n+1]) return(False); }
return(True);
}
non_continuous_subsequences(T(1,2,3,4)).println();