Data commit

Task/Modular-inverse/Craft-Basic/modular-inverse.basic

@@ -0,0 +1,34 @@
+let e = 42
+let t = 2017
+
+gosub modularinverse
+
+end
+
+sub modularinverse
+
+	let d = 0
+
+	if e < t then
+
+		let b = e
+		let c = 1
+
+		do
+
+			let s = int(((t - b) / e) + 1)
+			let b = b + s * e
+			let c = c + s
+			let b = b - t
+
+		loop b <> 1
+
+		let d = c
+
+	endif
+
+	let m = d
+
+	print m
+
+return