From 9dada8f044979dab38a0547a2a6d3de4eb2b060b Mon Sep 17 00:00:00 2001
From: Jakob Kaivo <jkk@ung.org>
Date: Fri, 19 Jul 2019 12:16:52 -0400
Subject: implement

---
 factor | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 mode change 100644 => 100755 factor

(limited to 'factor')

diff --git a/factor b/factor
old mode 100644
new mode 100755
index e69de29..81bc614
--- a/factor
+++ b/factor
@@ -0,0 +1,25 @@
+factor() {
+	n=$1
+	f=2
+
+	printf '%d:' $n
+
+	while [ $n -gt $f ]; do
+		if [ $((n % f)) -eq 0 ]; then
+			printf ' %d' $f
+			n=$((n / f))
+		else
+			f=$((f + 1))
+		fi
+	done
+
+	if [ $n -gt 1 ]; then
+		printf ' %d' $n
+	fi
+
+	printf '\n'
+}
+
+for i in $*; do
+	factor $i
+done
-- 
cgit v1.2.1