Average Character by pooq

do 600
a=linein()
b=length(a)
s=0
do i=1 to b
s=s+c2d(substr(a,i,1))
end
say d2c(s%b)
end

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

download

return to the top page