Anonymous user
McNuggets problem: Difference between revisions
→{{header|Perl}}
(→{{header|rust}}: Rust version.) |
|||
Line 795:
Maximum non-Mcnugget number using 5, 17, 44 is: 131
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}}==
| |||