McNuggets problem: Difference between revisions
Content added Content deleted
(→{{header|rust}}: Rust version.) |
|||
Line 795: | Line 795: | ||
Maximum non-Mcnugget number using 5, 17, 44 is: 131 |
Maximum non-Mcnugget number using 5, 17, 44 is: 131 |
||
Maximum non-Mcnugget number using 2, 4, 6 is: No maximum</pre> |
Maximum non-Mcnugget number using 2, 4, 6 is: No maximum</pre> |
||
===Perl using Regex=== |
|||
<lang Perl>#!/usr/bin/perl |
|||
use strict; # http://www.rosettacode.org/wiki/McNuggets_Problem |
|||
use warnings; |
|||
$_ = 1 . 0 x 100; |
|||
1 while s/ (?=1) (?:.{6}|.{9}|.{20}) \K 0 /1/x; |
|||
/01*$/ and print "Maximum non-Mcnugget number is: $-[0]\n";</lang> |
|||
{{out}} |
|||
<pre>Maximum non-Mcnugget number is: 43</pre> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |