# [Gambas-user] I asked chat gpt to write a gambas script, here is what it did

Brian G brian at westwoodsvcs.com
Tue Feb 14 08:37:10 CET 2023

```I asked it for a faster algorithm it gave me this
using the Sieve of Eratosthenes, along with the count:
Public Sub Main()

Dim limit As Integer = 3000
Dim isPrime As Boolean[] = New Boolean[limit + 1]
Dim primes As New Integer[]

For i As Integer = 2 To limit
isPrime[i] = True
Next

For i As Integer = 2 To limit
If isPrime[i] Then
For j As Integer = i * i To limit Step i
isPrime[j] = False
Next
Endif
Next

Print "Prime numbers between 2 and 300:"
For Each prime As Integer In primes
Print prime
Next

Print "Total number of primes found: " & primes.Count

End

"Failure is the key to success;
each mistake teaches us something" .. Morihei Ueshiba
Brian G

----- On Feb 13, 2023, at 11:24 PM, Brian G <brian at westwoodsvcs.com> wrote:

> write a gambas script to print primes from 2 to 300
> please also print the number of primes found
> here is the script it produced

> Public Sub Main() Dim primes As New Integer[] For i As Integer = 2 To 300 Dim
> isPrime As Boolean = True For j As Integer = 2 To i - 1 If i Mod j = 0 Then
> isPrime = False Exit Endif Next If isPrime Then primes.Add(i) Endif Next Print
> "Prime numbers between 2 and 300:" For Each prime As Integer In primes Print
> prime Next Print "Total number of primes found: " & primes.Count End

> Not elegant but it worked just fine. Ok do we really have a future here!

> spoiler, anything more complex was junk, but still....

> "Failure is the key to success;
> each mistake teaches us something" .. Morihei Ueshiba
> Brian G

> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20230213/441477b6/attachment.htm>
```