aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Find-the-missing-permutation/Perl/find-the-missing-permutation-1.pl Normal file
View file

@ -0,0 +1,10 @@
sub check_perm {
my %hash; @hash{@_} = ();
for my $s (@_) { exists $hash{$_} or return $_
for map substr($s,1) . substr($s,0,1), (1..length $s); }
}
# Check and display
@perms = qw(ABCD CABD ACDB DACB BCDA ACBD ADCB CDAB DABC BCAD CADB CDBA
CBAD ABDC ADBC BDCA DCBA BACD BADC BDAC CBDA DBCA DCAB);
print check_perm(@perms), "\n";

1
Task/Find-the-missing-permutation/Perl/find-the-missing-permutation-2.pl Normal file
View file

@ -0,0 +1 @@
print eval join '^', map "'$_'", <>;

2
Task/Find-the-missing-permutation/Perl/find-the-missing-permutation-3.pl Normal file
View file

@ -0,0 +1,2 @@
$\ ^= $_ while <>;
print '';

4
Task/Find-the-missing-permutation/Perl/find-the-missing-permutation-4.pl Normal file
View file

@ -0,0 +1,4 @@
local $_ = join '', <>;
my %h = map { $_, '' } reverse =~ /\w+/g;
delete @h{ /\w+/g };
print %h, "\n";