Apply a callback to an array

severinavuckovic climatizzatore toshiba opere arte paleocristiana immagini di troie capitano mio capitano alfabetizzazione in etiopia palmare e navigatore les tropeziennes hp toner 2550 rappin kit manutenzione coltelli polistirolo verona bedboys newcomen, thomas antenna tomtom accessori gps lettori dvd e divx dikom greta lop nor terroristi ceceni in russia disegna un biglietto menu buble spiderman 2 diplomas villaggio valentino castellaneta rtl it cellulari trans thunder tiger bmw m3 custodia subacquea fotocamera powershot router wireless isdn richard wagner. sigfrido mp3 creative muvo tx fm 512mb panda emotion multijet pb 6110 gps bluethooth armadi componibili christophe beck www giacaranda it log attivi chanel allure eau de parfum spray 100ml sex porn xxx ricigliano cerca a ti foto monica bellucci war collection www paulshark it turismo umbria kings of convenience misread dale omar san juanito luca dirisio costa azzurra ray charles canzone su 11 settembre 2001 parni valjak bmw b10 free ones onkyo divx video juanes nada valgo sin ti laser evolution fucking machine lettino pali avorio pompa pallone assistenza tecnica delonghi sito strani yamaha rx-v1500 magix film su cd dvd mono mario chicasdesnudas audigy 2 editor sio gucci italiano immagini e artwork per ys vi papa giovanni sinudyne tv 28 jamie stevens free polini brigitte lahaie il mercante di schiave anal toy web hosting service video serena hatch cia confederazione italiana agricoltori voli costa rica castlecat3 tv aljazeera msc a12wv keepers traduzione della canzone di eamon philip jackson trova lavoro xp licenza studente nero per fax samsung charter yacht owssvr profonda gola di madame do accessori per nikon 7900 driver nokia 7650 kingston 333 1gb server opteron dual core jean michel jarre live in bejing film thrustmaster challenge racing wheel la porta del cielo deej parade w w w la cattolica it medicina testi di donatella rettore baleari vacanze bmw 320 touring 2004 roberta olivieri scorregge roberto cavalli camicie uomo bambolina e barracuda ligabue croce di polsi fiorai o fioristi a roma dichiarazione reddito gioco erotico online gratis halle barry getting fucked nvidia geforce gigabyte 6600 fregene stabilimento riviera dscs40 sony hotel per bambini deberes de la pesona sexy chat decatlon cavo s-video ps2 m pagani ospitalita in monasteri in liguria x-drive 40gb ps2 accessori console sony spartiti di renga laura pausini con sex fuck women vree ramsdellite wacom graphire a5 actinidia michael jackson. history on film. vol. 02 clinica psichiatrica apicale registro dominio hotel 3 stelle boston katrina and the waves fotoracconti incestuosi de ce ma minti mp3 everbrite foto nudi amatoriali il giovin signore e 220 cdi elegance astra gtc usata villaggi campeggi naturisti croazia defende your castell anthony burgess cavo adattatore audio rca frigoriferi zoppas inox cappellino ralph lauren john cooper works mini molise acer tft lcd 19 djlhasa diclofenac san 100mg 10 sup. yonago video andresan mutu router switch 8 porte aculaser 2600n doppia offerta speciale per halo 2 in italia konica minolta 1300w take my eyes off midtown madness 2 frigo assorbimento salerno lavoro tempo parigi tariffa internet flat test di coppia ufficio foligno tarocchi rider waite pink project sistemica interfaccia usb 2 panasonic cq-c9901n www ilove you mx 450 vargues ursula kaon ricevitore digitale terrestre roccamena fujifilm foto di mostri umani ragazza brescia il sangue del vampiro range expander wireless big busty memoria rambus rimm montesano debiti ante- elettronica progetti la vinotinto le avventure di mister cory casse blutooth jimmy mathis il naufrago del pacifico fiat 125 olio extravergine di oliva gastronomia

