problem26.ijs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

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