- Added the Bool.pick() method (and Bool.rand() as alias) to choose a…

… random boolean value

- Added the Number.to_num() method (and Number.to_n() as alias) which simply returns the self object
- Minor fixes

lib/Sidef/Types/Bool/Bool.pm

@@ -22,10 +22,17 @@ package Sidef::Types::Bool::Bool {
 
         sub true  { $true }
         sub false { $false }
+
+        sub pick {
+            rand(1) < 0.5 ? $true : $false;
+        }
+
+        *rand = \&pick;
     }
 
     sub get_value { ${$_[0]} }
     sub to_bool   { $_[0] }
+    *to_b = \&to_bool;
 
     *{__PACKAGE__ . '::' . '|'} = sub {
         my ($self, $arg) = @_;

lib/Sidef/Types/Number/Number.pm

@@ -46,6 +46,12 @@ package Sidef::Types::Number::Number {
         $GET_PERL_VALUE ? ${$_[0]}->numify : ${$_[0]};
     }
 
+    sub to_n {
+        $_[0]
+    }
+
+    *to_num = \&to_n;
+
     sub mod {
         my ($self, $num) = @_;
         $self->new($$self % $num->get_value);
@@ -318,6 +324,7 @@ package Sidef::Types::Number::Number {
 
     *as_int = \∫
     *to_i   = \∫
+    *to_int = \∫
 
     sub max {
         my ($self, $arg) = @_;

scripts/Expensive/root_of_a_function.sf

@@ -17,7 +17,7 @@ range(start+step, stop, step).each { |x|
         when (0) {
             say "Root found at #{x}";
         }
-        when (sign && ((value > 0) != sign)) {
+        case (sign && ((value > 0) != sign)) {
             say "Root found near #{x}";
         }
     }

scripts/Games/guess_the_number_with_feedback.sf

@@ -10,7 +10,7 @@ say "Guess the number between 1 and 10";
 loop {
     given(var n = Sys.scanln("> ").to_i) {
         when (number)     { say "You guessed it."; break }
-        when (n < number) { say "Too low" }
+        case (n < number) { say "Too low" }
         default           { say "Too high" }
     }
 }

scripts/Games/guess_the_number_with_feedback__player_.sf

@@ -24,17 +24,17 @@ loop {
  
     ++tries;
     given(var score = STDIN.readline) {
-        when(max <= min) {
+        case(max <= min) {
             say "\nI give up...";
             break;
         }
-        when(score ~~ /^h/i) {
+        when(/^h/i) {
             min = guess+1;
         }
-        when(score ~~ /^l/i) {
+        when(/^l/i) {
             max = guess;
         }
-        when(score ~~ /^e/i) {
+        when(/^e/i) {
             say "\nI knew it! It took me only #{tries} tries.";
             break;
         }