Changeset 1047


Ignore:
Timestamp:
Jul 19, 2003, 5:48:11 PM (17 years ago)
Author:
sveta
Message:
  • Test for Vector.
Location:
to-imperative/trunk/samples/Vector
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/samples/Vector/vector.rf

    r1042 r1047  
    55Main  = <Vector ('VA')('B') > :: s1,
    66        <Vector s1 s1> :: s2,
    7         <PrintLN "\n Vector1 =" <Vector-To-Exp s1>>
    8         <PrintLN "\n Vector2 = " <Vector-To-Exp s2>>
     7        <PrintLN "Vector1 =" <Vector-To-Exp s1>>
     8        <PrintLN "Vector2 = " <Vector-To-Exp s2>>
    99        <Vector-Fill s1 'C'>
    10         <PrintLN "\n Vector3 = " <Vector-To-Exp s1>>
    11         <Vector-Init s1 1 ('DDD')>
    12         <PrintLN "\n Vector4 = " <Vector-To-Exp s1>
    13         " length = " <Vector-Length s1>
    14         "element 2 of 2" <Vector-Ref s2 2>>;
     10        <PrintLN "Vector-Fill = " <Vector-To-Exp s1>>
     11        <Vector-Init s1 5 ('DDD')>
     12        <PrintLN "Vector-Init = " <Vector-To-Exp s1>
     13        " \n length = " <Vector-Length s1>
     14        "\n element 2 of 2" <Vector-Ref s2 2>>
     15        <Vector-Replace s1 ('ABC') s1 >
     16        <PrintLN "Replace = " <Vector-To-Exp s1>>
     17        <Subvector s1 0 2> :: s3,
     18        <PrintLN "Subvector =" <Vector-To-Exp s3>>
     19        <Subvector-Fill s3 1 1 "s3 s3 s3">
     20        <PrintLN "Subvector-Fill =" <Vector-To-Exp s3>>;
Note: See TracChangeset for help on using the changeset viewer.