Haskell:
पाठ खोजना और बदलना

import Data.List (isInfixOf)

-- टेक्स्ट सर्च फंक्शन
searchText :: String -> String -> Bool
searchText = isInfixOf

-- टेक्स्ट रिप्लेस फंक्शन
replaceText :: Eq a => [a] -> [a] -> [a] -> [a]
replaceText [] _ _ = []
replaceText s find repl = if take (length find) s == find
                          then repl ++ replaceText (drop (length find) s) find repl
                          else head s : replaceText (tail s) find repl

-- उदाहरण का उपयोग
main :: IO ()
main = do
    let text = "नमस्ते हास्केल दुनिया"
    let searchTextResult = searchText "हास्केल" text
    print searchTextResult -- आउटपुट: True

    let replaceTextResult = replaceText text "हास्केल" "वर्ल्ड"
    putStrLn replaceTextResult -- आउटपुट: नमस्ते वर्ल्ड दुनिया