RosettaCodeData/Task/Gamma-function/PureBasic/gamma-function-2.purebasic

Debug "Gamma()"
For i = 12 To 15
  Debug StrD(i/3.0, 3)+"   "+StrD(Gamma(i/3.0))
Next i
Debug ""
Debug "Ln(Gamma(5.0)) = "+StrD(GammLn(5.0), 16) ; Ln(24)
Debug ""
Debug "Factorial 6 = "+StrD(Factorial(6), 0) ; 72