Turing Machine by notogawa

import List
main=interact$f[]2.map words.lines
f x i t|i<0=sort x>>=show.last|0<1=f([61-m,l-48]:[a+61-m:s|a:s<-x,a/=0])(n-63)t where[l,m,n]=map fromEnum$t!!sum(1:[s|[0,s]<-x])!!i

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

download

return to the top page