sum((sum(if a[i]=a[j]then d:j,j,i,n),printf(is(d#i),"~a: ~a ",a[i],d-i)),i,1,n:length(a:split(?read\-line(),"")));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page