Department numbers: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) m Thundergnat moved page Department Numbers to Department numbers: Follow normal task title capitalization policy |
|||
Line 2,056:
6 - 5 - 1
</lang>
===Alternate with Regex===
<lang perl>#!/usr/bin/perl
use strict; # https://rosettacode.org/wiki/Department_numbers
use warnings;
print "P S F\n\n";
'246 1234567 1234567' =~
/(.).* \s .*?(?!\1)(.).* \s .*(?!\1)(?!\2)(.)
(??{$1+$2+$3!=12})
(?{ print "@{^CAPTURE}\n" })(*FAIL)/x;</lang>
{{out}}
<pre>
P S F
2 3 7
2 4 6
2 6 4
2 7 3
4 1 7
4 2 6
4 3 5
4 5 3
4 6 2
4 7 1
6 1 5
6 2 4
6 4 2
6 5 1
</pre>
===Alternate with Glob===
<lang perl>#!/usr/bin/perl
use strict; # https://rosettacode.org/wiki/Department_numbers
use warnings;
print "P S F\n\n";
print tr/+/ /r, "\n" for
grep !/(\d).*\1/ && 12 == eval,
glob '{2,4,6}' . '+{1,2,3,4,5,6,7}' x 2;</lang>
Output same as with Regex
=={{header|Phix}}==
| |||