Skip to main content
added 8 characters in body
Source Link
Martin Ender
  • 197.2k
  • 67
  • 447
  • 975

Mathematica, 1818 17 bytes

Times@@@Subsets@#&1##&@@@Subsets@#&

That's an anonymous function. Call it like

Times@@@Subsets@#&[1##&@@@Subsets@#&[{2,3,5,7}]

Mathematica, 18 bytes

Times@@@Subsets@#&

That's an anonymous function. Call it like

Times@@@Subsets@#&[{2,3,5,7}]

Mathematica, 18 17 bytes

1##&@@@Subsets@#&

That's an anonymous function. Call it like

1##&@@@Subsets@#&[{2,3,5,7}]
Source Link
Martin Ender
  • 197.2k
  • 67
  • 447
  • 975

Mathematica, 18 bytes

Times@@@Subsets@#&

That's an anonymous function. Call it like

Times@@@Subsets@#&[{2,3,5,7}]