idhowardgj94/practice1.md

Created June 27, 2020 10:29

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/idhowardgj94/5fa780bb9a706629736cefef867fb561.js"></script>
Save idhowardgj94/5fa780bb9a706629736cefef867fb561 to your computer and use it in GitHub Desktop.

haskell

Raw

    runningSum :: [ Int ] -> Maybe [ Int ]
runningSum x = Just (sum' x a)
    where a = 0; sum' [] a =  []
          sum' (x:xs) a = (a+x) : sum' xs (a+x)

main = do
    putStrLn "1480. Running Sum of 1d Array"
    putStrLn "https://leetcode.com/problems/running-sum-of-1d-array/"

  

Author

idhowardgj94 commented Jun 29, 2020

import Data.Bits

xorOperation :: Int -> Int -> Int
xorOperation n start = 
  let nums = [start + 2 * i | i <-[0 .. (n - 1)] ]
  in foldl xor 0 nums 

main = do
  print "question from https://leetcode.com/problems/xor-operation-in-an-array/"