From 4a4f87831405a304328aa38576da91853c281561 Mon Sep 17 00:00:00 2001 From: arnesom Date: Sun, 16 Oct 2022 22:37:44 +0200 Subject: Arne Sommer --- challenge-186/arne-sommer/blog.txt | 1 + challenge-186/arne-sommer/perl/ch-1.pl | 28 ++++++++++++++++++++++ challenge-186/arne-sommer/perl/ch-2.pl | 21 ++++++++++++++++ .../arne-sommer/perl/unicode-makeover-perl | 21 ++++++++++++++++ challenge-186/arne-sommer/perl/zip-list-perl | 28 ++++++++++++++++++++++ challenge-186/arne-sommer/raku/ch-1.raku | 22 +++++++++++++++++ challenge-186/arne-sommer/raku/ch-2.raku | 9 +++++++ challenge-186/arne-sommer/raku/unicode-makeover | 9 +++++++ challenge-186/arne-sommer/raku/zip-list | 22 +++++++++++++++++ 9 files changed, 161 insertions(+) create mode 100644 challenge-186/arne-sommer/blog.txt create mode 100755 challenge-186/arne-sommer/perl/ch-1.pl create mode 100755 challenge-186/arne-sommer/perl/ch-2.pl create mode 100755 challenge-186/arne-sommer/perl/unicode-makeover-perl create mode 100755 challenge-186/arne-sommer/perl/zip-list-perl create mode 100755 challenge-186/arne-sommer/raku/ch-1.raku create mode 100755 challenge-186/arne-sommer/raku/ch-2.raku create mode 100755 challenge-186/arne-sommer/raku/unicode-makeover create mode 100755 challenge-186/arne-sommer/raku/zip-list diff --git a/challenge-186/arne-sommer/blog.txt b/challenge-186/arne-sommer/blog.txt new file mode 100644 index 0000000000..2fafa9c148 --- /dev/null +++ b/challenge-186/arne-sommer/blog.txt @@ -0,0 +1 @@ +https://raku-musings.com/unicode-zip.html diff --git a/challenge-186/arne-sommer/perl/ch-1.pl b/challenge-186/arne-sommer/perl/ch-1.pl new file mode 100755 index 0000000000..efc87d7ce7 --- /dev/null +++ b/challenge-186/arne-sommer/perl/ch-1.pl @@ -0,0 +1,28 @@ +#! /usr/bin/env perl + +use strict; +use warnings; +use feature 'say'; +use feature 'signatures'; +no warnings 'experimental::signatures'; + +my @a = qw/1 2 3/; +my @b = qw/a b c/; +my @zip1 = zip(\@a, \@b); +my @zip2 = zip(\@b, \@a); + +say 'qw/' . join(" ", @zip1) . '/;'; +say 'qw/' . join(" ", @zip2) . '/;'; + +sub zip ($a, $b) +{ + my @return; + + for my $index (0 .. @$a -1) + { + push(@return, $a->[$index]); + push(@return, $b->[$index]); + } + + return @return; +} diff --git a/challenge-186/arne-sommer/perl/ch-2.pl b/challenge-186/arne-sommer/perl/ch-2.pl new file mode 100755 index 0000000000..08f7f78b00 --- /dev/null +++ b/challenge-186/arne-sommer/perl/ch-2.pl @@ -0,0 +1,21 @@ +#! /usr/bin/env perl + +use strict; +use warnings; +use utf8; +use feature 'say'; +use feature 'unicode_strings'; +use feature 'signatures'; +no warnings 'experimental::signatures'; + +use Unicode::Normalize; + +say makeover('ÃÊÍÒÙ'); +say makeover('âÊíÒÙ'); + +sub makeover ($str) +{ + my $nfkd = NFKD($str); + $nfkd =~ s/\p{NonspacingMark}//g; + return Unicode::Normalize::reorder(Unicode::Normalize::decompose($nfkd)); +} diff --git a/challenge-186/arne-sommer/perl/unicode-makeover-perl b/challenge-186/arne-sommer/perl/unicode-makeover-perl new file mode 100755 index 0000000000..08f7f78b00 --- /dev/null +++ b/challenge-186/arne-sommer/perl/unicode-makeover-perl @@ -0,0 +1,21 @@ +#! /usr/bin/env perl + +use strict; +use warnings; +use utf8; +use feature 'say'; +use feature 'unicode_strings'; +use feature 'signatures'; +no warnings 'experimental::signatures'; + +use Unicode::Normalize; + +say makeover('ÃÊÍÒÙ'); +say makeover('âÊíÒÙ'); + +sub makeover ($str) +{ + my $nfkd = NFKD($str); + $nfkd =~ s/\p{NonspacingMark}//g; + return Unicode::Normalize::reorder(Unicode::Normalize::decompose($nfkd)); +} diff --git a/challenge-186/arne-sommer/perl/zip-list-perl b/challenge-186/arne-sommer/perl/zip-list-perl new file mode 100755 index 0000000000..efc87d7ce7 --- /dev/null +++ b/challenge-186/arne-sommer/perl/zip-list-perl @@ -0,0 +1,28 @@ +#! /usr/bin/env perl + +use strict; +use warnings; +use feature 'say'; +use feature 'signatures'; +no warnings 'experimental::signatures'; + +my @a = qw/1 2 3/; +my @b = qw/a b c/; +my @zip1 = zip(\@a, \@b); +my @zip2 = zip(\@b, \@a); + +say 'qw/' . join(" ", @zip1) . '/;'; +say 'qw/' . join(" ", @zip2) . '/;'; + +sub zip ($a, $b) +{ + my @return; + + for my $index (0 .. @$a -1) + { + push(@return, $a->[$index]); + push(@return, $b->[$index]); + } + + return @return; +} diff --git a/challenge-186/arne-sommer/raku/ch-1.raku b/challenge-186/arne-sommer/raku/ch-1.raku new file mode 100755 index 0000000000..fc9cc27e0d --- /dev/null +++ b/challenge-186/arne-sommer/raku/ch-1.raku @@ -0,0 +1,22 @@ +#! /usr/bin/env raku + +my @a = qw/1 2 3/; +my @b = qw/a b c/; +my @zip1 = my-zip(@a, @b); +my @zip2 = my-zip(@b, @a); + +say "qw/@zip1[]/;"; +say "qw/@zip2[]/;"; + +sub my-zip (@a is copy, @b is copy) +{ + my @return; + + while @a + { + @return.push: @a.shift; + @return.push: @b.shift; + } + + return @return; +} diff --git a/challenge-186/arne-sommer/raku/ch-2.raku b/challenge-186/arne-sommer/raku/ch-2.raku new file mode 100755 index 0000000000..29f734c72e --- /dev/null +++ b/challenge-186/arne-sommer/raku/ch-2.raku @@ -0,0 +1,9 @@ +#! /usr/bin/env raku + +say makeover('ÃÊÍÒÙ'); +say makeover('âÊíÒÙ'); + +sub makeover ($str) +{ + return $str.samemark('a'); +} diff --git a/challenge-186/arne-sommer/raku/unicode-makeover b/challenge-186/arne-sommer/raku/unicode-makeover new file mode 100755 index 0000000000..29f734c72e --- /dev/null +++ b/challenge-186/arne-sommer/raku/unicode-makeover @@ -0,0 +1,9 @@ +#! /usr/bin/env raku + +say makeover('ÃÊÍÒÙ'); +say makeover('âÊíÒÙ'); + +sub makeover ($str) +{ + return $str.samemark('a'); +} diff --git a/challenge-186/arne-sommer/raku/zip-list b/challenge-186/arne-sommer/raku/zip-list new file mode 100755 index 0000000000..fc9cc27e0d --- /dev/null +++ b/challenge-186/arne-sommer/raku/zip-list @@ -0,0 +1,22 @@ +#! /usr/bin/env raku + +my @a = qw/1 2 3/; +my @b = qw/a b c/; +my @zip1 = my-zip(@a, @b); +my @zip2 = my-zip(@b, @a); + +say "qw/@zip1[]/;"; +say "qw/@zip2[]/;"; + +sub my-zip (@a is copy, @b is copy) +{ + my @return; + + while @a + { + @return.push: @a.shift; + @return.push: @b.shift; + } + + return @return; +} -- cgit