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

Content added Content deleted

Inline

@@ Line 2,973: / Line 2,973: @@
 procedure cf2string (cf, max_terms)
   local s, i, done, term
+  static separators
-  local sep_str
+  initial {
+    separators := ["", ";", ","]
+  }
   /max_terms := 20
@@ Line 2,988: / Line 2,992: @@
       done := YES
     } else {
-      s ||:= ["", ";", ","][min (i + 1, 3)] || term
+      s ||:= separators[min (i + 1, 3)] || term
       i +:= 1
     }
@@ Line 3,097: / Line 3,101: @@
   if /cf then {
-    # Generate "infinity" terms.
+    # Generate only "infinite" terms.
     source := create generate_constant (&null)
   } else if type(cf) == "co-expression" then {