Here's a pretty straightforward approach:

combine [] ys = ys
combine xs [] = xs
combine (x:xs) (y:ys) | x <= y = x : combine xs (y:ys)
                                  | otherwise = y : combine (x:xs) ys

On Sat, Apr 4, 2009 at 8:40 PM, michael rice <[email protected]> wrote:

> Is there a simple way to combine two sequences that are in ascending order
> into a single sequence that's also in ascending order? An example would be
> the squares [1,4,9,16,25..] combined with the cubes [1,8,27,64,125..] to
> form [1,1,4,8,9,16,25,27..].
>
> Michael
>
>
>
> _______________________________________________
> Haskell-Cafe mailing list
> [email protected]
> http://www.haskell.org/mailman/listinfo/haskell-cafe
>
>
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to