Ignore:
Timestamp:
Aug 14, 2003, 9:54:58 AM (17 years ago)
Author:
sveta
Message:
  • Test for Vector::= (memory bugs).
File:
1 edited

Legend:

Unmodified
Added
Removed

  • to-imperative/trunk/samples/Vector/mem.rf

    r1189 r1204  
    11$use Vector;
    22$use StdIO;
    3 $vector V;
    43
    5 Main  =  ;
     4Main  = <Vector> :: s1,
     5        <Vector-Init s1 5 ('DDD')>
     6        <PrintLN "Vector-Init = " <Vector-To-Exp s1>> 
     7        <Vector-Replace s1 ('ABC') s1  >
     8        <PrintLN "\n Length=" <Vector-Length s1>>
     9        <PrintLN "Replace = " <Vector-To-Exp s1>>;
     10 
Note: See TracChangeset for help on using the changeset viewer.