Initial data commit

Task/Almost-prime/Erlang/almost-prime.erl

@@ -0,0 +1,24 @@
+-module(factors).
+-export([factors/1,kfactors/0,kfactors/2]).
+
+factors(N) ->
+     factors(N,2,[]).
+
+factors(1,_,Acc) -> Acc;
+factors(N,K,Acc) when N rem K == 0 ->
+    factors(N div K,K, [K|Acc]);
+factors(N,K,Acc) ->
+    factors(N,K+1,Acc).
+
+kfactors() -> kfactors(10,5,1,1,[]).
+kfactors(N,K) -> kfactors(N,K,1,1,[]).
+kfactors(_Tn,Tk,_N,K,_Acc) when K == Tk+1 ->  io:fwrite("Done! ");
+kfactors(Tn,Tk,N,K,Acc) when length(Acc) == Tn  ->
+    io:format("K: ~w ~w ~n", [K, Acc]),
+    kfactors(Tn,Tk,2,K+1,[]);
+
+kfactors(Tn,Tk,N,K,Acc) ->
+    case length(factors(N)) of K ->
+     kfactors(Tn,Tk, N+1,K, Acc ++ [ N ] );
+      _ ->
+      kfactors(Tn,Tk, N+1,K, Acc) end.