- Added the Number.modinv() (and Number.invmod() as alias)

new file:   scripts/RosettaCode/function_frequency.sf
new file:   scripts/RosettaCode/modular_inverse.sf

MANIFEST

@@ -337,6 +337,7 @@ scripts/RosettaCode/formatted_numeric_output.sf
 scripts/RosettaCode/formatted_numeric_output_1.sf
 scripts/RosettaCode/function_composition.sf
 scripts/RosettaCode/function_definition.sf
+scripts/RosettaCode/function_frequency.sf
 scripts/RosettaCode/gamma_function.sf
 scripts/RosettaCode/gamma_function_1.sf
 scripts/RosettaCode/general_fizzbuzz.sf
@@ -400,6 +401,7 @@ scripts/RosettaCode/maze_generation.sf
 scripts/RosettaCode/md5.sf
 scripts/RosettaCode/md5_1.sf
 scripts/RosettaCode/middle_three_digits.sf
+scripts/RosettaCode/modular_inverse.sf
 scripts/RosettaCode/move_to_front_algorithm_1.sf
 scripts/RosettaCode/move_to_front_algorithm_2.sf
 scripts/RosettaCode/multifactorial.sf

lib/Sidef/Optimizer.pm

@@ -216,6 +216,7 @@ package Sidef::Optimizer {
                    round roundf
                    digit
                    nok
+                   modinv
                    rdiv
                    is_div
 

lib/Sidef/Types/Number/Number.pm

@@ -64,6 +64,13 @@ package Sidef::Types::Number::Number {
 
     *expmod = \&modpow;
 
+    sub modinv {
+        my ($self, $mod) = @_;
+        $self->new($$self->as_int->bmodinv($mod->get_value->as_int));
+    }
+
+    *invmod = \&modinv;
+
     sub pow {
         my ($self, $num) = @_;
         $self->new($$self->copy->bpow($num->get_value));

lib/Sidef/Types/Number/Number.pod

@@ -482,6 +482,16 @@ Aliases: I<to_i>, I<as_int>, I<to_int>
 
 =cut
 
+=head2 invmod
+
+Number.invmod() -> I<Obj>
+
+Return the
+
+Aliases: I<modinv>
+
+=cut
+
 =head2 is_even
 
 Number.is_even() -> I<Obj>

scripts/RosettaCode/function_frequency.sf

@@ -0,0 +1,25 @@
+#!/usr/bin/ruby
+
+#
+## http://rosettacode.org/wiki/Function_frequency
+#
+
+var program = <<'EOT'
+func foo { }
+func bar { }
+
+foo(); foo(); foo()
+bar(); bar();
+EOT
+
+var parser = Parser.new                     # initialize a new parser
+parser.parse_script( code => program )      # parse the code
+
+var data = Perl.to_sidef(parser{:vars}{:main}).flatten
+
+data.sort_by { |v| -v{:count} }.first(10).each { |entry|
+    if (entry{:type} == :func) {
+        say ("Function `#{entry{:name}}` (declared at line",
+             " #{entry{:line}}) is used #{entry{:count}} times")
+    }
+}

scripts/RosettaCode/modular_inverse.sf

@@ -0,0 +1,18 @@
+#!/usr/bin/ruby
+
+func invmod(a, n) {
+  var (t, nt, r, nr) = (0, 1, n, a % n)
+  while (nr != 0) {
+    var quot = int((r - (r % nr)) / nr);
+    (nt, t) = (t - quot*nt, nt);
+    (nr, r) = (r - quot*nr, nr);
+  }
+  r > 1 && return()
+  t < 0 && (t += n)
+  t
+}
+
+var n = invmod(42, 2017)
+
+say n
+assert_eq(42.modinv(2017), n)