Smallest power of 6 whose decimal expansion contains n: Difference between revisions
Content deleted Content added
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
|