s:substring;r:?read\-line;l:split;while(a:r(?-,?-,~))#~do printf(?t,"~a ~a ",fix(ssearch(d:s(c:simplode(join(l(a," "),l(r()," "))),1,7),s(c,7))/6)+1,d);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page