Data commit

Task/Giuga-numbers/FreeBASIC/giuga-numbers.basic

@@ -0,0 +1,20 @@
+Function isGiuga(m As Uinteger) As Boolean
+    Dim As Uinteger n = m, f = 2, l = Sqr(n)
+    Do
+        If n Mod f = 0 Then
+            If ((m / f) - 1) Mod f <> 0 Then Return False
+            n /= f
+            If f > n Then Return True
+        Else
+            f += 1
+            If f > l Then Return False
+        End If
+    Loop
+End Function
+
+Dim As Uinteger n = 3, c = 0, limit = 4
+Print "The first "; limit; " Giuga numbers are: ";
+Do
+    If isGiuga(n) Then c += 1: Print n; "  ";
+    n += 1
+Loop Until c = limit