RosettaCodeData/Task/Non-continuous-subsequences/Zkl/non-continuous-subsequences-1.zkl
2017-09-25 22:28:19 +02: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();