Back to Questions
916
views3
comments
Need help for computation on 2 arrays.
f#

Hello, all:
I need a function to do the following job.

1
2

let range = [| (1.0, 2.0); (10.0, 20.0); (100.0, 200.0) |]
let badValue = [| 1.2; 1.0; 10.5 |]

The range array is an array which the first element in the tuple is always less than the second element in the tuple.
I need another array to replace array "badValue", the rule is: if the value from "badValue" is within the corresponding tuple in "range", then keep it, if not, then use the average value of the corresponding tuple in "range" to replace.
For the above example, I need this:

1

let goodValue = [| 1.2; 15.0; 150.0 |]

Anyone who has a good idea, please show me your code.
Thanks and have a nice day!

.

Ugly and longer one . :)

1
2
3
4
5
6
7
8

let goodValue (range:_ array) (badValue:_ array) =
    [|
        for i = 0 to range.Length - 1 do
            let bv = badValue.[i]
            match range.[i] with
            | a,b when a <= bv && bv <= b -> yield bv
            | a,b -> yield (a+b)/2.0
    |]
By on 1/31/2011 8:40 AM ()

Hello,
Thank you both.
Your codes work, I can see the difference between the two, but it doesn't matter, as long as it can solve my problem, it is a good solution.
Have a nice time!

By on 1/31/2011 9:28 AM ()

Try

1
2

Seq.zip range badValue
|> Seq.map (fun ((l, r), x) -> if x >= l && x <= r then x else (l+r)/2.0)

or even shorterSeq.map2 (fun (l, r) x -> if x >= l && x <= r then x else (l+r)/2.0) range badValue

or, if your result needs to be an arrayArray.map2 (fun (l, r) x -> if x >= l && x <= r then x else (l+r)/2.0) range badValue

By on 1/31/2011 8:25 AM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper