# ADD - haskell config

morishjs · Sep 14, 2019 · fb1e938 · fb1e938
1 parent fe628dd
commit fb1e938
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 2 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1,2 +1,4 @@
 .history
 .stack-work
+.vscode/phoityne.log
+.vscode/phoityne.log
diff --git a/.vscode/launch.json b/.vscode/launch.json
@@ -11,8 +11,8 @@
       "internalConsoleOptions": "openOnSessionStart",
       "workspace": "${workspaceRoot}",
       "startup": "/Users/junsukpark/AlgoDaily/src/test.hs",
-      "startupFunc": "main",
-      "startupArgs": "0",
+      "startupFunc": "fib",
+      "startupArgs": "3",
       "stopOnEntry": false,
       "mainArgs": "",
       "ghciPrompt": "H>>= ",

diff --git a/src/test.hs b/src/test.hs
@@ -41,4 +41,9 @@ mergesort arr =
         sortedRight = mergesort right
     in merge sortedLeft sortedRight
 
+fib :: (Ord a, Num a) => a -> a
+fib 0 = 0
+fib 1 = 1
+fib n = fib n-1 + fib n-2
+
 main = do putStrLn "Hello World"