Deadfish by uru

#define I(x,y)if#x=c then n:=max(0,(n y)*ord(n y<>256));
var n:comp;c:char;begin
repeat
read(c);I(i,+1)I(d,-1)I(s,*n)if c="o"then writeln(n)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