The L-BASIC compiler

[Jack]

hello luke
you said that L-Basic is broken, nonetheless I would like to report my findings
the following works

Code: (Select All)

dim as integer i

dim as integer x



x=13

i=10*(x+1)

print i

but not this

Code: (Select All)

dim as integer i

dim as integer x



x=13

i=10*(10*(x+1))

print i

Both operands to a binary operator are not of the same type!
  %mul2 = mul i32 10, i16 %mul
LLVM ERROR: Broken function found, compilation aborted!
Compilation failed.

array in user defined functions are not supported and the printing of double is in fixed format
however, I got the following to work

Code: (Select All)

dim as integer i



for i=1 to 18

    print i, gamma(i)

next



function gamma#(byval x as double) 'as double

    dim as double a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, f, y, z

    dim as double a11, a12, a13, a14, a15, a16, a17, a18, a19, a20

    a1 =  0.9999999999999999

    a2 =  0.08333333333338228

    a3 =  0.003472222216158396

    a4 = -0.002681326870868177

    a5 = -0.0002294790668608988

    a6 =  0.0007841331256329749

    a7 =  6.903992060449035e-05

    a8 = -0.0005907032612269776

    a9 = -2.877475047743023e-05

    a10 =  0.0005566293593820988

    a11 =  0.001799738210158344

    a12 = -0.008767670094590723

    a13 =  0.01817828637250317

    a14 = -0.02452583787937907

    a15 =  0.02361068245082701

    a16 = -0.01654210549755366

    a17 =  0.008304315532029655

    a18 = -0.00284326571576103

    a19 =  0.0005961678245858015

    a20 = -5.783378931872318e-05



    z=2.506628274631001*x^(x-.5)/(2.718281828459045^x) ' *exp(-x)

    f=x*x : f=f*f : f=f*f*x : f=f*f*x 'f = x^19

    y=x*a1+a2

    y=a3+y*x

    y=a4+y*x

    y=a5+y*x

    y=a6+y*x

    y=a7+y*x

    y=a8+y*x

    y=a9+y*x

    y=a10+y*x

    y=a11+y*x

    y=a12+y*x

    y=a13+y*x

    y=a14+y*x

    y=a15+y*x

    y=a16+y*x

    y=a17+y*x

    y=a18+y*x

    y=a19+y*x

    y=z*(a20+y*x)/f



    gamma=y

end function

the exp function is not supported but you can use e^x instead