Continued fraction/Arithmetic/G(matrix ng, continued fraction n1, continued fraction n2): Difference between revisions

Content added Content deleted

Inline

@@ Line 739: / Line 739: @@
       put_line (to_string (cf2string (cf)));
     else
-        move (source => to_string (cf2string (cf)),
+      move (source => to_string (cf2string (cf)),
-              target => contfrac,
+            target => contfrac,
-              justify => left);
+            justify => left);
-        put (contfrac);
+      put (contfrac);
-        put_line (note);
+      put_line (note);
     end if;
   end;