Changeset 1065


Ignore:
Timestamp:
Jul 30, 2003, 10:26:29 AM (17 years ago)
Author:
sveta
Message:
  • Test for Table is modified.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/samples/Table/loop.rf

    r1003 r1065  
    22$use Arithm;
    33$use StdIO;
     4$use Dos;
    45
    56$table F;
     
    910Main = <Loop 1>;
    1011
    11 Loop
    12 {
    13 20000 = <Lookup &F 'Q'>;
    14 s1 = <Bind &F (s1) (s1) > <Loop  <"+" 1 s1>>;
     12Loop s1 =
     13{ 1
     14   $iter <Bind &F (s1)(s1)>
     15          <"+" 1 s1> ::s1,
     16   s1 : 2560000,
     17   = /*  <In-Table? &F 1> */ ;
    1518};
    16  
Note: See TracChangeset for help on using the changeset viewer.