JavaScript To OCaml Converter

const quotes = [
“Believe you can and you’re halfway there.”,
“The only way to do great work is to love what you do.”,
“Success is not the key to happiness. Happiness is the key to success.”,
“Don’t watch the clock; do what it does. Keep going.”,
“The future belongs to those who believe in the beauty of their dreams.”,
“You are never too old to set another goal or to dream a new dream.”,
“Success usually comes to those who are too busy to be looking for it.”,
“Opportunities don’t happen. You create them.”,
“I find that the harder I work, the more luck I seem to have.”,
“Your limitation—it’s only your imagination.”
];

function generateRandomQuote() {
const randomIndex = Math.floor(Math.random() * quotes.length);
return quotes[randomIndex];
}

const motivationalQuote = generateRandomQuote();
console.log(motivationalQuote);

let quotes = [
“Believe you can and you’re halfway there.”,
“The only way to do great work is to love what you do.”,
“Success is not the key to happiness. Happiness is the key to success.”,
“Don’t watch the clock; do what it does. Keep going.”,
“The future belongs to those who believe in the beauty of their dreams.”,
“You are never too old to set another goal or to dream a new dream.”,
“Success usually comes to those who are too busy to be looking for it.”,
“Opportunities don’t happen. You create them.”,
“I find that the harder I work, the more luck I seem to have.”,
“Your limitation—it’s only your imagination.”
];;

let generate_random_quote () =
let random_index = Random.int (List.length quotes) in
List.nth quotes random_index
;;

let motivational_quote = generate_random_quote ();;
print_endline motivational_quote ;;

class BankAccount {
constructor(accountHolder) {
this.accountHolder = accountHolder;
this.balance = 0;
this.transactionLimit = 5000; // Limit for deposit/withdrawal
}

deposit(amount) {
if (amount > this.transactionLimit) {
console.log(‘Deposit exceeds transaction limit.’);
return;
}
this.balance += amount;
console.log(`Deposited: $${amount}. New balance: $${this.balance}`);
}

withdraw(amount) {
if (amount > this.transactionLimit) {
console.log(‘Withdrawal exceeds transaction limit.’);
return;
}
if (amount > this.balance) {
console.log(‘Insufficient balance.’);
return;
}
this.balance -= amount;
console.log(`Withdrawn: $${amount}. New balance: $${this.balance}`);
}

checkBalance() {
console.log(`Account balance for ${this.accountHolder}: $${this.balance}`);
}
}

class BankingSystem {
constructor() {
this.accounts = {};
}

createAccount(accountHolder) {
if (this.accounts[accountHolder]) {
console.log(‘Account already exists.’);
return;
}
this.accounts[accountHolder] = new BankAccount(accountHolder);
console.log(`Account created for ${accountHolder}.`);
}

deposit(accountHolder, amount) {
const account = this.accounts[accountHolder];
if (account) {
account.deposit(amount);
} else {
console.log(‘Account does not exist.’);
}
}

withdraw(accountHolder, amount) {
const account = this.accounts[accountHolder];
if (account) {
account.withdraw(amount);
} else {
console.log(‘Account does not exist.’);
}
}

checkBalance(accountHolder) {
const account = this.accounts[accountHolder];
if (account) {
account.checkBalance();
} else {
console.log(‘Account does not exist.’);
}
}
}

// Usage
const bankingSystem = new BankingSystem();
bankingSystem.createAccount(‘John Doe’);
bankingSystem.deposit(‘John Doe’, 3000);
bankingSystem.checkBalance(‘John Doe’);
bankingSystem.withdraw(‘John Doe’, 2000);
bankingSystem.checkBalance(‘John Doe’);
bankingSystem.withdraw(‘John Doe’, 5000);
bankingSystem.deposit(‘John Doe’, 6000);
bankingSystem.checkBalance(‘John Doe’);

type bank_account = {
accountHolder: string;
mutable balance: float;
transactionLimit: float;
}

let create_bank_account accountHolder = {
accountHolder;
balance = 0.0;
transactionLimit = 5000.0;
}

let deposit account amount =
if amount > account.transactionLimit then
Printf.printf “Deposit exceeds transaction limit.n”
else (
account.balance <- account.balance +. amount; Printf.printf "Deposited: $%.2f. New balance: $%.2fn" amount account.balance ) let withdraw account amount = if amount > account.transactionLimit then
Printf.printf “Withdrawal exceeds transaction limit.n”
else if amount > account.balance then
Printf.printf “Insufficient balance.n”
else (
account.balance <- account.balance -. amount; Printf.printf "Withdrawn: $%.2f. New balance: $%.2fn" amount account.balance ) let check_balance account = Printf.printf "Account balance for %s: $%.2fn" account.accountHolder account.balance type banking_system = { mutable accounts: (string, bank_account) Hashtbl.t; } let create_banking_system () = { accounts = Hashtbl.create 10; } let create_account system accountHolder = if Hashtbl.mem system.accounts accountHolder then Printf.printf "Account already exists.n" else ( let account = create_bank_account accountHolder in Hashtbl.add system.accounts accountHolder account; Printf.printf "Account created for %s.n" accountHolder ) let deposit_to_account system accountHolder amount = match Hashtbl.find_opt system.accounts accountHolder with | Some account -> deposit account amount
| None -> Printf.printf “Account does not exist.n”

let withdraw_from_account system accountHolder amount =
match Hashtbl.find_opt system.accounts accountHolder with
| Some account -> withdraw account amount
| None -> Printf.printf “Account does not exist.n”

let check_balance_of_account system accountHolder =
match Hashtbl.find_opt system.accounts accountHolder with
| Some account -> check_balance account
| None -> Printf.printf “Account does not exist.n”

(* Usage *)
let banking_system = create_banking_system ();;
create_account banking_system “John Doe”;;
deposit_to_account banking_system “John Doe” 3000.0;;
check_balance_of_account banking_system “John Doe”;;
withdraw_from_account banking_system “John Doe” 2000.0;;
check_balance_of_account banking_system “John Doe”;;
withdraw_from_account banking_system “John Doe” 5000.0;;
deposit_to_account banking_system “John Doe” 6000.0;;
check_balance_of_account banking_system “John Doe”;;