Data commit

Task/Leonardo-numbers/PureBasic/leonardo-numbers.basic

@@ -0,0 +1,29 @@
+EnableExplicit
+
+#N = 25
+
+Procedure leon_R(a.i, b.i, s.i = 1, n.i = #N)
+
+  If n>2
+    Print(Space(1) + Str(a + b + s))
+    ProcedureReturn leon_R(b, a + b + s, s, n-1)
+  EndIf
+
+EndProcedure
+
+If OpenConsole()
+
+  Define r$
+
+  Print("Enter first two Leonardo numbers and increment step (separated by space) : ")
+  r$ = Input()
+  PrintN("First " + Str(#N) + " Leonardo numbers : ")
+  Print(StringField(r$, 1, Chr(32)) + Space(1) +
+        StringField(r$, 2, Chr(32)))
+
+  leon_R(Val(StringField(r$, 1, Chr(32))),
+         Val(StringField(r$, 2, Chr(32))),
+         Val(StringField(r$, 3, Chr(32))))
+
+  r$ = Input()
+EndIf