view ZJCe @ 1343:379d72ea85b6

<GreyKnight> fetch http://sprunge.us/ZJCe
author HackBot
date Thu, 10 Jan 2013 13:24:00 +0000
parents
children
line wrap: on
line source

import Data.List
import Data.Char

standardURL = "http://esolangs.org/wiki/Main_Page"


replace :: (Eq a) => [a] -> [a] -> [a] -> [a]
replace _ _ [] = []
replace old new (y:ys) =
  case stripPrefix old (y:ys) of
    Nothing -> y : replace old new ys
    Just ys' -> new ++ replace old new ys' 

applyGenTemplate :: String -> String -> String -> String  -- nick url template -> result
applyGenTemplate nick url template = nick ++ ": " ++ replace "^" nick (replace "@" url template)

applyTemplate :: String -> String -> String -- nick template -> result
applyTemplate nick template = applyGenTemplate nick standardURL template


main = do
	template <- getLine
	putStrLn (applyTemplate nick template)