guess Base N by kaki

m@main=do[a,b]<-words<$>getLine;print$[r|r<-[2..],read a==foldl(\n c->read[c]+n*r)0b]!!0;m

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page