skipcave·5 年前·discussBoxing 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│
│2 3│7 5 3 4│3 2 2│7│2 4 7 5 6│
│2│4│3│1│5│
│5│19│7│7│24│
│6│420│12│7│1680│
│2 3│3 4 5 7│2 2 3│7│2 4 5 6 7│