1 files changed, 23 insertions, 0 deletions
diff --git a/problem26.ijs b/problem26.ijs
new file mode 100644
index 0000000..0312524
--- /dev/null
+++ b/problem26.ijs
@@ -0,0 +1,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