Brilliant numbers: Difference between revisions
m
→{{header|Haskell}}
(→{{header|Haskell}}: Added a draft solution in Haskell) |
|||
Line 450:
isBrilliant :: (Integral a, Show a) => a -> Bool
isBrilliant n = case primeFactors n of
[a, b] -> length (show a) == length (show b)
_ -> False
Line 499 ⟶ 497:
(242,10201)
(2505,100013)</pre>
=={{header|J}}==
| |||