Smallest power of 6 whose decimal expansion contains n: Difference between revisions
Smallest power of 6 whose decimal expansion contains n (view source)
Revision as of 08:10, 10 March 2023
, 1 year ago→{{header|Haskell}}: (preferred find)
m (→{{header|Pascal}}: corrected wrong copy (missing letter) . Minimal improvement) |
m (→{{header|Haskell}}: (preferred find)) |
||
Line 707:
=={{header|Haskell}}==
<syntaxhighlight lang="haskell">import Data.List (find, isInfixOf)
import Text.Printf (printf)
smallest :: Integer -> Integer▼
smallest n = d▼
where
Just d = find ((show n `isInfixOf`) . show) sixes▼
sixes :: [Integer]
sixes = iterate (* 6) 1
▲smallest :: Integer -> Integer
▲smallest n =
▲ ((show n `isInfixOf`) . show)
▲ sixes
main :: IO ()
main =
putStr $
▲ (printf "%2d: %d\n" <*> smallest)
{{out}}
<pre> 0: 10077696
1: 1
| |||