Mercurial > repo
changeset 1351:844a691cf7dc
<GreyKnight> fetch http://sprunge.us/FdNb
author | HackBot |
---|---|
date | Thu, 10 Jan 2013 13:33:33 +0000 |
parents | 3336903b8bb5 |
children | cbe75202b96a |
files | FdNb |
diffstat | 1 files changed, 30 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/FdNb Thu Jan 10 13:33:33 2013 +0000 @@ -0,0 +1,30 @@ +import Data.List +import Data.Char +import System.Environment + +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 + args <- getArgs + template <- getLine + putStrLn (applyTemplate ( + case (length args) of + 0 -> "Fiora" + otherwise -> args !! 0 + ) template) +