## hkl by rotary-o

while(0<1)println{var h,k,i=0
i=1
for(c<-readLine;b=c%26){if(b<1)h=i
if(b==3)k=i
i=Seq(1,i*2-b%4)(b%5/4)}
h+" "+k+" "+i/2}

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

download

return to the top page