एक चरित्र को अन्य

Question

> magicFunction 'l' '_' "hello world" 
["he_lo world", "hel_o world", "hello wor_d"] 

क्या मानक प्रीलूड में ऐसा जादू कार्य है या इसे अन्य कार्यों के साथ आसानी से बनाया जा सकता है?

और नहीं, यह होमवर्क नहीं है, लेकिन फिर भी, कृपया अपना खुद का जटिल समाधान हाथ से रोल करने में ज्यादा समय न दें, मैं अपने समय को बर्बाद करने के बजाय खुद को ऐसा करना चाहता हूं;) बस पूछना कि यह है या नहीं मानक।

---

संपादित करें:

import Data.List (findIndices) 

replace i y xs = take i xs ++ y : drop (i+1) xs 

magicFunction x y xs = map (\i -> replace i y xs) (findIndices (== x) xs) 

इसमें सुधार किया जा सकता है: यहाँ मेरा पहला प्रयास है? निश्चित रूप से replace जैसे कुछ मानक में होना चाहिए? मुझे replace :: Eq a => a -> a -> [a] -> [a]Network.CGI.Protocol में मिला, लेकिन इसमें गलत हस्ताक्षर है।

Answer 1

नहीं, नहीं मानक पुस्तकालयों में magicFunction की तरह कुछ है। लेकिन खुद को लिखना आसान है, इसलिए जब तक कि यह अक्सर उपयोग नहीं किया जाता है, तब तक इसे लाइब्रेरी में डालने का कोई मतलब नहीं है।

magicFunction find replace = init . helper 
    where 
    helper (c:cs) = if c == find then ((replace:cs):) else id $ map (c:) (helper cs) 
    helper [] = [[]] 

Answer 2

मानक वितरण में ऐसा कुछ भी नहीं है। हालांकि, वहाँ एक प्रसिद्ध चाल है कि एक समाधान की शुरुआत के रूप में कर सकते हैं:

Prelude Data.List> (\xs -> zip (inits xs) (tails xs)) "Hello, world!" 
[("","Hello, world!"),("H","ello, world!"),("He","llo, world!"),("Hel","lo, world!"),("Hell","o, world!"),("Hello",", world!"),("Hello,"," world!"),("Hello, ","world!"),("Hello, w","orld!"),("Hello, wo","rld!"),("Hello, wor","ld!"),("Hello, worl","d!"),("Hello, world","!"),("Hello, world!","")]