|
|
|
|
|
|
by skipcave
1856 days 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│ |
|
|