Data commit

Task/Prime-decomposition/AWK/prime-decomposition.awk

@@ -0,0 +1,15 @@
+# Usage:  awk -f primefac.awk
+function pfac(n,    r, f){
+    r = ""; f = 2
+    while (f <= n) {
+        while(!(n % f)) {
+            n = n / f
+            r = r " " f
+        }
+        f = f + 2 - (f == 2)
+    }
+    return r
+}
+
+# For each line of input, print the prime factors.
+{ print pfac($1) }