From a8c27de3f4434d8a08e953b95b47a4161f9473ed Mon Sep 17 00:00:00 2001
From: Arnaud Bailly <arnaud@pankzsoft.com>
Date: Sat, 29 Nov 2025 09:07:09 +0100
Subject: start simple bank example

---
 pbt/ts/src/bank.ts | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 pbt/ts/src/bank.ts

(limited to 'pbt/ts/src/bank.ts')

diff --git a/pbt/ts/src/bank.ts b/pbt/ts/src/bank.ts
new file mode 100644
index 0000000..bee9dfc
--- /dev/null
+++ b/pbt/ts/src/bank.ts
@@ -0,0 +1,31 @@
+import {Option, fromNullable} from 'fp-ts/lib/Option';
+
+// keep it simple
+export type Account = string;
+
+export interface Bank {
+  balance: (account: Account) => Option<number>;
+  deposit: (account: Account, amt: number) => void;
+  withdraw: (account: Account, amt: number) => void;
+}
+
+export class SimpleBank implements Bank {
+  private accounts: Map<Account, number>;
+
+  constructor(accounts: Map<Account, number>) {
+    // clone the content of the map
+    this.accounts = new Map(accounts);
+  }
+
+  balance(account: Account): Option<number> {
+    return fromNullable(this.accounts.get(account));
+  }
+
+  deposit(account: Account, amt: number): void {
+    throw new Error('Method not implemented.');
+  }
+
+  withdraw(account: Account, amt: number): void {
+    throw new Error('Method not implemented.');
+  }
+}
-- 
cgit v1.3.1