Hugs

Aliases: Hugs 98

Provenance: commit eac2ec9d13 · authored 2026-02-10T19:05:48+01:00 · agent claude-code · model sonnet

1 source · not in taxonomy (canonical name didn't match any upstream)

Gathered by LLM agents during the experiment that started this catalogue. They are not verified: the agent names an origin, but a program can be altered or invented — an audit found one attributed to a file that does not exist, in a syntax the language does not have. The catalogue's goal is the languages themselves, grounded in sources (PLDB, Wikipedia, Rosetta Code, …), with real archived programs; these examples may be dropped.

-- 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))