- Added the Array.map_with_index{} method

new file:   scripts/Tests/word_processing.sf

MANIFEST

@@ -775,6 +775,7 @@ scripts/Tests/vigenere_cipher.sf
 scripts/Tests/virtual_machine.sf
 scripts/Tests/while_loop.sf
 scripts/Tests/wireworld.sf
+scripts/Tests/word_processing.sf
 scripts/Tests/word_roots.sf
 scripts/tree_traversal.sf
 scripts/unique_prefixes.sf

lib/Sidef/Types/Array/Array.pm

@@ -555,6 +555,17 @@ package Sidef::Types::Array::Array {
 
     *collect = \↦
 
+    sub map_with_index {
+        my ($self, $code) = @_;
+
+        my @arr;
+        foreach my $i (0 .. $#{$self}) {
+            push @arr, $code->run(Sidef::Types::Number::Number->new($i), $self->[$i]);
+        }
+
+        $self->new(@arr);
+    }
+
     sub flat_map {
         my ($self, $code) = @_;
         $self->new(map { @{scalar $code->run($_)} } @{$self});
@@ -816,7 +827,6 @@ package Sidef::Types::Array::Array {
 
         my @sorted = do {
             my @arr;
-
             foreach my $i (0 .. $#{$self}) {
                 push @arr, [$i, $self->[$i]];
             }

scripts/Tests/word_processing.sf

@@ -0,0 +1,17 @@
+#!/usr/bin/ruby
+
+var base = ('A'.ord - 1);
+
+var n = DATA.slurp.chomp.split(/\s*,\s*/)
+            .map { |s| s - /"/g }.sort.uniq
+            .map { |s| s.chars.map { |sym| sym.ord - base  }.sum }
+            .map_with_index { |idx, val| val * (idx+1) }
+            .sum;
+
+assert_eq(n, 5738);
+say "** Test passed!";
+
+__DATA__
+"LISA","MARY","PATRICIA","LINDA","BARBARA",
+"MARIA","ELIZABETH","JENNIFER","MARIA","SUSAN",
+"MARGARET","DOROTHY","LISA","NANCY","KAREN","MARY"