Ada

Tested With:

Gnat GPL 2005
- Amd-64bit-3500 -WinXP

with Ada.Text_Io;
with Ada.Integer_text_IO;

procedure Call_Back_Example is
   -- Purpose: Apply a callback to an array
   -- Output: Prints the squares of an integer array to the console
  
   -- Define the callback procedure
   procedure Display(Location : Positive; Value : Integer) is
   begin
      Ada.Text_Io.Put("array(");
      Ada.Integer_Text_Io.Put(Item => Location, Width => 1);
      Ada.Text_Io.Put(") = ");
      Ada.Integer_Text_Io.Put(Item => Value * Value, Width => 1);
      Ada.Text_Io.New_Line;
   end Display;
  
   -- Define an access type matching the signature of the callback procedure
   type Call_Back_Access is access procedure(L : Positive; V : Integer);
  
   -- Define an unconstrained array type
   type Value_Array is array(Positive range <>) of Integer;
  
   -- Define the procedure performing the callback
   procedure Map(Values : Value_Array; Worker : Call_Back_Access) is
   begin
      for I in Values'range loop
         Worker(I, Values(I));
      end loop;
   end Map;
  
   -- Define and initialize the actual array
   Sample : Value_Array := (5,4,3,2,1);
  
begin
   Map(Sample, Display'access);   
end Call_Back_Example;

C

Tested With:

GCC 3.3.6
- i686-pc-linux-gnu
GCC 3.4.6
- i686-pc-linux-gnu
GCC 4.0.3
- i686-pc-linux-gnu
GCC 4.1.1
- i686-pc-linux-gnu
- powerpc-unknown-linux-gnu
TCC 0.9.23
- i686-pc-linux-gnu
ICC 9.1
- i686-pc-linux-gnu

callback.h

 #ifndef __CALLBACK_H
 #define __CALLBACK_H
 /*
  * By declaring the function in a separate file, we allow
  * it to be used by other source files.
  *
  * It also stops ICC from complaining.
  *
  * If you don't want to use it outside of callback.c, this
  * file can be removed, provided the static keyword is prepended
  * to the definition.
  */
 void map(int* array, int len, void(*callback)(int,int));
 #endif

callback.c

 #include <stdio.h>
 #include "callback.h"
 /*
  * We don't need this function outside of this file, so
  * we declare it static.
  */
 static void callbackFunction(int location, int value)
 {
   printf("array[%d] = %d\n", location, value);
 } 
 void map(int* array, int len, void(*callback)(int,int))
 {
   int i;
   for(i = 0; i < len; i  )
   {
      callback(i, array[i]);
   }
 } 
 int main()
 {
   int array[] = { 1, 2, 3, 4 };
   map(array, 4, callbackFunction);
   return 0;
 }

Output

 array[0] = 1
 array[1] = 2
 array[2] = 3
 array[3] = 4

C#

Platform: .NET

Language Version: 2.0

Compiler: Visual C# 2005

using System; 

static class Program
{
  // Purpose: Apply a callback (or anonymous method) to an Array
  // Output: Prints the squares of an int array to the console.
  // Compiler: Visual Studio 2005
  // Framework: .net 2
   
  [STAThread]
  public static void Main() 
  {
    int[] intArray = { 1, 2, 3, 4, 5 };

    // Using a callback,
    Console.WriteLine("Printing squares using a callback:");
    Array.ForEach<int>(intArray, PrintSquare);

    // or using an anonymous method:
    Console.WriteLine("Printing squares using an anonymous method:");
    Array.ForEach<int>
    (
      intArray,
      delegate(int value) 
      {
        Console.WriteLine(value * value);    
      });
  }

  public static void PrintSquare(int value) 
  { 
    Console.WriteLine(value * value);
  }
}

C

Compiler: GNU Compiler Collection 4.1.1

Using c-style array

#include <iostream> //cout for printing
#include <algorithm> //for_each defined here
//create the function (print the square)
void print_square(int i) {
  std::cout << i*i << " ";
}
int main() {
  //create the array
  int ary[]={1,2,3,4,5};
  //stl for_each
  std::for_each(ary,ary 5,print_square);
  return 0;
}
//prints 1 4 9 16 25

Using std::vector

#include <iostream> //cout for printing
#include <algorithm> //for_each defined here
#include <vector> //stl vector class
//create the function (print the square)
void print_square(int i) {
  std::cout << i*i << " ";
}
int main() {
  //create the array
  std::vector<int> ary;
  ary.push_back(1);
  ary.push_back(2);
  ary.push_back(3);
  ary.push_back(4);
  ary.push_back(5);
  //stl for_each
  std::for_each(ary.begin(),ary.end(),print_square);
  return 0;
}
//prints 1 4 9 16 25

More tricky with binary function

#include <iostream> //cout for printing
#include <algorithm> //for_each defined here
#include <vector> //stl vector class
#include <functional> //bind and ptr_fun
//create a binary function (print any two arguments together)
template<class type1,class type2>
void print_juxtaposed(type1 x, type2 y) {
  std::cout << x << y;
}
int main() {
  //create the array
  std::vector<int> ary;
  ary.push_back(1);
  ary.push_back(2);
  ary.push_back(3);
  ary.push_back(4);
  ary.push_back(5);
  //stl for_each, using binder and adaptable unary function
  std::for_each(ary.begin(),ary.end(),std::bind2nd(std::ptr_fun(print_juxtaposed<int,std::string>),"x "));
  return 0;
}
//prints 1x 2x 3x 4x 5x

Using Boost.Lambda

 using namespace std;
 using namespace boost::lambda;
 vector<int> ary(10);
 int i = 0;
 for_each(ary.begin(), ary.end(), _1 =   var(i)); // init array
 transform(ary.begin(), ary.end(), ostream_iterator<int>(cout, " "), _1 * _1); // square and output

Clean

Define a function and an initial (unboxed) array.

square x = x * x

values :: {#Int}
values = {x \\ x <- [1 .. 10]}

One can easily define a map for arrays, which is overloaded and works for all kinds of arrays (lazy, strict, unboxed).

mapArray f array = {f x \\ x <-: array}

Apply the function to the initial array (using a comprehension) and print result.

Start :: {#Int}
Start = mapArray square values

Common Lisp

Imperative: print 1, 2, 3, 4 and 5:

 (map nil #'print #(1 2 3 4 5))

Functional: collect squares into new vector that is returned:

 (defun square (x) (* x x))
 (map 'vector #'square #(1 2 3 4 5))

Destructive, like the Javascript example; add 1 to every slot of vector *a*:

 (defvar *a* (vector 1 2 3))
 (map-into *a* #'1  *a*)

E

def array := [1,2,3,4,5]
def square(value) { 
    return value * value
}

Example of builtin iteration:

def callback(index, value) { 
    println(`Item $index is $value.`)
}
array.iterate(callback)

There is no builtin map function yet. the following is one of the ways one could be implemented, returning a plain list (which is usually an array in implementation).

def map(func, collection) {
    def output := [].diverge()
    for item in collection {
        output.push(func(item))
    }
    return output.snapshot()
}
println(map(square, array))

Forth

This is a word that will call a given function on each cell in an array.

: map ( addr n fn -- )
   -rot cells bounds do  i @ over execute i !  cell  loop ;

Example usage:

create data 1 , 2 , 3 , 4 , 5 ,
data 5 ' 1  map  \ adds one to each element of data

Fortran

      program test
C
C--   Declare array:
      integer a(5)
C
C--   Fill it with Data
      data a /45,22,67,87,98/
C
C--   Do something with all elements (in this case: print their squares)
      do i=1,5
        print *,a(i)*a(i)
      end do
C
      end

FP

Interpreter : "fp"

 {square * . [id, id]}