MyBF - Interpretador de BrainFuck
Publicado por Danillo Souza (última atualização em 26/08/2010)
[ Hits: 4.985 ]
Pequeno interpretador da linguagem BrainFuck que eu criei, implementando mais 2 comandos adicionais (a descrição se encontra nos comentários do início). Para quem não conhece BrainFuck: http://pt.wikipedia.org/wiki/Brainfuck
#!/usr/bin/perl -w # Author: Danillo Souza # Email: danillo012@gmail.com # Version: 0.1 # # This script implements the original syntax of BrainF*ck, with few modifications, # only two additional commands actually. The first is the '!' serving # to write the value of the current cell as an integer, and the second is '$' # used to read a number (actually, one digit) and store your value in the current cell. # # If you extend this script with new functionalities, please send me the # changes via email. I would be happy if I saw someone improving this little # interpreter and adding new stuff. # # And do not forget. if you extend this interpreter, do not use modules not # are patterns of Perl. The goal is to ensure that the interpreter is 100% portable, # not force people to install new modules. use strict; use diagnostics; # Opening file die "Usage: mybf.pl <scriptfile>\n" if scalar(@ARGV) < 1; open my $file, '<', $ARGV[0] or die "Can't open file.\n"; # Variables my $top = 30000; my $ptr = 0; my $cou = 0; my $src = ''; my @segment = (1..$top); foreach (@segment){$_ = 0;} my @loops = (); # Getting the source code while (<$file>) {$src .= $_;} close($file); # Eliminating non-bf characters $src =~ s/[^\+\-\.\!\[\],\$<>]//g; # Verifying the brackets equivalency my $lbrackets = scalar(grep(/[\[]/g, $src)); my $rbrackets = scalar(grep(/[\]]/g, $src)); print "Missing brackets -> ([: $lbrackets | ]: $lbrackets)\n" if ($lbrackets != $rbrackets); # Execution loop while ($cou < length($src)) { my $ch = substr($src, $cou, 1);$cou++; if ($ch eq '>') {$ptr++;if ($ptr>256){$ptr=0}} if ($ch eq '<') {$ptr--;if ($ptr<0){$ptr=256}} if ($ch eq '+') {$segment[$ptr]++} if ($ch eq '-') {$segment[$ptr]--} if ($ch eq '.') {print chr($segment[$ptr]);} if ($ch eq '!') {print int($segment[$ptr]);} if ($ch eq ',') {my $y=<STDIN>;$segment[$ptr]=ord(substr($y,0,1));} if ($ch eq '$') {my $y=<STDIN>;$segment[$ptr]=int(substr($y,0,1));} if ($ch eq '[') {push(@loops, $cou)} if ($ch eq ']') {if ($segment[$ptr]!=0){$cou=$loops[$#loops]}else{pop(@loops)}} }
Wallpapers aleatórios no Fluxbox
Calculadora com Perl com menos de 10 linhas de código
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Debian Bookworm para a versão beta Debian 13 Trixie (3)
Não consigo acessar os modos de desempenho (5)
Alguém pode me ajudar porfavor como executar comandos ao iniciar no i3... (2)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba