Numbers with prime digits whose sum is 13: Difference between revisions
Numbers with prime digits whose sum is 13 (view source)
Revision as of 19:03, 21 October 2020
, 3 years ago→{{header|Haskell}}
Line 192:
| otherwise = Just (step xs)
step xs =
let
[ unDigits $ fst nv
| 13 == snd nv ]
[ fst nv
| 12 > snd nv ]
in ((,) . concatMap
(((,) <*> sum) <$> ((<$> xs) . (<>) . return =<< primeDigits))
| |||