Find palindromic numbers in both binary and ternary bases: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,005: / Line 2,005: @@
 see "wait for done..." + nl
 while true
-      binpal = bin(nr)
+      binpal = basedigits(nr,2)
-      terpal = ter(nr)
+      terpal = basedigits(nr,3)
       bool1 = ispalindrome(binpal)
       bool2 = ispalindrome(terpal)
@@ Line 2,020: / Line 2,020: @@
 see "done..." + nl
-func bin(n)
+func basedigits(n,base)
      if n = 0
         return "0"
@@ Line 2,026: / Line 2,026: @@
      result = ""
      while n > 0
-           result = string(n % 2) + result
+           result = string(n % base) + result
-           n = floor(n/2)
+           n = floor(n/base)
-     end
-     return result
-func ter(n)
-     if n = 0
-        return "0"
-     ok
-     result = ""
-     while n > 0
-           result = string(n % 3) + result
-           n = floor(n/3)
      end
      return result
@@ Line 2,055: / Line 2,044: @@
         return 0
      ok
 </lang>
 {{out}}