aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Prime-decomposition/Maxima/prime-decomposition-2.maxima
View file

@ -1,4 +1,4 @@
prime_dec(n) := flatten(create_list(makelist(a[1], a[2]), a, ifactors(n)))$
prime_dec(n) := flatten(create_list(makelist(first(a), second(a)), a, ifactors(n)))$
/* or, slighlty more "functional" */
prime_dec(n) := flatten(map(lambda([a], apply(makelist, a)), ifactors(n)))$