Return to int.k CVS log

Up to [local] / OpenXM / src / k097 / debug

Annotation of OpenXM/src/k097/debug/int.k, Revision 1.1.1.1

1.1       maekawa     1:
                      2: Println("SSWork/yacc/debug/int.k  1997, 3/10  cf. SSWork/yacc/memo.txt");
                      3: Println("Check the performance of loop");
                      4: /* As to timing data, please see SSWork/yacc/memo.txt */
                      5: Println("Loaded  foo1  foo2");
                      6:
                      7: def void foo1() {
                      8:   local i,j,one,hundred ;
                      9:   Println("sm1 native for loop");
                     10:   sm1(" { 1 1 100 { /ii set 1 1 100 {/jj set } for } for } timer ");
                     11:   Println("k0 loop with sm1.integer.");
                     12:   one = sm1(" 1 "); hundred = sm1(" 100 ");
                     13:   sm1(" set_timer ");
                     14:   for (i=one; i< hundred ; i=i+one) {
                     15:     for (j=one; j< hundred ; j = j+one) {
                     16:       ;
                     17:     }
                     18:   }
                     19:   sm1(" set_timer ");
                     20:   /* sm1(" set_timer ");
                     21:   for (i=sm1(" 1 "); i< sm1(" 100 ") ; i=i+sm1(" 1 ")) {
                     22:     for (j=sm1(" 1 "); j<sm1(" 100 ") ; j = j+sm1(" 1 ")) {
                     23:       ;
                     24:     }
                     25:   }
                     26:   sm1(" set_timer "); */
                     27:   Println("Now, k0 loop with k0.integer (sm1.universalNumber). Please wait patiently.");
                     28:   sm1(" set_timer ");
                     29:   for (i=1; i<100; i=i+1 ) {
                     30:     for (j=1; j<100;j=j+1) {
                     31:       ;
                     32:     }
                     33:   }
                     34:   sm1(" set_timer ");
                     35: }
                     36:
                     37: def void foo2() {
                     38:   local i,j,one,hundred, a;
                     39:   Println("Array Indexing.");
                     40:   a = NewVector(101);
                     41:   one = sm1(" 1 "); hundred = sm1(" 100 ");
                     42:   sm1(" set_timer ");
                     43:   for (i=one; i< hundred ; i=i+one) {
                     44:     for (j=one; j< hundred ; j = j+one) {
                     45:       a[i] = i;
                     46:       if ( i + j < sm1(" 100 ")) { a[i+j] = -1; }
                     47:     }
                     48:   }
                     49:   sm1(" set_timer ");
                     50:   Println("Now, k0 loop with k0.integer (sm1.universalNumber). Please wait patiently.");
                     51:   sm1(" set_timer ");
                     52:   for (i=1; i<100; i=i+1 ) {
                     53:     for (j=1; j<100;j=j+1) {
                     54:       a[i] = i;
                     55:       if ( i + j <  100 ) { a[i+j] = -1; }
                     56:     }
                     57:   }
                     58:   sm1(" set_timer ");
                     59: }
                     60: