Non-continuous subsequences: Difference between revisions

add JavaScript
(Miscellaneous formatting changes.)
(add JavaScript)
Line 312:
|iu|eu|eo|eou|eiu|au|ao|aou|ai|aiu|aio|aiou|aeu|aeo|aeou|aeiu|
+--+--+--+---+---+--+--+---+--+---+---+----+---+---+----+----+
 
=={{header|JavaScript}}==
Uses powerset() function from [[Power Set#JavaScript|here]]. Uses a JSON stringifier from http://www.json.org/js.html
 
{{works with|SpiderMonkey}}
<lang javascript>function non_continuous_subsequences(ary) {
var non_continuous = new Array();
for (var i = 0; i < ary.length; i++) {
if (! is_array_continuous(ary[i])) {
non_continuous.push(ary[i]);
}
}
return non_continuous;
}
 
function is_array_continuous(ary) {
if (ary.length < 2)
return true;
for (var j = 1; j < ary.length; j++) {
if (ary[j] - ary[j-1] != 1) {
return false;
}
}
return true;
}
 
load('json2.js'); /* http://www.json.org/js.html */
 
print(JSON.stringify( non_continuous_subsequences( powerset([1,2,3,4]))));</lang>
 
Outputs:
<pre>[[1,3],[1,4],[2,4],[1,2,4],[1,3,4]]</pre>
 
=={{header|Mathematica}}==
Anonymous user