Хаскелл. Самый быстрый способ найти похожие элементы в двух Data.Map

Я пытаюсь сравнить элементы двух карт с помощью функции сравнения. Результирующее решение должно вернуть список пар ключ-значение из первой карты, которые похожи на некоторые значения из второй (сравниваются только значения). Ввод выглядит следующим образом:

let a = fromList [(0,15),(1,150),(2,39),(3,18)]
let b = fromList [(0,151),(1,39),(2,0),(3,1)]

-- Function that performs comparison. Returns True if items are similar
isSimilar :: Int -> Int -> Bool
isSimilar a b = abs (b - a) <= 1 

Результат должен быть следующим:

result = [(1,150),(2,39)]

Я закончил со следующей реализацией:

import qualified Data.IntMap.Strict as M
import Test.Hspec

type Elem = M.IntMap Int


-- Function that does all the work
getSimilarities :: Elem -> Elem -> [(Int,Int)]
getSimilarities cur intersected = M.foldrWithKey (\k p lst -> if M.null (check p)
                                               then lst
                                               else (k, p) : lst) [] cur
    where check pnt = M.filter (isSimilar pnt) intersected

-- Comparator that helps to filter out unnecessary values
isSimilar :: Int -> Int -> Bool
isSimilar a b = abs (b - a) <= 1 

-- Main function that runs the test
main :: IO ()
main = hspec spec

spec :: Spec
spec = do
        it "Get similarities test" $ do
            let xs        = [3,31,0,151,25,120]
            let mp        = M.fromList $ zip [0..(length xs)] xs

            let xs'        = [5,17,32,150,9,90]
            let mp'        = M.fromList $ zip [0..(length xs')] xs'

            let expected   = [(1, 31),(3, 151)]
            getSimilarities mp mp' `shouldBe` expected

Однако мне не очень нравится функция «проверить», так как мне не нужно формировать там новую карту, мне нужно просто проверить значение. Не могли бы вы предложить, есть ли более эффективный и производительный способ сделать то, что мне нужно? Спасибо.