From 54d9464997d692d0b17c014a790bac16e25eeb9d Mon Sep 17 00:00:00 2001
From: DevSanti12 <santiagoleyva2013@gmail.com>
Date: Sat, 14 Sep 2024 01:20:22 -0500
Subject: Added both challenges for #284 bit late, thanks!

---
 challenge-284/santiago-leyva/perl/ch-01.pl | 56 +++++++++++++++++++
 challenge-284/santiago-leyva/perl/ch-02.pl | 86 ++++++++++++++++++++++++++++++
 2 files changed, 142 insertions(+)
 create mode 100644 challenge-284/santiago-leyva/perl/ch-01.pl
 create mode 100644 challenge-284/santiago-leyva/perl/ch-02.pl

(limited to 'challenge-284')

diff --git a/challenge-284/santiago-leyva/perl/ch-01.pl b/challenge-284/santiago-leyva/perl/ch-01.pl
new file mode 100644
index 0000000000..27060bf1a2
--- /dev/null
+++ b/challenge-284/santiago-leyva/perl/ch-01.pl
@@ -0,0 +1,56 @@
+=begin 
+You are given an array of integers, @ints.
+
+Write a script to find the lucky integer if found otherwise return -1. If there are more than one then return the largest.
+
+A lucky integer is an integer that has a frequency in the array equal to its value.
+
+Example 1
+Input: @ints = (2, 2, 3, 4)
+Output: 2
+Example 2
+Input: @ints = (1, 2, 2, 3, 3, 3)
+Output: 3
+Example 3
+Input: @ints = (1, 1, 1, 3)
+Output: -1
+=cut
+
+use strict;
+use Data::Dumper;
+
+
+my @inputs = ([2, 2, 3, 4],[1, 2, 2, 3, 3, 3],[1, 1, 1, 3]);
+
+foreach(@inputs){
+  my $arr = $_;
+  my @A = @$arr;
+  my $result = luckyNumber(\@A);
+  print $result."\n";
+}
+
+sub luckyNumber {
+  my $array = shift;
+  my @nums = @$array;
+
+  my %set;
+
+  foreach(@nums){
+    if(exists($set{$_})){
+      $set{$_} += 1;
+    }else{
+      $set{$_} = 1;
+    }
+  }
+  
+  my @largest;
+  foreach(sort {$a <=> $b} keys %set){
+    if($set{$_} == $_){
+      push @largest,$_;
+    }
+  }
+
+  return $largest[-1] if (@largest);
+  return -1;
+
+}
\ No newline at end of file
diff --git a/challenge-284/santiago-leyva/perl/ch-02.pl b/challenge-284/santiago-leyva/perl/ch-02.pl
new file mode 100644
index 0000000000..c2c454f4de
--- /dev/null
+++ b/challenge-284/santiago-leyva/perl/ch-02.pl
@@ -0,0 +1,86 @@
+=begin 
+You are given two list of integers, @list1 and @list2. The elements in the @list2 are distinct and also in the @list1.
+
+Write a script to sort the elements in the @list1 such that the relative order of items in @list1 is same as in the @list2. Elements that is missing in @list2 should be placed at the end of @list1 in ascending order.
+
+Example 1
+Input: @list1 = (2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5)
+       @list2 = (2, 1, 4, 3, 5, 6)
+Ouput: (2, 2, 1, 4, 3, 3, 5, 6, 7, 8, 9)
+Example 2
+Input: @list1 = (3, 3, 4, 6, 2, 4, 2, 1, 3)
+       @list2 = (1, 3, 2)
+Ouput: (1, 3, 3, 3, 2, 2, 4, 4, 6)
+Example 3
+Input: @list1 = (3, 0, 5, 0, 2, 1, 4, 1, 1)
+       @list2 = (1, 0, 3, 2)
+Ouput: (1, 1, 1, 0, 0, 3, 2, 4, 5)
+=cut
+
+use strict;
+use Data::Dumper;
+
+
+my @A = (2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5);
+my @B = (2, 1, 4, 3, 5, 6);
+
+my @result = customSort(\@A,\@B);
+print join(" ",@result)."\n";
+
+my @A = (3, 3, 4, 6, 2, 4, 2, 1, 3);
+my @B = (1, 3, 2);
+my @result = customSort(\@A,\@B);
+print join(" ",@result)."\n";
+
+my @A = (3, 0, 5, 0, 2, 1, 4, 1, 1);
+my @B = (1, 0, 3, 2);
+my @result = customSort(\@A,\@B);
+print join(" ",@result)."\n";
+
+sub customSort {
+  my ($arr1,$arr2) = @_;
+
+  my @list1 = @$arr1;
+  my @list2 = @$arr2;
+
+  my %set1 = createSet(\@list1);
+  my @sorted;
+  foreach(@list2){
+    if(exists($set1{$_})){
+      push @sorted,$_;
+      if(($set1{$_}) > 1){
+        for(my $i=1;$i<(scalar($set1{$_}));$i++){
+          push @sorted,$_;
+        }
+      }
+      delete $set1{$_};
+    }
+  }
+
+  foreach(sort {$a<=>$b} keys %set1){
+      push @sorted,$_;
+      if(($set1{$_}) > 1){
+        for(my $i=1;$i<(scalar($set1{$_}));$i++){
+          push @sorted,$_;
+        }
+      }
+  }
+  #print join(" ",@sorted)."\n";
+  return @sorted;
+
+}
+
+sub createSet {
+  my $input = shift;
+  my @A = @$input;
+  my %_set;
+  foreach(@A){
+    if(exists($_set{$_})){
+      $_set{$_} += 1;
+    }else{
+      $_set{$_} = 1;
+    }
+  }
+
+  return %_set;
+}
-- 
cgit 


