home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / inprise / JSAMPLES.Z / Algorithms1.java < prev    next >
Text File  |  1998-05-08  |  1KB  |  41 lines
  1. // Copyright(c) 1996,1997 ObjectSpace, Inc.
  2. import com.objectspace.jgl.*;
  3. import com.objectspace.jgl.algorithms.*;
  4. import com.objectspace.jgl.functions.*;
  5.  
  6. /**
  7.  * Applying provides algorithms for affecting every element in a container.
  8.  *
  9.  * @see com.objectspace.jgl.algorithms.Applying
  10.  * @version 3.0.0
  11.  * @author ObjectSpace, Inc.
  12.  */
  13.  
  14. public class Algorithms1
  15.   {
  16.   public static void main( String[] args )
  17.     {
  18.     Array array1 = new Array();
  19.     array1.add( "cat" );
  20.     array1.add( "monkey" );
  21.     array1.add( "goat" );
  22.     Applying.forEach( array1, new PrintFunction() );
  23.  
  24.     SList list = new SList();
  25.     list.add( new Integer( 3 ) );
  26.     list.add( new Integer( 7 ) );
  27.     list.add( new Integer( 4 ) );
  28.     Integer total = (Integer)Applying.inject( list, new Integer( 0 ), new PlusNumber() );
  29.     System.out.println( "list = " + list + ", total = " + total );
  30.     }
  31.   }
  32.  
  33. class PrintFunction implements UnaryFunction
  34.   {
  35.   public Object execute( Object object )
  36.     {
  37.     System.out.println( "PRINT " + object );
  38.     return null; // Not used.
  39.     }
  40.   }
  41.