# Pastebin lIpmTDCu
-- My code:

fromString : (a -> b) -> List a -> b -> Maybe a
fromString f xs s = List.foldr (\x o -> if f x == s then Just x else o) Nothing xs

-- Canonical:

fromString : (a -> b) -> List a -> b -> Maybe a
fromString f xs s =
    List.foldr
        (\x o ->
            if f x == s then
                Just x

            else
                o
        )
        Nothing
        xs