RosettaCodeData/Task/Non-continuous-subsequences/Zkl/non-continuous-subsequences-1.zkl

10 lines
298 B
Text
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
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();