aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

112
Task/Execute-Brain-/Agena/execute-brain-.agena
View file

@ -1,89 +1,27 @@
# Brain**** interpreter
scope # Simple BF interpreter, based on the Lua sample: "Simple meta-implementation using load"
# reads the BF code from stdin, builds an equivalent Agena program and executes it
# execute the Brain**** program in the code string
bf := proc( code :: string ) is
local address := 1; # current data address
local pc := 1; # current position in code
local data := []; # data - initially empty
local input := ""; # user input - initially empty
local bfOperations := # table of operations and their implemntations
[ ">" ~ proc() is inc address, 1 end
, "<" ~ proc() is dec address, 1 end
, "+" ~ proc() is inc data[ address ], 1 end
, "-" ~ proc() is dec data[ address ], 1 end
, "." ~ proc() is io.write( char( data[ address ] ) ) end
, "," ~ proc() is
# get next input character, converted to an integer
while input = ""
do
# no input left - get the next line
input := io.read()
od;
data[ address ] := abs( input[ 1 ] );
# remove the latest character from the input
if size input < 2
then
input := ""
else
input := input[ 2 to -1 ]
fi
end
, "[" ~ proc() is
if data[ address ] = 0
then
# skip to the end of the loop
local depth := 0;
do
inc pc, 1;
if code[ pc ] = "["
then
inc depth, 1
elif code[ pc ] = "]"
then
dec depth, 1
fi
until depth < 0
fi
end
, "]" ~ proc() is
if data[ address ] <> 0
then
# skip to the start of the loop
local depth := 0;
do
dec pc, 1;
if code[ pc ] = "["
then
dec depth, 1
elif code[ pc ] = "]"
then
inc depth, 1
fi
until depth < 0
fi
end
];
# execute the operations - ignore anything invalid
while pc <= size code
do
if data[ address ] = null
then
data[ address ] := 0
fi;
if bfOperations[ code[ pc ] ] <> null
then
bfOperations[ code[ pc ] ]()
fi;
inc pc, 1
od
end;
local constant bfOp := [ '>' ~ 'ptr +:= 1; '
, '<' ~ 'ptr -:= 1; '
, '+' ~ 'mem[ptr] +:= 1; '
, '-' ~ 'mem[ptr] -:= 1; '
, '[' ~ 'while mem[ptr] <> 0 do '
, ']' ~ 'od; '
, '.' ~ 'io.write(char(mem[ptr])); '
, ',' ~ 'mem[ptr] := abs(io.read(io.stdin,1) or "\\0"); '
];
# prompt for Brain**** code and execute it, repeating until an empty code string is entered
scope
local code;
do
io.write( "BF> " );
code := io.read();
bf( code )
until code = ""
epocs;
local bfProgram := "local mem := setmetatable([], [ '__index' ~ proc() return 0 end ]);\n"
& "local ptr := 1;\n"
;
for line in io.lines() do
for p to size line do
local snippet := bfOp[ line[ p ] ];
if snippet then bfProgram &:= snippet & "\n" fi
od
od;
loadstring( bfProgram, "bfCode" )()
end