Changeset 1164


Ignore:
Timestamp:
Aug 12, 2003, 11:08:23 PM (17 years ago)
Author:
sveta
Message:
  • Test for Table (memory_bugs for tail_CALL).
Location:
to-imperative/trunk/samples/Table
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/samples/Table/Makefile

    r968 r1164  
    88  domain \
    99  lookup \
    10   table_copy
     10  table_copy \
     11  loop \
     12  error
    1113
    1214include $(TOPDIR)/samples/samples.mk
  • to-imperative/trunk/samples/Table/loop.rf

    r1065 r1164  
    11$use Table;
    22$use Arithm;
    3 $use StdIO;
    4 $use Dos;
     3$use StdIO; 
     4$use Dos; 
    55
    66$table F;
    77
    88$func Loop s1 = ex;
     9$func Search s1 = ex ;
    910
    1011Main = <Loop 1>;
     
    1213Loop s1 =
    1314{ 1
    14    $iter <Bind &F (s1)(s1)>
    15           <"+" 1 s1> ::s1,
    16    s1 : 2560000,
    17    = /*  <In-Table? &F 1> */ ;
     15   $iter  <Bind &F (s1)(s1)>
     16          <"+" 1 s1> ::s1,   
     17   s1 : 10,
     18   =
     19  <PrintLN <Time>>       
     20/*     ,     */
     21     <Search 1>;
     22};
     23
     24Search s1 =
     25{ 1
     26   $iter { <In-Table? &F "Q"> = 0; 
     27             <"+" 1 s1>;
     28         } :: s1,
     29    s1 : 10, =     
     30  <PrintLN <Time>>    ;
    1831};
Note: See TracChangeset for help on using the changeset viewer.