From a904054800bab25f8620bb9d00716c5c006d712d Mon Sep 17 00:00:00 2001
From: Mohammad Sajid Anwar <mohammad.anwar@yahoo.com>
Date: Sun, 15 Sep 2024 09:26:30 +0100
Subject: - Added solutions by Santiago Leyva. - Added solutions by Ali Moradi.
 - Added solutions by Matthias Muth. - Added solutions by Peter Meszaros.

---
 challenge-284/santiago-leyva/perl/ch-01.pl | 56 -------------------
 challenge-284/santiago-leyva/perl/ch-02.pl | 86 ------------------------------
 challenge-284/santiago-leyva/perl/ch-1.pl  | 56 +++++++++++++++++++
 challenge-284/santiago-leyva/perl/ch-2.pl  | 86 ++++++++++++++++++++++++++++++
 4 files changed, 142 insertions(+), 142 deletions(-)
 delete mode 100644 challenge-284/santiago-leyva/perl/ch-01.pl
 delete mode 100644 challenge-284/santiago-leyva/perl/ch-02.pl
 create mode 100644 challenge-284/santiago-leyva/perl/ch-1.pl
 create mode 100644 challenge-284/santiago-leyva/perl/ch-2.pl

(limited to 'challenge-284')

diff --git a/challenge-284/santiago-leyva/perl/ch-01.pl b/challenge-284/santiago-leyva/perl/ch-01.pl
deleted file mode 100644
index 27060bf1a2..0000000000
--- a/challenge-284/santiago-leyva/perl/ch-01.pl
+++ /dev/null
@@ -1,56 +0,0 @@
-=begin 
-You are given an array of integers, @ints.
-
-Write a script to find the lucky integer if found otherwise return -1. If there are more than one then return the largest.
-
-A lucky integer is an integer that has a frequency in the array equal to its value.
-
-Example 1
-Input: @ints = (2, 2, 3, 4)
-Output: 2
-Example 2
-Input: @ints = (1, 2, 2, 3, 3, 3)
-Output: 3
-Example 3
-Input: @ints = (1, 1, 1, 3)
-Output: -1
-=cut
-
-use strict;
-use Data::Dumper;
-
-
-my @inputs = ([2, 2, 3, 4],[1, 2, 2, 3, 3, 3],[1, 1, 1, 3]);
-
-foreach(@inputs){
-  my $arr = $_;
-  my @A = @$arr;
-  my $result = luckyNumber(\@A);
-  print $result."\n";
-}
-
-sub luckyNumber {
-  my $array = shift;
-  my @nums = @$array;
-
-  my %set;
-
-  foreach(@nums){
-    if(exists($set{$_})){
-      $set{$_} += 1;
-    }else{
-      $set{$_} = 1;
-    }
-  }
-  
-  my @largest;
-  foreach(sort {$a <=> $b} keys %set){
-    if($set{$_} == $_){
-      push @largest,$_;
-    }
-  }
-
-  return $largest[-1] if (@largest);
-  return -1;
-
-}
\ No newline at end of file
diff --git a/challenge-284/santiago-leyva/perl/ch-02.pl b/challenge-284/santiago-leyva/perl/ch-02.pl
deleted file mode 100644
index c2c454f4de..0000000000
--- a/challenge-284/santiago-leyva/perl/ch-02.pl
+++ /dev/null
@@ -1,86 +0,0 @@
-=begin 
-You are given two list of integers, @list1 and @list2. The elements in the @list2 are distinct and also in the @list1.
-
-Write a script to sort the elements in the @list1 such that the relative order of items in @list1 is same as in the @list2. Elements that is missing in @list2 should be placed at the end of @list1 in ascending order.
-
-Example 1
-Input: @list1 = (2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5)
-       @list2 = (2, 1, 4, 3, 5, 6)
-Ouput: (2, 2, 1, 4, 3, 3, 5, 6, 7, 8, 9)
-Example 2
-Input: @list1 = (3, 3, 4, 6, 2, 4, 2, 1, 3)
-       @list2 = (1, 3, 2)
-Ouput: (1, 3, 3, 3, 2, 2, 4, 4, 6)
-Example 3
-Input: @list1 = (3, 0, 5, 0, 2, 1, 4, 1, 1)
-       @list2 = (1, 0, 3, 2)
-Ouput: (1, 1, 1, 0, 0, 3, 2, 4, 5)
-=cut
-
-use strict;
-use Data::Dumper;
-
-
-my @A = (2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5);
-my @B = (2, 1, 4, 3, 5, 6);
-
-my @result = customSort(\@A,\@B);
-print join(" ",@result)."\n";
-
-my @A = (3, 3, 4, 6, 2, 4, 2, 1, 3);
-my @B = (1, 3, 2);
-my @result = customSort(\@A,\@B);
-print join(" ",@result)."\n";
-
-my @A = (3, 0, 5, 0, 2, 1, 4, 1, 1);
-my @B = (1, 0, 3, 2);
-my @result = customSort(\@A,\@B);
-print join(" ",@result)."\n";
-
-sub customSort {
-  my ($arr1,$arr2) = @_;
-
-  my @list1 = @$arr1;
-  my @list2 = @$arr2;
-
-  my %set1 = createSet(\@list1);
-  my @sorted;
-  foreach(@list2){
-    if(exists($set1{$_})){
-      push @sorted,$_;
-      if(($set1{$_}) > 1){
-        for(my $i=1;$i<(scalar($set1{$_}));$i++){
-          push @sorted,$_;
-        }
-      }
-      delete $set1{$_};
-    }
-  }
-
-  foreach(sort {$a<=>$b} keys %set1){
-      push @sorted,$_;
-      if(($set1{$_}) > 1){
-        for(my $i=1;$i<(scalar($set1{$_}));$i++){
-          push @sorted,$_;
-        }
-      }
-  }
-  #print join(" ",@sorted)."\n";
-  return @sorted;
-
-}
-
-sub createSet {
-  my $input = shift;
-  my @A = @$input;
-  my %_set;
-  foreach(@A){
-    if(exists($_set{$_})){
-      $_set{$_} += 1;
-    }else{
-      $_set{$_} = 1;
-    }
-  }
-
-  return %_set;
-}
diff --git a/challenge-284/santiago-leyva/perl/ch-1.pl b/challenge-284/santiago-leyva/perl/ch-1.pl
new file mode 100644
index 0000000000..27060bf1a2
--- /dev/null
+++ b/challenge-284/santiago-leyva/perl/ch-1.pl
@@ -0,0 +1,56 @@
+=begin 
+You are given an array of integers, @ints.
+
+Write a script to find the lucky integer if found otherwise return -1. If there are more than one then return the largest.
+
+A lucky integer is an integer that has a frequency in the array equal to its value.
+
+Example 1
+Input: @ints = (2, 2, 3, 4)
+Output: 2
+Example 2
+Input: @ints = (1, 2, 2, 3, 3, 3)
+Output: 3
+Example 3
+Input: @ints = (1, 1, 1, 3)
+Output: -1
+=cut
+
+use strict;
+use Data::Dumper;
+
+
+my @inputs = ([2, 2, 3, 4],[1, 2, 2, 3, 3, 3],[1, 1, 1, 3]);
+
+foreach(@inputs){
+  my $arr = $_;
+  my @A = @$arr;
+  my $result = luckyNumber(\@A);
+  print $result."\n";
+}
+
+sub luckyNumber {
+  my $array = shift;
+  my @nums = @$array;
+
+  my %set;
+
+  foreach(@nums){
+    if(exists($set{$_})){
+      $set{$_} += 1;
+    }else{
+      $set{$_} = 1;
+    }
+  }
+  
+  my @largest;
+  foreach(sort {$a <=> $b} keys %set){
+    if($set{$_} == $_){
+      push @largest,$_;
+    }
+  }
+
+  return $largest[-1] if (@largest);
+  return -1;
+
+}
\ No newline at end of file
diff --git a/challenge-284/santiago-leyva/perl/ch-2.pl b/challenge-284/santiago-leyva/perl/ch-2.pl
new file mode 100644
index 0000000000..c2c454f4de
--- /dev/null
+++ b/challenge-284/santiago-leyva/perl/ch-2.pl
@@ -0,0 +1,86 @@
+=begin 
+You are given two list of integers, @list1 and @list2. The elements in the @list2 are distinct and also in the @list1.
+
+Write a script to sort the elements in the @list1 such that the relative order of items in @list1 is same as in the @list2. Elements that is missing in @list2 should be placed at the end of @list1 in ascending order.
+
+Example 1
+Input: @list1 = (2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5)
+       @list2 = (2, 1, 4, 3, 5, 6)
+Ouput: (2, 2, 1, 4, 3, 3, 5, 6, 7, 8, 9)
+Example 2
+Input: @list1 = (3, 3, 4, 6, 2, 4, 2, 1, 3)
+       @list2 = (1, 3, 2)
+Ouput: (1, 3, 3, 3, 2, 2, 4, 4, 6)
+Example 3
+Input: @list1 = (3, 0, 5, 0, 2, 1, 4, 1, 1)
+       @list2 = (1, 0, 3, 2)
+Ouput: (1, 1, 1, 0, 0, 3, 2, 4, 5)
+=cut
+
+use strict;
+use Data::Dumper;
+
+
+my @A = (2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5);
+my @B = (2, 1, 4, 3, 5, 6);
+
+my @result = customSort(\@A,\@B);
+print join(" ",@result)."\n";
+
+my @A = (3, 3, 4, 6, 2, 4, 2, 1, 3);
+my @B = (1, 3, 2);
+my @result = customSort(\@A,\@B);
+print join(" ",@result)."\n";
+
+my @A = (3, 0, 5, 0, 2, 1, 4, 1, 1);
+my @B = (1, 0, 3, 2);
+my @result = customSort(\@A,\@B);
+print join(" ",@result)."\n";
+
+sub customSort {
+  my ($arr1,$arr2) = @_;
+
+  my @list1 = @$arr1;
+  my @list2 = @$arr2;
+
+  my %set1 = createSet(\@list1);
+  my @sorted;
+  foreach(@list2){
+    if(exists($set1{$_})){
+      push @sorted,$_;
+      if(($set1{$_}) > 1){
+        for(my $i=1;$i<(scalar($set1{$_}));$i++){
+          push @sorted,$_;
+        }
+      }
+      delete $set1{$_};
+    }
+  }
+
+  foreach(sort {$a<=>$b} keys %set1){
+      push @sorted,$_;
+      if(($set1{$_}) > 1){
+        for(my $i=1;$i<(scalar($set1{$_}));$i++){
+          push @sorted,$_;
+        }
+      }
+  }
+  #print join(" ",@sorted)."\n";
+  return @sorted;
+
+}
+
+sub createSet {
+  my $input = shift;
+  my @A = @$input;
+  my %_set;
+  foreach(@A){
+    if(exists($_set{$_})){
+      $_set{$_} += 1;
+    }else{
+      $_set{$_} = 1;
+    }
+  }
+
+  return %_set;
+}
-- 
cgit 


From d18be648ec7b41b0003886a84daef875351a96bc Mon Sep 17 00:00:00 2001
From: rir <rirans@comcast.net>
Date: Thu, 12 Sep 2024 14:15:11 -0400
Subject: 286

	new file:   ch-1.raku
	new file:   ch-2.raku
---
 challenge-284/0rir/raku/ch-2.raku | 2 --
 1 file changed, 2 deletions(-)

(limited to 'challenge-284')

diff --git a/challenge-284/0rir/raku/ch-2.raku b/challenge-284/0rir/raku/ch-2.raku
index 5b4be54966..4de0440bd7 100644
--- a/challenge-284/0rir/raku/ch-2.raku
+++ b/challenge-284/0rir/raku/ch-2.raku
@@ -1,8 +1,6 @@
 #!/usr/bin/env raku
 # :vim ft=raku sw=4 expandtab  # 🦋 ∅∪∩∋∈∉⊆ ≡ ≢ «␤ » ∴
 use v6.d;
-INIT $*RAT-OVERFLOW = FatRat;
-use lib $?FILE.IO.cleanup.parent(2).add("lib");
 use Test;
 
 =begin comment
-- 
cgit 


From eb1fde55054e06e0f4ad8102775581257b999b65 Mon Sep 17 00:00:00 2001
From: Lubos Kolouch <lubos@kolouch.net>
Date: Tue, 17 Sep 2024 11:22:21 +0200
Subject: Challenge 284 285 LK Perl Python

---
 challenge-284/lubos-kolouch/perl/ch-1.pl   | 59 ++++++++++++++++++++
 challenge-284/lubos-kolouch/perl/ch-2.pl   | 88 ++++++++++++++++++++++++++++++
 challenge-284/lubos-kolouch/python/ch-1.py | 51 +++++++++++++++++
 challenge-284/lubos-kolouch/python/ch-2.py | 66 ++++++++++++++++++++++
 4 files changed, 264 insertions(+)
 create mode 100644 challenge-284/lubos-kolouch/perl/ch-1.pl
 create mode 100644 challenge-284/lubos-kolouch/perl/ch-2.pl
 create mode 100644 challenge-284/lubos-kolouch/python/ch-1.py
 create mode 100644 challenge-284/lubos-kolouch/python/ch-2.py

(limited to 'challenge-284')

diff --git a/challenge-284/lubos-kolouch/perl/ch-1.pl b/challenge-284/lubos-kolouch/perl/ch-1.pl
new file mode 100644
index 0000000000..17a5769fe9
--- /dev/null
+++ b/challenge-284/lubos-kolouch/perl/ch-1.pl
@@ -0,0 +1,59 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+=pod
+
+=head1 DESCRIPTION
+
+This script finds the lucky integer in a given array of integers.
+
+A lucky integer is defined as an integer whose frequency in the array is equal to its value.
+
+If there are multiple lucky integers, the largest one is returned. If no lucky integers are found, -1 is returned.
+
+=head1 FUNCTIONS
+
+=head2 find_lucky_integer(\@ints)
+
+Given an array reference of integers, returns the lucky integer as per the problem definition.
+
+=over 4
+
+=item * C<\@ints> - Reference to an array of integers.
+
+=back
+
+Returns the lucky integer if found, otherwise -1.
+
+=cut
+
+sub find_lucky_integer {
+    my ($ints_ref) = @_;
+    my %freq;
+
+    foreach my $num (@$ints_ref) {
+        $freq{$num}++;
+    }
+
+    my @lucky_integers;
+    foreach my $num (keys %freq) {
+        if ($num == $freq{$num}) {
+            push @lucky_integers, $num;
+        }
+    }
+
+    if (@lucky_integers) {
+        return (sort { $b <=> $a } @lucky_integers)[0];
+    } else {
+        return -1;
+    }
+}
+
+# Unit Tests
+is(find_lucky_integer([2, 2, 3, 4]), 2, 'Example 1');
+is(find_lucky_integer([1, 2, 2, 3, 3, 3]), 3, 'Example 2');
+is(find_lucky_integer([1, 1, 1, 3]), -1, 'Example 3');
+
+done_testing();
diff --git a/challenge-284/lubos-kolouch/perl/ch-2.pl b/challenge-284/lubos-kolouch/perl/ch-2.pl
new file mode 100644
index 0000000000..2579cd474e
--- /dev/null
+++ b/challenge-284/lubos-kolouch/perl/ch-2.pl
@@ -0,0 +1,88 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+=pod
+
+=head1 DESCRIPTION
+
+This script sorts the elements of @list1 based on the relative order defined in @list2. Elements in @list1 that are not in @list2 are placed at the end in ascending order.
+
+=head1 FUNCTIONS
+
+=head2 relative_sort(\@list1, \@list2)
+
+Sorts @list1 based on the order of elements in @list2.
+
+=over 4
+
+=item * C<\@list1> - Reference to the first list of integers.
+
+=item * C<\@list2> - Reference to the second list of integers defining the relative order.
+
+=back
+
+Returns a sorted array.
+
+=cut
+
+sub relative_sort {
+    my ($list1_ref, $list2_ref) = @_;
+    my %order;
+    my @result;
+
+    # Assign order to elements in @list2
+    my $idx = 0;
+    foreach my $num (@$list2_ref) {
+        $order{$num} = $idx++;
+    }
+
+    # Separate elements that are in @list2 and not in @list2
+    my @in_list2;
+    my @not_in_list2;
+
+    foreach my $num (@$list1_ref) {
+        if (exists $order{$num}) {
+            push @in_list2, $num;
+        } else {
+            push @not_in_list2, $num;
+        }
+    }
+
+    # Sort elements in @list1 that are in @list2 based on the order in @list2
+    @in_list2 = sort {
+        $order{$a} <=> $order{$b}
+            ||
+        $a <=> $b  # To handle duplicates
+    } @in_list2;
+
+    # Sort elements not in @list2 in ascending order
+    @not_in_list2 = sort { $a <=> $b } @not_in_list2;
+
+    # Combine the two lists
+    @result = (@in_list2, @not_in_list2);
+
+    return @result;
+}
+
+# Unit Tests
+is_deeply(
+    [relative_sort([2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5], [2, 1, 4, 3, 5, 6])],
+    [2, 2, 1, 4, 3, 3, 5, 6, 7, 8, 9],
+    'Example 1'
+);
+
+is_deeply(
+    [relative_sort([3, 3, 4, 6, 2, 4, 2, 1, 3], [1, 3, 2])],
+    [1, 3, 3, 3, 2, 2, 4, 4, 6],
+    'Example 2'
+);
+
+is_deeply(
+    [relative_sort([3, 0, 5, 0, 2, 1, 4, 1, 1], [1, 0, 3, 2])],
+    [1, 1, 1, 0, 0, 3, 2, 4, 5],
+    'Example 3'
+);
+
+done_testing();
diff --git a/challenge-284/lubos-kolouch/python/ch-1.py b/challenge-284/lubos-kolouch/python/ch-1.py
new file mode 100644
index 0000000000..2f817578f1
--- /dev/null
+++ b/challenge-284/lubos-kolouch/python/ch-1.py
@@ -0,0 +1,51 @@
+from typing import List
+import unittest
+
+
+def find_lucky_integer(ints: List[int]) -> int:
+    """
+    Finds the lucky integer in the given list of integers.
+
+    A lucky integer is an integer whose frequency in the array is equal to its value.
+
+    If there are multiple lucky integers, returns the largest one.
+    If no lucky integers are found, returns -1.
+
+    Args:
+        ints (List[int]): A list of integers.
+
+    Returns:
+        int: The lucky integer if found, otherwise -1.
+    """
+    from collections import Counter
+    freq = Counter(ints)
+    lucky_integers = [num for num, count in freq.items() if num == count]
+    if lucky_integers:
+        return max(lucky_integers)
+    else:
+        return -1
+
+
+# Unit Tests
+class TestFindLuckyInteger(unittest.TestCase):
+
+    def test_example1(self):
+        self.assertEqual(find_lucky_integer([2, 2, 3, 4]), 2, 'Example 1')
+
+    def test_example2(self):
+        self.assertEqual(find_lucky_integer([1, 2, 2, 3, 3, 3]), 3,
+                         'Example 2')
+
+    def test_example3(self):
+        self.assertEqual(find_lucky_integer([1, 1, 1, 3]), -1, 'Example 3')
+
+    def test_additional(self):
+        self.assertEqual(find_lucky_integer([5, 5, 5, 5, 5]), 5,
+                         'All same number')
+        self.assertEqual(find_lucky_integer([2, 2, 2, 3, 3]), -1,
+                         'No lucky integer')
+        self.assertEqual(find_lucky_integer([]), -1, 'Empty list')
+
+
+if __name__ == "__main__":
+    unittest.main()
diff --git a/challenge-284/lubos-kolouch/python/ch-2.py b/challenge-284/lubos-kolouch/python/ch-2.py
new file mode 100644
index 0000000000..c0fb8a888b
--- /dev/null
+++ b/challenge-284/lubos-kolouch/python/ch-2.py
@@ -0,0 +1,66 @@
+from typing import List
+import unittest
+
+
+def relative_sort(list1: List[int], list2: List[int]) -> List[int]:
+    """
+    Sorts the elements of list1 based on the relative order defined in list2.
+    Elements not in list2 are placed at the end in ascending order.
+
+    Args:
+        list1 (List[int]): The list of integers to sort.
+        list2 (List[int]): The list defining the relative order.
+
+    Returns:
+        List[int]: The sorted list.
+    """
+    order = {num: idx for idx, num in enumerate(list2)}
+    in_list2 = []
+    not_in_list2 = []
+
+    for num in list1:
+        if num in order:
+            in_list2.append(num)
+        else:
+            not_in_list2.append(num)
+
+    # Sort elements in list1 that are in list2 based on the order in list2
+    in_list2.sort(key=lambda x: (order[x], x))
+
+    # Sort elements not in list2 in ascending order
+    not_in_list2.sort()
+
+    return in_list2 + not_in_list2
+
+
+# Unit Tests
+class TestRelativeSort(unittest.TestCase):
+
+    def test_example1(self):
+        list1 = [2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5]
+        list2 = [2, 1, 4, 3, 5, 6]
+        expected = [2, 2, 1, 4, 3, 3, 5, 6, 7, 8, 9]
+        self.assertEqual(relative_sort(list1, list2), expected, 'Example 1')
+
+    def test_example2(self):
+        list1 = [3, 3, 4, 6, 2, 4, 2, 1, 3]
+        list2 = [1, 3, 2]
+        expected = [1, 3, 3, 3, 2, 2, 4, 4, 6]
+        self.assertEqual(relative_sort(list1, list2), expected, 'Example 2')
+
+    def test_example3(self):
+        list1 = [3, 0, 5, 0, 2, 1, 4, 1, 1]
+        list2 = [1, 0, 3, 2]
+        expected = [1, 1, 1, 0, 0, 3, 2, 4, 5]
+        self.assertEqual(relative_sort(list1, list2), expected, 'Example 3')
+
+    def test_additional(self):
+        list1 = [7, 5, 9, 4, 8, 6]
+        list2 = [5, 7, 6]
+        expected = [5, 7, 6, 4, 8, 9]
+        self.assertEqual(relative_sort(list1, list2), expected,
+                         'Additional Test')
+
+
+if __name__ == "__main__":
+    unittest.main()
-- 
cgit