Data commit

Task/Pancake-numbers/True-BASIC/pancake-numbers.basic

@@ -0,0 +1,21 @@
+FUNCTION pancake(n)
+    LET gap = 2
+    LET sum = 2
+    LET adj = -1
+    DO while sum < n
+       LET adj = adj+1
+       LET gap = (gap*2)-1
+       LET sum = sum+gap
+    LOOP
+    LET pancake = n+adj
+END FUNCTION
+
+FOR i = 0 to 3
+    FOR j = 1 to 5
+        LET n = (i*5)+j
+        LET c = c+1
+        PRINT  using "p(##) = ##  ": n, pancake(n);
+        IF remainder(round(c),5) = 0 then PRINT
+    NEXT j
+NEXT i
+END