{"language":{"id":"bf-in-haskell","name":"BF in haskell","author_id":"8fdbd4ca-c912-4ac3-b195-b387677e726d","interpreter_script_id":"35feec55-7187-4f92-9c4a-9ae88f09972f","base_language":"python","verified":0,"execution_count":0,"active":1,"created_at":"2026-05-29 02:31:52","author_name":"TheOne","forked_from_title":null,"forked_from":null,"icon":"λ"},"files":[{"filename":"main.hs","content":"import System.Environment (getArgs)\nimport Data.Char (chr, ord)\nimport System.IO (hFlush, stdout)\n\n-- ==========================================\n-- 1. MODELO DE LA CINTA DE MEMORIA (ZIPPER)\n-- ==========================================\ndata Tape = Tape [Int] Int [Int]\n\ninitTape :: Tape\ninitTape = Tape (repeat 0) 0 (repeat 0)\n\nmoveRight :: Tape -> Tape\nmoveRight (Tape ls x (r:rs)) = Tape (x:ls) r rs\n\nmoveLeft :: Tape -> Tape\nmoveLeft (Tape (l:ls) x rs) = Tape ls l (x:rs)\n\nincrement :: Tape -> Tape\nincrement (Tape ls x rs) = Tape ls (x + 1) rs\n\ndecrement :: Tape -> Tape\ndecrement (Tape ls x rs) = Tape ls (x - 1) rs\n\ncurrent :: Tape -> Int\ncurrent (Tape _ x _) = x\n\nsetCurrent :: Int -> Tape -> Tape\nsetCurrent n (Tape ls _ rs) = Tape ls n rs\n\n-- ==========================================\n-- 2. EL PARSER\n-- ==========================================\ndata Command\n = MoveRight | MoveLeft | Increment | Decrement | Output | Input | Loop [Command]\n deriving (Show, Eq)\n\nparseBF :: String -> [Command]\nparseBF source = case parse source of\n (cmds, \"\") -> cmds\n (_, _) -> error \"Error de sintaxis: Bucle '[' sin cerrar\"\n where\n parse :: String -> ([Command], String)\n parse [] = ([], \"\")\n parse (c:cs) = case c of\n '>' -> let (rest, s) = parse cs in (MoveRight : rest, s)\n '<' -> let (rest, s) = parse cs in (MoveLeft : rest, s)\n '+' -> let (rest, s) = parse cs in (Increment : rest, s)\n '-' -> let (rest, s) = parse cs in (Decrement : rest, s)\n '.' -> let (rest, s) = parse cs in (Output : rest, s)\n ',' -> let (rest, s) = parse cs in (Input : rest, s)\n '[' -> let (body, rest1) = parse cs\n (rest2, s) = parse rest1\n in (Loop body : rest2, s)\n ']' -> ([], cs)\n _ -> parse cs -- Ignora comentarios y espacios en blanco\n\n-- ==========================================\n-- 3. EL EVALUADOR\n-- ==========================================\nrun :: [Command] -> Tape -> IO Tape\nrun [] tape = return tape\nrun (cmd:cmds) tape = case cmd of\n MoveRight -> run cmds (moveRight tape)\n MoveLeft -> run cmds (moveLeft tape)\n Increment -> run cmds (increment tape)\n Decrement -> run cmds (decrement tape)\n \n Output -> do\n putChar (chr (current tape))\n hFlush stdout\n run cmds tape\n \n Input -> do\n -- Babelpad leerá del STDIN dedicado para el programa esotérico\n c <- getChar\n let newTape = setCurrent (ord c) tape\n run cmds newTape\n \n Loop body -> \n if current tape == 0\n then run cmds tape\n else do\n nextTape <- run body tape\n run (Loop body : cmds) nextTape\n\n-- ==========================================\n-- 4. FUNCIÓN PRINCIPAL (TU PLANTILLA)\n-- ==========================================\nmain :: IO ()\nmain = do\n args <- getArgs\n if null args\n then putStrLn \"Error: No esoteric code provided in arguments.\"\n else do\n let esotericCode = head args\n \n -- 1. Parseamos el código recibido por argumento\n let commands = parseBF esotericCode\n \n -- 2. Ejecutamos el intérprete con la cinta inicial\n _ <- run commands initTape\n \n return ()"},{"filename":"code.txt","content":"++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.+++++++..+++.>>.<-.<.+++.------.--------.>>+.>++."},{"filename":"README.md","content":"# Haskell Interpreter\n\n[icon]: λ\n\nThis is an interpreter for haskell.\n\n## Customizing the Icon\nChange the `[icon]: 🚀` line above to any emoji or an image URL to customize your language icon on the interpreters page.\n\n## How it works\n\nThe esoteric program code is read from `code.txt` (which is populated with whatever you write in the `code.txt` tab).\nThe standard input (STDIN) is forwarded directly to the esoteric program itself (e.g., when the esoteric program reads a character or line).\n\nWrite your interpreter logic in `main.hs` and hit Run!"}]}

Run bf-in-haskell Code Online — Free Editor & Compiler