home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / VPR_DATA / DOGA / SOURCES / POLYEDIT.LZH / ML / TEST.ML < prev   
Text File  |  1994-08-13  |  2KB  |  88 lines
  1.  
  2. cout << "start\n" ;
  3.  
  4. function fact( n )
  5. {
  6.     if ( n == 0 )
  7.         return 1.0 ;
  8.     else
  9.         return fact( n-1 ) * n ;
  10. }
  11. function ff( a, b )
  12. {
  13.     var i, j ;
  14.     print ;
  15.  
  16.     for( i = 1 ; i < a ; i += 1 )
  17.     {
  18.         for( j = 1 ; j < b ; j += 1 )
  19.         {
  20.             print( tostring( i*j, -4 ) );
  21.         }
  22.         print( "\n" );
  23.     }
  24.     print( "\n" );
  25. }
  26.  
  27. function furui( n )
  28. {
  29.     var    i, j ;
  30.     var    buf[n] ;
  31.  
  32.     for( i = 3 ; i < n ; i += 2 )
  33.     {
  34.         buf[i] = 1 ;
  35.     }
  36.  
  37.     for( i = 3 ; i < n ; i += 2 )
  38.     {
  39.         if ( buf[i] == 1 )
  40.         {
  41.             for( j = i * 2 ; j < n ; j += i )
  42.                 buf[j] = 0 ;
  43.         }
  44.     }
  45.     for( i = 3 ; i < n ; i += 2 )
  46.     {
  47.         if ( buf[i] == 1 )
  48.             print( tostring( i, -6 ) );
  49.     }
  50.     print( "\n" );
  51. }
  52.  
  53. print();
  54.  
  55. //call( call, ff, 16, 16 );
  56. //furui( 1000 );
  57.  
  58. //print( "Object : ", ObjectCount(), "\n" );
  59.  
  60. var    i, n ;
  61. var    str ;
  62.  
  63. str = "abcdefg" ;
  64. str = substr( str, !str-2 );
  65.  
  66. print( "str : ", str, "\n" );
  67. cout << "substr :[" << substr( str, 2 ) << "]\n" ;
  68. cout << "substr :[" << substr( str, -2 ) << "]\n" ;
  69. cout << "substr :[" << substr( str, !str - 1 ) << "]\n" ;
  70. cout << "search : " << search( str, "6 10" ) << "\n" ;
  71. cout << "search : " << search( str, "6 11" ) << "\n" ;
  72.  
  73. cout << "asc : " << asctostr( 0x43 ) << "\n" ;
  74. cout << "asc : " << strtoasc( "abc" ) << "\n" ;
  75.  
  76. cout << "path : " << getenv( "path" ) << "\n" ;
  77. cout << "COMSPEC : " << getenv( "COMSPEC" ) << "\n" ;
  78.  
  79. cout << "access( test.ml ) :" << access( "test.ml", 2 ) << "\n" ;
  80.  
  81. cout << "Object : " << ObjectCount() << "\n" ;
  82.  
  83. print( "str :", str, "\n" );
  84. str = tostring( "zzzzzz", - 20 ) + "end" ;
  85. print( "str :", str, "\n" );
  86. str = tostring( "zzzzzz" ) + "end" ;
  87. print( "str :", str, "\n" );
  88.