Haskell To Object Pascal Converter

main :: IO ()
main = do
putStrLn “Enter a list of numbers separated by spaces:”
input <- getLine let numbers = map read (words input) :: [Int] let sumEvens = sum (filter even numbers) putStrLn ("Sum of even numbers: " ++ show sumEvens)

program SumEvenNumbers;

uses SysUtils;

var
input: string;
numbers: array of Integer;
sumEvens, i: Integer;

function ToIntArray(const words: array of string): TArray;
var
i: Integer;
begin
SetLength(Result, Length(words));
for i := 0 to High(words) do
Result[i] := StrToInt(words[i]);
end;

begin
WriteLn(‘Enter a list of numbers separated by spaces:’);
ReadLn(input);

numbers := ToIntArray(input.Split([‘ ‘]));
sumEvens := 0;

for i := 0 to High(numbers) do
if numbers[i] mod 2 = 0 then
sumEvens := sumEvens + numbers[i];

WriteLn(‘Sum of even numbers: ‘, sumEvens);
end.

import System.Random (randomRIO)
import Data.List (intersperse)

main :: IO ()
main = do
putStrLn “Welcome to Hangman!”
word <- chooseWord playGame word [] chooseWord :: IO String chooseWord = do let wordsList = ["haskell", "programming", "hangman", "function", "types"] index <- randomRIO (0, length wordsList - 1) return (wordsList !! index) playGame :: String -> [Char] -> IO ()
playGame secretWord guesses = do
let incorrectGuesses = filter (`notElem` secretWord) guesses
putStrLn $ “Current word: ” ++ displayWord secretWord guesses
putStrLn $ “Incorrect guesses: ” ++ show incorrectGuesses
if null (filter (`notElem` secretWord) guesses) && null guesses
then putStrLn “No guesses yet. Start guessing!”
else if all (`elem` secretWord) guesses
then putStrLn (“Congratulations! You’ve guessed the word: ” ++ secretWord)
else if length incorrectGuesses >= 6
then putStrLn (“Game over! The secret word was: ” ++ secretWord)
else do
putStr “Enter your guess: ”
guess <- getLine if null guess then putStrLn "Please enter a valid guess." else let newGuesses = map toLower (head guess) : guesses in playGame secretWord newGuesses displayWord :: String -> [Char] -> String
displayWord secretWord guesses = intersperse ‘ ‘ [if c `elem` guesses then c else ‘_’ | c <- secretWord]

uses SysUtils, Math;

function RandomInt(min, max: Integer): Integer;
begin
Result := Random(max – min + 1) + min;
end;

function ChooseWord: string;
var
WordsList: array[0..4] of string = (‘haskell’, ‘programming’, ‘hangman’, ‘function’, ‘types’);
Index: Integer;
begin
Index := RandomInt(0, Length(WordsList) – 1);
Result := WordsList[Index];
end;

function DisplayWord(secretWord: string; guesses: array of Char): string;
var
I: Integer;
begin
Result := ”;
for I := 1 to Length(secretWord) do
begin
if Pos(secretWord[I], String(guesses)) > 0 then
Result := Result + secretWord[I]
else
Result := Result + ‘_’;
if I < Length(secretWord) then Result := Result + ' '; end; end; procedure PlayGame(secretWord: string; guesses: array of Char); var IncorrectGuesses: array of Char; I: Integer; GameOver: Boolean; Guess: string; begin SetLength(IncorrectGuesses, 0); for I := 0 to Length(guesses) - 1 do begin if Pos(guesses[I], secretWord) = 0 then Include(IncorrectGuesses, guesses[I]); end; Writeln('Current word: ', DisplayWord(secretWord, guesses)); Writeln('Incorrect guesses: ', String(IncorrectGuesses)); if Length(guesses) = 0 then Writeln('No guesses yet. Start guessing!') else if Pos('', secretWord) = 0 then Writeln('Congratulations! You''ve guessed the word: ', secretWord) else if Length(IncorrectGuesses) >= 6 then
Writeln(‘Game over! The secret word was: ‘, secretWord)
else
begin
Write(‘Enter your guess: ‘);
Readln(Guess);
if Guess = ” then
Writeln(‘Please enter a valid guess.’)
else
begin
SetLength(guesses, Length(guesses) + 1);
guesses[High(guesses)] := LowerCase(Guess[1]);
PlayGame(secretWord, guesses);
end;
end;
end;

procedure Main;
var
Word: string;
begin
Randomize;
Writeln(‘Welcome to Hangman!’);
Word := ChooseWord;
PlayGame(Word, []);
end;

begin
Main;
end.