From 5d86c059400c902e473bc2c1074f5f59a4966c95 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Fri, 27 Aug 2021 16:04:28 +0200
Subject: Problem 26

---
 problem26.ijs | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 problem26.ijs

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
-- 
cgit v1.2.3