// FRB Math Library — pre-compiled module loaded at runtime
// Build: five frb examples/frb_mathlib.prg -o mathlib.frb
// Copyright (c) 2026 Charles KWON OhJun (charleskwonohjun@gmail.com)

FUNCTION CircleArea(nRadius)
   RETURN 3.14159265 * nRadius * nRadius

FUNCTION Fibonacci(n)
   LOCAL a := 0, b := 1, i, temp
   IF n <= 0
      RETURN 0
   ENDIF
   IF n = 1
      RETURN 1
   ENDIF
   FOR i := 2 TO n
      temp := a + b
      a := b
      b := temp
   NEXT
   RETURN b

FUNCTION IsPrime(n)
   LOCAL i
   IF n < 2
      RETURN .F.
   ENDIF
   IF n = 2
      RETURN .T.
   ENDIF
   IF n % 2 = 0
      RETURN .F.
   ENDIF
   FOR i := 3 TO Int(Sqrt(n)) STEP 2
      IF n % i = 0
         RETURN .F.
      ENDIF
   NEXT
   RETURN .T.

FUNCTION Factorial(n)
   IF n <= 1
      RETURN 1
   ENDIF
   RETURN n * Factorial(n - 1)

FUNCTION GCD(a, b)
   DO WHILE b != 0
      LOCAL temp := b
      b := a % b
      a := temp
   ENDDO
   RETURN a