On Sun, 4 Jul 2010, Michael Mossey wrote:

Henning Thielemann wrote:

On Sun, 4 Jul 2010, Michael Mossey wrote:

I can solve a simpler problem which is

computeSoundedEnd :: Item -> [Item] -> Loc
computeSoundedEnd firstNote notes = compSndEnd (pitch firstNote) notes

You will certainly not be able to make use of foldl or foldr, but you may use a manual recursion instead. Just like

computeAllEnds :: [Item] -> [Item]

What makes it harder than this is that the original document is not a single list of Item's--they are broken into measures.

That is, you want a function of type

computeAllEnds :: [Measure] -> [Measure]

?
_______________________________________________
haskell-art mailing list
[email protected]
http://lists.lurk.org/mailman/listinfo/haskell-art

Reply via email to