- Extended the Range primes method to support descending ranges.

Example: say primes(100 ^.. 50) # primes in the range [50, 100) in reverse order
trizen · Aug 15, 2019 · 5eff247 · 5eff247
1 parent 3c534da
commit 5eff247
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/lib/Sidef/Types/Range/RangeNumber.pm b/lib/Sidef/Types/Range/RangeNumber.pm
@@ -207,7 +207,7 @@ package Sidef::Types::Range::RangeNumber {
     sub bsearch {
         my ($self, $block) = @_;
 
-        if ($self->{step}->abs->is_one) {
+        if ($self->{step}->is_one) {
             my $left  = Sidef::Types::Number::Number->new($self->{from});
             my $right = Sidef::Types::Number::Number->new($self->{to});
             return Sidef::Types::Number::Number::bsearch($left, $right, $block);
@@ -219,7 +219,7 @@ package Sidef::Types::Range::RangeNumber {
     sub bsearch_le {
         my ($self, $block) = @_;
 
-        if ($self->{step}->abs->is_one) {
+        if ($self->{step}->is_one) {
             my $left  = Sidef::Types::Number::Number->new($self->{from});
             my $right = Sidef::Types::Number::Number->new($self->{to});
             return Sidef::Types::Number::Number::bsearch_le($left, $right, $block);
@@ -231,7 +231,7 @@ package Sidef::Types::Range::RangeNumber {
     sub bsearch_ge {
         my ($self, $block) = @_;
 
-        if ($self->{step}->abs->is_one) {
+        if ($self->{step}->is_one) {
             my $left  = Sidef::Types::Number::Number->new($self->{from});
             my $right = Sidef::Types::Number::Number->new($self->{to});
             return Sidef::Types::Number::Number::bsearch_ge($left, $right, $block);
@@ -244,8 +244,14 @@ package Sidef::Types::Range::RangeNumber {
         my ($self) = @_;
 
         if ($self->{step}->abs->is_one) {
+
             my $left  = Sidef::Types::Number::Number->new($self->{from});
             my $right = Sidef::Types::Number::Number->new($self->{to});
+
+            if ($self->{step}->is_neg) {
+                return Sidef::Types::Number::Number::primes($right, $left)->flip;
+            }
+
             return Sidef::Types::Number::Number::primes($left, $right);
         }