Mercurial > repo

changeset 1353:da1eaf2e0718

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<GreyKnight> rm FdNb
author HackBot
date Thu, 10 Jan 2013 13:33:52 +0000
parents cbe75202b96a
children d24d7574db4c
files FdNb
diffstat 1 files changed, 0 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/FdNb	Thu Jan 10 13:33:48 2013 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,30 +0,0 @@
-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)
-