added new problem

willdoescode · willdoescode · commit 4fd414e2f343 · 2021-01-26T11:17:20.000-08:00
diff --git a/haskell-things.cabal b/haskell-things.cabal
@@ -18,4 +18,4 @@ executable haskell-things
   main-is:             Main.hs
   default-language:    Haskell2010
   build-depends:       base >= 4.7 && < 5, containers
-  other-modules:       TwoSum, FizzBuzz, RunningSum, SmallerNumbersThanCurrent
+  other-modules:       TwoSum, FizzBuzz, RunningSum, SmallerNumbersThanCurrent, NumOfStepsToReduceNumToZero
diff --git a/src/Main.hs b/src/Main.hs
@@ -4,6 +4,7 @@ import FizzBuzz
 import TwoSum
 import RunningSum
 import SmallerNumbersThanCurrent
+import NumOfStepsToReduceNumToZero
 
 main :: IO ()
 main = do
@@ -17,3 +18,7 @@ main = do
   putStrLn "<-- Smaller Numbers Than Current -->"
   print $ smallerNumbersThanCurrent [8, 1, 2, 2, 3]
   print $ smallerNumbersThanCurrent [6, 5, 4, 8]
+  putStrLn "<-- Num Of Steps to Reduce Num To Zero -->"
+  print $ numOfStepsToReduceNumToZero 14
+  print $ numOfStepsToReduceNumToZero 8
+  print $ numOfStepsToReduceNumToZero 123
diff --git a/src/NumOfStepsToReduceNumToZero.hs b/src/NumOfStepsToReduceNumToZero.hs
@@ -0,0 +1,13 @@
+module NumOfStepsToReduceNumToZero ( numOfStepsToReduceNumToZero ) where
+
+-- https://leetcode.com/problems/number-of-steps-to-reduce-a-number-to-zero/
+
+numOfStepsToReduceNumToZero :: Integer -> Integer
+numOfStepsToReduceNumToZero x = numOfStepsToReduceNumToZero' x 0
+
+numOfStepsToReduceNumToZero' :: Integer -> Integer -> Integer
+numOfStepsToReduceNumToZero' num count
+  | num /= 0 = if even num
+    then numOfStepsToReduceNumToZero' (num `div` 2) count + 1 
+    else numOfStepsToReduceNumToZero' (num - 1) count + 1
+  | otherwise = count
