Sorry, the definition of filterArray should read:


        filterArray f z b list =
                array b [ i := foldr f z [ x | j:=x <- list, i==j ] 
                        | i <- indices b 
                        ]

-- Thomas



Reply via email to