Changeset 2216


Ignore:
Timestamp:
Dec 31, 2006, 12:24:18 AM (14 years ago)
Author:
yura
Message:

Test version.

File:
1 edited

Legend:

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

    r2215 r2216  
    55$use Convert;
    66$use Compare;
     7$use StdIO;
    78
    89$func QSimplify s s = t;
     
    5253
    5354QFromString \{
    54   eIn1 '.' eIn2,
    55   {eIn1 : /*empty*/, '0'; eIn1;} :: eIn1,
     55  eIn1 '.' eIn2 = <WriteLN eIn1 <Length eIn1>>,
     56  {eIn1 : /*empty*/, <PrintLN "!"> '0'; eIn1;} :: eIn1,
    5657  <Length eIn2> 1
    5758  $iter <"-" sN 1> <"*" sM 10> ::
Note: See TracChangeset for help on using the changeset viewer.