home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / LF / PRINTVAR.LF < prev    next >
Text File  |  1996-06-04  |  190b  |  10 lines
  1.  
  2. % Create a sequence of new variables with given prefix:
  3. p(0) :- !.
  4. p(_A,S) :-
  5.         _B = strcon(S,int2str(_A)),
  6.         _C = strcon(_B,"."),
  7.         @ = parse(_C),
  8.         p(_A - 1, S).
  9.  
  10.