Data update

Task/Prime-decomposition/Craft-Basic/prime-decomposition.basic

@@ -0,0 +1,73 @@
+define limit = 20, loops = 0
+
+dim list[limit]
+
+input "loops?", loops
+
+for x = 1 to loops
+
+	let n = x
+	print n, " : ",
+	gosub collectprimefactors
+
+	for y = 0 to c
+
+		if list[y] then
+
+			print list[y], " ",
+			let list[y] = 0
+
+		endif
+
+	next y
+
+	print ""
+
+next x
+
+end
+
+sub collectprimefactors
+
+	let c = 0
+
+	do
+
+		if int(n mod 2) = 0 then
+
+			let n = int(n / 2)
+			let list[c] = 2
+			let c = c + 1
+
+		endif
+
+		wait
+
+	loop int(n mod 2) = 0
+
+	for i = 3 to sqrt(n) step 2
+
+		do
+
+			if int(n mod i) = 0 then
+
+				let n = int(n / i)
+				let list[c] = i
+				let c = c + 1
+
+			endif
+
+			wait
+
+		loop int(n mod i) = 0
+
+	next i
+
+	if n > 2 then
+
+		let list[c] = n
+		let c = c + 1
+
+	endif
+
+return