longdiv =: dyad define 'n seen' =. x d =. y r =. <.n%d if. r=0 do. newn =. n*10 else. newn =. n-r*d end. if. newn=0 do. 0 elseif. newn e. seen do. #seen elseif. r=0 do. (newn;seen) longdiv d else. (newn;seen,newn) longdiv d end. ) problem26 =: {. \: (1;0$0)&longdiv each i. 1000