fork download

open System
open System.Diagnostics
 
type complex = C of float*float
 
let check (n: int) = true
 
let sum (a: complex) (b: complex) =
    match a, b with
        | C(x1, y1), C(x2, y2) -> C(x1+x2, y1+y2)
 
let mult (a: complex) (b: complex) =
    match a, b with
        | C(x1, y1), C(x2, y2) -> C(x1*x2-y1*y2, x1*y2+x2*y1)
 
let exp (e: float) =
    C(cos e, -sin e)
 
let opp (c: complex) =
    match c with
        | C(a, b) -> C(-a, -b)
 
let rec transform (x: complex array) =
    if not (check x.Length) then failwith "Error, input size invalid"
 
    if x.Length = 1 then x
    else
        let even = Array.init (x.Length/2) (fun i -> x.[2*i])
        let odd = Array.init (x.Length/2) (fun i -> x.[2*i+1])
        let es: complex array = transform even
        let os: complex array = transform odd
        let ret: complex array = Array.zeroCreate x.Length
 
        for i in 0..(x.Length/2)-1 do
            let e = 2. * Math.PI * float i / float x.Length
            ret.[i] <- sum (es.[i]) (mult (exp e) (os.[i]))
            ret.[i+(x.Length/2)] <- sum (es.[i]) (mult (opp (exp e)) (os.[i]))
 
        ret
 
let rndGen = new System.Random(int System.DateTime.Now.Ticks)
let a: complex array = Array.init 65536 (fun _ ->
    let x, y = float rndGen.next(128), float rndGen.next(128)
	C(x, y)
)
let t = new Stopwatch()
t.Start()
//let x = transform [|C(1., 0.); C(1., 0.); C(1., 0.); C(1., 0.) |]
let x = transform a
printfn "tempo di esecuzione: %i" t.ElapsedMilliseconds
printfn "%A" x

/home/3w6LOw/prog.fs(43,22): error FS0597: Successive arguments should be separated by spaces or tupled, and arguments involving function or method applications should be parenthesized

/home/3w6LOw/prog.fs(44,1): error FS1161: TABs are not allowed in F# code unless the #indent "off" option is used

/home/3w6LOw/prog.fs(43,46): error FS0597: Successive arguments should be separated by spaces or tupled, and arguments involving function or method applications should be parenthesized

/home/3w6LOw/prog.fs(43,5): error FS0588: Block following this 'let' is unfinished. Expect an expression.

/home/3w6LOw/prog.fs(44,2): error FS0010: Unexpected identifier in expression. Expected ')' or other token.

/home/3w6LOw/prog.fs(42,41): error FS0583: Unmatched '('

/home/3w6LOw/prog.fs(44,3): warning FS0058: Possible incorrect indentation: this token is offside of context started at position (42:24). Try indenting this token further or using standard formatting conventions.

/home/3w6LOw/prog.fs(44,2): error FS0597: Successive arguments should be separated by spaces or tupled, and arguments involving function or method applications should be parenthesized

/home/3w6LOw/prog.fs(45,1): error FS0010: Unexpected symbol ')' in binding. Expected incomplete structured construct at or before this point or other token.

Standard output is empty