Anonymous user
Non-continuous subsequences: Difference between revisions
→{{header|Perl 6}}: modernize
m (Added the Sidef language) |
(→{{header|Perl 6}}: modernize) |
||
Line 1,393:
=={{header|Perl 6}}==
{{works with|rakudo|2015-09-24}}
<lang perl6>sub non_continuous_subsequences ( *@list ) {
}
▲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>
([
=={{header|PicoLisp}}==
|