Rosetta Code

De Bruijn sequences: Difference between revisions

Page Discussion

De Bruijn sequences (view source)

Revision as of 16:59, 1 September 2019

130 bytes removed ,  4 years ago
m
→‎{{header|Perl 6}}: Updated for changed spec.
(→‎{{header|Perl 6}}: Add a Perl 6 example)
m (→‎{{header|Perl 6}}: Updated for changed spec.)
Line 119:
for 0..9999 { .fmt('%04d').say unless %chk2{ .fmt: '%04d'} }
 
put "\n4444thnReplace the 4444th character inand thererun sequencechecks: " ~ my $ch = $seq.substr(4444, 1);
$seq.substr-rw(4444,1) = $ch + 1'.';▼
put "\nAdding 1 to the 4444th character and reruning checks:";
▲$seq.substr-rw(4444,1) = $ch + 1;
 
my %chk3;
Line 142 ⟶ 141:
Missing 4 digit PINs in the reversed sequence:
 
Replace the 4444th character inand thererun sequencechecks: 5
 
Adding 1 to the 4444th character and reruning checks:
 
Missing 4 digit PINs in the revised sequence:
Line 150 ⟶ 147:
4591
5914
8145</pre>
</pre>
 
=={{header|REXX}}==
Thundergnat
10,343

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/293543"