mtsmfm · January 8, 2014 17:10 · mtsmfm · Jan 8, 2014
diff --git a/hoge.hs b/hoge.hs
 valList :: Int -> Int -> [Int]
 valList x n = map (n^) [numDigits, (numDigits-1)..0]
  where numDigits = floor $ logBase (fromIntegral n) (fromIntegral x)

 convert :: Int -> Int -> [Int]
 convert x n
  | x < n = [x]
  | otherwise = map (snd) $ tail $ scanl (\acc y -> let z = floor $ fromIntegral(fst acc) / fromIntegral(y) in ((fst acc) `mod` y, z)) (x, 0) xs
  where xs = valList x n
	valList :: Int -> Int -> [Int]
	valList x n = map (n^) [numDigits, (numDigits-1)..0]
	where numDigits = floor $ logBase (fromIntegral n) (fromIntegral x)

	convert :: Int -> Int -> [Int]
	convert x n
	\| x < n = [x]
	\| otherwise = map (snd) $ tail $ scanl (\acc y -> let z = floor $ fromIntegral(fst acc) / fromIntegral(y) in ((fst acc) `mod` y, z)) (x, 0) xs
	where xs = valList x n
No results found