2014-04-02 16:56:35 +00:00
|
|
|
prime_dec(n) := flatten(create_list(makelist(first(a), second(a)), a, ifactors(n)))$
|
2013-04-10 23:57:08 -07:00
|
|
|
|
|
|
|
|
/* or, slighlty more "functional" */
|
2014-01-17 05:32:22 +00:00
|
|
|
prime_dec(n) := flatten(map(lambda([a], apply(makelist, a)), ifactors(n)))$
|
2013-04-10 23:57:08 -07:00
|
|
|
|
|
|
|
|
prime_dec(2^4*3^5*5*7^2);
|
|
|
|
|
/* [2, 2, 2, 2, 3, 3, 3, 3, 3, 5, 7, 7] */
|
