[Gambas-user] Wow, Gambas is twice as fast as (Free) Pascal

[Fabien Bodard]

Please show the Pascal code
Le 11 oct. 2014 06:58, "T Lee Davidson" <t.lee.davidson at ...626...> a écrit :

> On 10/10/2014 08:50 PM, Benoît Minisini wrote:
>
> Thank you for trying to explain that to me. But, now I am really confused.
>
> As far as I can tell, the Gambas program also uses floating point
> numbers. The only integers I see used in that program are for an
> iterator, an array index, and an iterator boundary. Everything else is
> declared as a Float.
>
> ~~~
> Sub Test(X As Float) As Float
>
>    Dim Mu As Float = 10.0
>    Dim Pu, Su As Float
>    Dim I, J, N As Integer
>    Dim aPoly As New Float[100]
>
>    N = 500000
>
>    For I = 0 To N - 1
>      For J = 0 To 99
>        Mu =  (Mu + 2.0) / 2.0
>        aPoly[J] = Mu
>      Next
>      Su = 0.0
>      For J = 0 To 99
>        Su = X * Su + aPoly[J]
>      Next
>      Pu += Su
>    Next
>
>    Return Pu
>
> End
>
> Dim I as Integer
>
> For I = 1 To 10
>    Print Test(0.2)
> Next
> ~~~
>
> What am I missing?
>
>
> ------------------------------------------------------------------------------
> Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer
> Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports
> Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper
> Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer
> http://p.sf.net/sfu/Zoho
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>