diff -r 54a483a33763 -r 02ef5c3abc51 solution/cw3/factors.while --- a/solution/cw3/factors.while Fri Oct 28 09:08:13 2022 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,14 +0,0 @@ -// Find all factors of a given input number -// by J.R. Cordy August 2005 - -write "Input n please"; -read n; -write "The factors of n are:\n"; -f := 2; -while n != 1 do { - while (n / f) * f == n do { - write f; write "\n"; - n := n / f - }; - f := f + 1 -} \ No newline at end of file