Data commit

Task/Prime-decomposition/Icon/prime-decomposition.icon

@@ -0,0 +1,18 @@
+procedure main()
+factors := primedecomp(2^43-1)   # a big int
+end
+
+procedure primedecomp(n)         #: return a list of factors
+local F,o,x
+F := []
+
+every writes(o,n|(x := genfactors(n))) do {
+   \o := "*"
+   /o := "="
+   put(F,x)   # build a list of factors to satisfy the task
+   }
+write()
+return F
+end
+
+link factors