Stack Exchange network consists of 183 Q&A communities including Stack Overflow, the largest, most trusted online community for developers to learn, share their knowledge, and build their careers.
Visit Stack Exchange
Stack Internal
Knowledge at work
Bring the best of human thought and AI automation together at your work.
Explore Stack Internal
Æf=2+ÆfPÆf3»P Æf=2+ÆfPÆf3»P Main Link, argument is z Æf Prime factors =2 Compare the elements to two (returns 1 if it is) 3» +Æf Takes maximum Addof it3 toand the primevalue factorsfor (thuseach makingvalue allin 2sthe 3s)array P Takes the product of the whole thing Shameless port of @Emigna's 05AB1E answer but this is longer because I need to restate Æf after the addition (I think) :(Try it online!
Try it online!-3 bytes thanks to a hint from @Dennis!
Æf=2+ÆfP Æf=2+ÆfP Main Link, argument is z Æf Prime factors =2 Compare the elements to two (returns 1 if it is) +Æf Add it to the prime factors (thus making all 2s 3s) P Takes the product Shameless port of @Emigna's 05AB1E answer but this is longer because I need to restate Æf after the addition (I think) :(
Æf3»P Æf3»P Main Link, argument is z Æf Prime factors 3» Takes maximum of 3 and the value for each value in the array P Takes the product of the whole thing -3 bytes thanks to a hint from @Dennis!
Æf=2+ÆfP Æf=2+ÆfP Main Link, argument is z Æf Prime factors =2 Compare the elements to two (returns 1 if it is) +Æf Add it to the prime factors (thus making all 2s 3s) P Takes the product Shameless port of @Emigna's 05AB1E answer but this is longer because I need to restate Æf after the addition (I think) :(