summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/replace.hs
blob: f20a6b867cf9718bc39306fddc1656f80b62799f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/env runhaskell

import Data.List(isPrefixOf)
import System(getArgs)

rep (c,r) [] = []
rep (c,r) f@(x:xs) 
  | c `isPrefixOf` f = r ++ rep (c,r) (drop (length c) f)
  | otherwise        = x:(rep (c,r) xs)

main = do
    args <- getArgs
    let [p',r'] = map (rep ("\\n","\n")) args
    interact $ rep (p',r')