3 ms·
Boxing in J sep=:10#.^:_1] NB. Separate digits ea=:&.> NB Perform on each sep ea 23 7534 322 7 24756 │2 3│7 5 3 4│3 2 2│7│2 4 7 5 6│ #ea n N
by skipcave 5y ago
Boxing in J
sep=:10#.^:_1] NB. Separate digits
ea=:&.> NB Perform on each
sep ea 23 7534 322 7 24756
│2 3│7 5 3 4│3 2 2│7│2 4 7 5 6│
#ea n NB. How many?
│2│4│3│1│5│
+/ea n NB. Sum
│5│19│7│7│24│
*/ea n NB. Product
│6│420│12│7│1680│
/:~ ea n NB. Sort
│2 3│3 4 5 7│2 2 3│7│2 4 5 6 7│