add_sub_brainfuck_code by uru

#define F(x,y,z)for y:=succ(x)to y do write(#z);
var c,d:char;begin
repeat
read(c);F(d,c,+)F(c,d,-)d:=c;write(".")until 1=0end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page