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 14:54, 15 April 2021
, 3 years ago→{{header|Haskell}}: Applied Hlint, Ormolu
(Added Algol 68) |
m (→{{header|Haskell}}: Applied Hlint, Ormolu) |
||
Line 347:
=={{header|Haskell}}==
<lang haskell>import
import
sixes :: [Integer]
sixes = iterate (* 6) 1
smallest :: Integer -> Integer
smallest n =
smallest n = head $ filter (\r -> show n `isInfixOf` show r) sixes▼
head $
filter
sixes
main :: IO ()
main =
main = putStr $ concatMap (printf "%2d: %d\n" `ap` smallest) [0..21]</lang>▼
putStr $
concatMap
[0 .. 21]</lang>
{{out}}
| |||