Algorithmes de la morphologie mathématique pour - Pastel - HAL

Jaromír BRAMBORtestSIMD :: PVec I α → (α → α → Bool) → PVec I α → PVec I BooltestSIMD pv 1 cnd pv 2 = listArray (bounds $ pv 1 ) (map2 cnd (elems$pv 1 ) (elems$pv 2 ) )La fonction de déplacement conditionnel cndmoveSIMD va utiliser un masque msk pour constituer unvecteur paqueté à partir de deux vecteurs paquetés d’entrée pv 1 et pv 2 . Selon les valeurs du masque Trueou False, les éléments du pv 1 ou pv 2 , respectivement, sont copiés dans le vecteur résultant.cndmoveSIMD :: PVec I Bool → PVec I α → PVec I α → PVec I αcndmoveSIMD msk pv 1 pv 2 = listArray (bounds $ pv 1 ) (map2 ( λ msk x y → if msk then x else y)(elems$pv 1 )(elems$pv 2 ))Fonction mapping travaillant avec plusieurs valeurs d’entréeLa fonction map2 effectue le mapping d’une fonction prenant deux arguments. Son fonctionnementest identique à celui de la fonction zipWith du Haskell :map2 = zipWith203