Brainfuck TASM |
var
data_arr:array[1..10] of integer; //
str_arr: string; //
i, j: integer; //
begin
j:=1; // ()
readln(str_arr); //
for i:=1 to length(str_arr) do begin //
if (str_arr[i]='+') then data_arr[j]:= data_arr[j]+1;
if (str_arr[i]='.') then write(chr(data_arr[j]));
end;
end.
https://habr.com/post/423121/?utm_source=habrahabr&utm_medium=rss&utm_campaign=423121