Data commit

Task/Ludic-numbers/PureBasic/ludic-numbers.basic

@@ -0,0 +1,39 @@
+EnableExplicit
+If Not OpenConsole() : End 1 : EndIf
+
+#NMAX=25000
+
+Dim ludic.b(#NMAX)
+FillMemory(@ludic(0),SizeOf(Byte)*#NMAX,#True,#PB_Byte)
+
+Define.i  i,j,n,c1,c2
+Define    r1$,r2$,r3$,r4$
+
+For i=2 To Int(#NMAX/2)
+  If ludic(i)
+    n=0
+    For j=i+1 To #NMAX
+      If ludic(j) : n+1 : EndIf
+      If n=i : ludic(j)=#False : n=0 : EndIf
+    Next j
+  EndIf
+Next i
+
+n=0 : c1=0 : c2=0
+For i=1 To #NMAX
+  If ludic(i) And n<25 : n+1 : r1$+Str(i)+" " : EndIf
+  If i<=1000 : c1+Bool(ludic(i)) : EndIf
+  c2+Bool(ludic(i))
+  If c2>=2000 And c2<=2005 And ludic(i) : r3$+Str(i)+" " : EndIf
+  If i<243 And ludic(i) And ludic(i+2) And ludic(i+6)
+    r4$+"["+Str(i)+" "+Str(i+2)+" "+Str(i+6)+"] "
+  EndIf
+Next
+r2$=Str(c1)
+
+PrintN("First 25 Ludic numbers: "     +r1$)
+PrintN("Ludic numbers below 1000: "   +r2$)
+PrintN("Ludic numbers 2000 to 2005: " +r3$)
+PrintN("Ludic Triplets below 250: "   +r4$)
+Input()
+End