31.03.2010 PL/SQL и Java. Кто быстрее?

CREATE OR REPLACE AND RESOLVE JAVA SOURCE NAMED "java_test" AS
import JAVA.lang.*;
import JAVA.util.*;

PUBLIC class java_test
{

  static HashMap Map=NEW HashMap();

  PUBLIC static void exp_test()
  {
    double n;
    FOR (int i=1; i<=1000000; i++)
      n=Math.EXP(1/(double)i);
  }

  PUBLIC static void array_add_test()
  {
    double[] arr=NEW double[5000000];
    FOR (int i=0; i<5000000; i++)
      arr[i]=1/(double)i;
  }

  PUBLIC static void hashmap_add_test()
  {
    double n;
    FOR (int i=1; i<=1000000; i++)
      Map.put(NEW INTEGER(i),NEW Double(1/(double)i));
  }

  PUBLIC static void hashmap_search_test()
  {
    FOR (int i=1; i<=1000000; i++)
      Map.get(NEW INTEGER(i));
  }
}
/

CREATE OR REPLACE
PACKAGE plsql_java_test
IS

  TYPE ttMAP_P IS TABLE OF NUMBER INDEX BY PLS_INTEGER;
  TYPE ttMAP_V IS TABLE OF NUMBER INDEX BY VARCHAR2(48);

  gtMAP_P ttMAP_P;
  gtMAP_V ttMAP_V;

  PROCEDURE plsql_exp_test;
  PROCEDURE java_exp_test;

  PROCEDURE plsql_array_add_test;
  PROCEDURE java_array_add_test;

  PROCEDURE plsql_hashmap_int_add_test;
  PROCEDURE plsql_hashmap_varchar_add_test;
  PROCEDURE java_hashmap_add_test;

  PROCEDURE plsql_hashmap_int_search;
  PROCEDURE plsql_hashmap_varchar_search;
  PROCEDURE java_hashmap_search;

END plsql_java_test;
/

CREATE OR REPLACE
PACKAGE BODY plsql_java_test
IS

  PROCEDURE plsql_exp_test
  IS
    n NUMBER;
  BEGIN
    FOR i IN 1..1000000
    LOOP
      n:=1/i;
      n:=EXP(n);
    END LOOP;
  END plsql_exp_test;

  PROCEDURE java_exp_test
  AS language JAVA
  name 'java_test.exp_test()';

  PROCEDURE plsql_array_add_test
  IS
    TYPE ttARR IS varray(5000000) OF NUMBER;
    ltARR ttARR:=ttARR();
    n NUMBER;
  BEGIN
    ltARR.extend(5000000);
    FOR i IN 1..5000000
    LOOP
      n:=1/i;
      ltARR(i):=n;
    END LOOP;
  END plsql_array_add_test;

  PROCEDURE java_array_add_test
  AS language JAVA
  name 'java_test.array_add_test()';

  PROCEDURE plsql_hashmap_int_add_test
  IS
    n NUMBER;
  BEGIN
    gtMAP_P.DELETE;
    FOR i IN 1..1000000
    LOOP
      n:=1/i;
      gtMAP_P(i):=n;
    END LOOP;
  END plsql_hashmap_int_add_test;

  PROCEDURE plsql_hashmap_varchar_add_test
  IS
    n NUMBER;
  BEGIN
    gtMAP_V.DELETE;
    FOR i IN 1..1000000
    LOOP
      n:=1/i;
      gtMAP_V(i):=n;
    END LOOP;
  END plsql_hashmap_varchar_add_test;

  PROCEDURE java_hashmap_add_test
  AS language JAVA
  name 'java_test.hashmap_add_test()';

  PROCEDURE plsql_hashmap_int_search
  IS
    n NUMBER;
  BEGIN
    IF gtMAP_P.COUNT=0
    THEN
      plsql_hashmap_int_add_test;
    END IF;
    FOR i IN 1..1000000
    LOOP
      n:=gtMAP_P(i);
    END LOOP;
  END plsql_hashmap_int_search;
 
  PROCEDURE plsql_hashmap_varchar_search
  IS
    n NUMBER;
  BEGIN
    IF gtMAP_V.COUNT=0
    THEN
      plsql_hashmap_varchar_add_test;
    END IF;
    FOR i IN 1..1000000
    LOOP
      n:=gtMAP_V(i);
    END LOOP;
  END plsql_hashmap_varchar_search;

  PROCEDURE java_hashmap_search
  AS language JAVA
  name 'java_test.hashmap_search_test()';

END plsql_java_test;
/