haskell 1

Author: peterwzhang

.gitignore

@@ -0,0 +1,74 @@
+# <---------------- scheme files ---------------->
+*.ss~
+*.ss#*
+.#*.ss
+
+*.scm~
+*.scm#*
+.#*.scm
+
+# <---------------- haskell files ---------------->
+dist
+dist-*
+cabal-dev
+*.o
+*.hi
+*.hie
+*.chi
+*.chs.h
+*.dyn_o
+*.dyn_hi
+.hpc
+.hsenv
+.cabal-sandbox/
+cabal.sandbox.config
+*.prof
+*.aux
+*.hp
+*.eventlog
+.stack-work/
+cabal.project.local
+cabal.project.local~
+.HTF/
+.ghc.environment.*
+
+# <---------------- prolog files ---------------->
+
+# <---------------- smalltalk files ---------------->
+# changes file
+*.changes
+*.chg
+
+# system image
+*.image
+*.img7
+*.img
+
+# Pharo Smalltalk Debug log file
+PharoDebug.log
+
+# Squeak Smalltalk Debug log file
+SqueakDebug.log
+
+# Dolphin Smalltalk source file
+*.sml
+
+# Dolphin Smalltalk error file
+*.errors
+
+# Monticello package cache
+/package-cache
+
+# playground cache
+/play-cache
+/play-stash
+
+# Metacello-github cache
+/github-cache
+github-*.zip
+
+# <---------------- cilk/cilk++ files ---------------->
+
+# <---------------- general files ---------------->
+*.exe
+*.out

Haskell/01/power.hs

@@ -0,0 +1,15 @@
+power :: Integer -> Integer -> Integer
+power m n 
+ | n == 0 = 1
+ | n > 0 = m * power m (n - 1)
+
+main ::IO()
+main = do
+ putStrLn "Enter a base number:"
+ in1 <- getLine
+ putStrLn "Enter an exponent:"
+ in2 <- getLine
+ let base = (read in1 :: Integer)
+ let exponent = (read in2 :: Integer)
+ putStrLn "Answer:"
+ print(power base exponent)