Data commit

Task/Pancake-numbers/Chipmunk-Basic/pancake-numbers.basic

@@ -0,0 +1,21 @@
+100 c = 0
+110 for i = 0 to 3
+120   for j = 1 to 5
+130     n = (i*5)+j
+140     c = c+1
+150     print "p(";format$(n,"##");") = ";format$(pancake(n),"##");"  ";
+160     if c mod 5 = 0 then print
+170   next j
+180 next i
+190 end
+200 function pancake(n)
+210   gap = 2
+220   sum = 2
+230   adj = -1
+240   while sum < n
+250     adj = adj+1
+260     gap = (gap*2)-1
+270     sum = sum+gap
+280   wend
+290   pancake = n+adj
+300 end function