Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

[Feature:Autograding] Add Haskell image #52

Open
wants to merge 19 commits into
base: main
Choose a base branch
from

Conversation

ION606
Copy link
Contributor

@ION606 ION606 commented Sep 20, 2024

Please check if the PR fulfills these requirements:

  • Tests for the changes have been added/updated (if possible)
  • Documentation has been updated/added if relevant

What is the current behavior?

none

What is the new behavior?

we can now run haskell files

Other information?

this is not a breaking change and I tested it using some simple files (I included an example below):

-- Function to compute the nth Fibonacci number
fibonacci :: Integer -> Integer
fibonacci n
  | n <= 0    = 0
  | n == 1    = 1
  | otherwise = fibonacci (n - 1) + fibonacci (n - 2)

-- Function to compute the factorial of a given number
factorial :: Integer -> Integer
factorial 0 = 1
factorial n = n * factorial (n - 1)

-- Function to check if a number is prime
isPrime :: Integer -> Bool
isPrime n
  | n <= 1    = False
  | n == 2    = True
  | otherwise = null [ x | x <- [2..isqrt n], n `mod` x == 0]
  where
    isqrt = floor . sqrt . fromIntegral

-- Main function to test the above functions
main :: IO ()
main = do
  putStrLn "Enter a number for Fibonacci calculation:"
  fibInput <- getLine
  let fibNumber = read fibInput :: Integer
  putStrLn ("Fibonacci number at position " ++ show fibNumber ++ " is " ++ show (fibonacci fibNumber))

  putStrLn "\nEnter a number for factorial calculation:"
  factInput <- getLine
  let factNumber = read factInput :: Integer
  putStrLn ("Factorial of " ++ show factNumber ++ " is " ++ show (factorial factNumber))

  putStrLn "\nEnter a number to check if it is prime:"
  primeInput <- getLine
  let primeNumber = read primeInput :: Integer
  putStrLn (show primeNumber ++ (if isPrime primeNumber then " is" else " is not") ++ " a prime number.")

Copy link
Member

@cjreed121 cjreed121 left a comment

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Please address the failing CI test

dockerfiles/haskell/8.8.4/Dockerfile Outdated Show resolved Hide resolved
dockerfiles/haskell/8.8.4/Dockerfile Outdated Show resolved Hide resolved
@ION606
Copy link
Contributor Author

ION606 commented Sep 24, 2024

Please address the failing CI test

I can not as I do not own a MAC, I'm currently trying to find someone with a MAC made obsolete by c54dcde

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

2 participants