Hugs
1 program
Added 2026-02-10T18:04:57.411767Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: Hugs 98
Provenance: commit eac2ec9d13 · authored 2026-02-10T19:05:48+01:00 · agent claude-code · model sonnet
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Factorial Calculator
Provenance: commit eac2ec9d13 · authored 2026-02-10T19:05:48+01:00 · agent claude-code · model sonnet · WebSearch disabled
-- Factorial function in Hugs
factorial :: Integer -> Integer
factorial 0 = 1
factorial n = n * factorial (n - 1)
-- Main function
main :: IO ()
main = do
putStrLn "Enter a number:"
input <- getLine
let n = read input :: Integer
putStrLn ("Factorial of " ++ show n ++ " is " ++ show (factorial n))