Non-continuous subsequences: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,393: / Line 1,393: @@
 =={{header|Perl 6}}==
+{{works with|rakudo|2015-09-24}}
-Uses powerset() function from [[Power Set#Perl_6|here]].
 <lang perl6>sub non_continuous_subsequences ( *@list ) {
-    powerset(@list).grep: { 1 != all( .[ 0 ^.. .end] Z- .[0 ..^ .end] ) }
+    @list.combinations.grep: { 1 != all( .[ 0 ^.. .end] Z- .[0 ..^ .end] ) }
 }
+say non_continuous_subsequences( 1..3 )».gist;
-sub powerset ( *@list ) {
+say non_continuous_subsequences( 1..4 )».gist;
-    reduce( -> @L, $n { [ @L, @L.map: {[ .list, $n ]} ] }, [[]], @list );
+say non_continuous_subsequences(   ^4 ).map: {[<a b c d>[.list]].gist};</lang>
-}
-say ~ non_continuous_subsequences( 1..3 )».perl;
-say ~ non_continuous_subsequences( 1..4 )».perl;
-say ~ non_continuous_subsequences(   ^4 ).map: {[<a b c d>[.list]].perl};</lang>
 {{out}}
-<pre>[1, 3]
+<pre>((1 3))
-[1, 3] [1, 4] [2, 4] [1, 2, 4] [1, 3, 4]
+((1 3) (1 4) (2 4) (1 2 4) (1 3 4))
-["a", "c"] ["a", "d"] ["b", "d"] ["a", "b", "d"] ["a", "c", "d"]</pre>
+([a c] [a d] [b d] [a b d] [a c d])</pre>
 =={{header|PicoLisp}}==