void main() {
List numbers = [];
print(‘Enter numbers separated by space:’);
String? input = stdin.readLineSync();

if (input != null) {
List inputNumbers = input.split(‘ ‘);

for (String num in inputNumbers) {
double? parsedNum = double.tryParse(num);
if (parsedNum != null) {
numbers.add(parsedNum);
} else {
print(‘$num is not a valid number, skipping.’);
}
}

double sum = numbers.fold(0, (a, b) => a + b);
double average = numbers.isNotEmpty ? sum / numbers.length : 0;

print(‘Sum: $sum’);
print(‘Average: $average’);
} else {
print(‘No input provided.’);
}
}

let main () =
let numbers = ref [] in
printf “Enter numbers separated by space: “;
let input = read_line () in
let input_numbers = String.split_on_char ‘ ‘ input in

List.iter (fun num ->
match float_of_string_opt num with
| Some parsed_num -> numbers := parsed_num :: !numbers
| None -> printf “%s is not a valid number, skipping.n” num
) input_numbers;

let sum = List.fold_left (+.) 0.0 !numbers in
let average = if List.length !numbers > 0 then sum /. float_of_int (List.length !numbers) else 0.0 in

printf “Sum: %fn” sum;
printf “Average: %fn” average

let () = main ()

void main() {
List linesA = [
“In the heart of the night so clear,”,
“Whispers of the world draw near,”,
“Beneath the stars, no hint of fear,”,
“Echoes of dreams that we hold dear,”
];

List linesB = [
“The moonlight dances on the sea,”,
“A gentle breeze sings through the trees,”,
“Where hope and love forever be,”,
“Nature’s song puts the soul at ease,”
];

Random random = Random();
String poem = generatePoem(random, linesA, linesB, 4);
print(poem);
}

String generatePoem(Random random, List linesA, List linesB, int stanzaCount) {
StringBuffer poem = StringBuffer();

for (int i = 0; i < stanzaCount; i++) { String line1 = linesA[random.nextInt(linesA.length)]; String line2 = linesB[random.nextInt(linesB.length)]; String line3 = linesA[random.nextInt(linesA.length)]; String line4 = linesB[random.nextInt(linesB.length)]; poem.writeln("$line1"); poem.writeln("$line2"); poem.writeln("$line3"); poem.writeln("$line4"); poem.writeln(); // Blank line between stanzas } return poem.toString(); }

let lines_a = [
“In the heart of the night so clear,”;
“Whispers of the world draw near,”;
“Beneath the stars, no hint of fear,”;
“Echoes of dreams that we hold dear;”
]

let lines_b = [
“The moonlight dances on the sea,”;
“A gentle breeze sings through the trees,”;
“Where hope and love forever be,”;
“Nature’s song puts the soul at ease;”
]

let generate_poem rand lines_a lines_b stanza_count =
let poem = Buffer.create 0 in
for i = 1 to stanza_count do
let line1 = List.nth lines_a (Random.int (List.length lines_a)) in
let line2 = List.nth lines_b (Random.int (List.length lines_b)) in
let line3 = List.nth lines_a (Random.int (List.length lines_a)) in
let line4 = List.nth lines_b (Random.int (List.length lines_b)) in
Buffer.add_string poem (line1 ^ “n”);
Buffer.add_string poem (line2 ^ “n”);
Buffer.add_string poem (line3 ^ “n”);
Buffer.add_string poem (line4 ^ “n”);
Buffer.add_string poem “n”; (* Blank line between stanzas *)
done;
Buffer.contents poem

let () =
Random.init (int_of_float (Unix.gettimeofday ()));
let stanza_count = 4 in
let poem = generate_poem Random.self_init lines_a lines_b stanza_count in
Printf.printf “%s” poem