0bed0c0271
🚀 主要機能: • Everything is Box哲学による革新的アーキテクチャ • WebAssemblyブラウザー対応プレイグラウンド • アーティスト協同制作デモ - 複数Boxインスタンス実証 • 視覚的デバッグシステム - DebugBox完全統合 • static box Mainパターン - メモリ安全設計 ⚡ 言語機能: • NOT/AND/OR/除算演算子完全実装 • ジェネリクス/テンプレートシステム • 非同期処理(nowait/await) • try/catchエラーハンドリング • Canvas統合グラフィックス 🎨 ブラウザー体験: • 9種類のインタラクティブデモ • リアルタイムコード実行 • WebCanvas/WebConsole/WebDisplay • モバイル対応完了 🤖 Built with Claude Code collaboration Ready for public release!
97 lines
2.3 KiB
Plaintext
97 lines
2.3 KiB
Plaintext
// 🚀 最小版LISP - 動作確認用
|
|
// 基本的な算術計算のみ実装
|
|
|
|
NIL = 0
|
|
|
|
// データ構造
|
|
box ConsBox {
|
|
car
|
|
cdr
|
|
init { car, cdr }
|
|
ConsBox(a, d) {
|
|
me.car = a
|
|
me.cdr = d
|
|
}
|
|
getCar() { return me.car }
|
|
getCdr() { return me.cdr }
|
|
toString() { return "(" + me.car.toString() + " . " + me.cdr.toString() + ")" }
|
|
}
|
|
|
|
// 基本関数
|
|
function cons(a, d) { return new ConsBox(a, d) }
|
|
function car(pair) {
|
|
if pair == NIL { return NIL }
|
|
return pair.getCar()
|
|
}
|
|
function cdr(pair) {
|
|
if pair == NIL { return NIL }
|
|
return pair.getCdr()
|
|
}
|
|
|
|
// リスト作成
|
|
function list2(a, b) { return cons(a, cons(b, NIL)) }
|
|
function list3(a, b, c) { return cons(a, cons(b, cons(c, NIL))) }
|
|
|
|
// 超シンプル評価器 - 数値の加算のみ
|
|
function simpleEval(expr) {
|
|
// 数値リテラルはそのまま返す
|
|
if expr == 0 { return 0 }
|
|
if expr == 1 { return 1 }
|
|
if expr == 2 { return 2 }
|
|
if expr == 3 { return 3 }
|
|
if expr == 4 { return 4 }
|
|
if expr == 5 { return 5 }
|
|
if expr == 6 { return 6 }
|
|
if expr == 7 { return 7 }
|
|
if expr == 8 { return 8 }
|
|
if expr == 9 { return 9 }
|
|
|
|
// リストの場合
|
|
operator = car(expr)
|
|
arg1 = car(cdr(expr))
|
|
arg2 = car(cdr(cdr(expr)))
|
|
|
|
// 文字列の加算演算子チェック
|
|
if operator == "+" {
|
|
return simpleEval(arg1) + simpleEval(arg2)
|
|
}
|
|
if operator == "*" {
|
|
return simpleEval(arg1) * simpleEval(arg2)
|
|
}
|
|
if operator == "-" {
|
|
return simpleEval(arg1) - simpleEval(arg2)
|
|
}
|
|
|
|
return 0 // エラーの場合
|
|
}
|
|
|
|
// テスト
|
|
print("🚀 === Minimal LISP Test === 🚀")
|
|
print("")
|
|
|
|
print("1. Basic data structures:")
|
|
p1 = cons(1, 2)
|
|
print(" cons(1, 2) = " + p1.toString())
|
|
print(" car = " + car(p1))
|
|
print(" cdr = " + cdr(p1))
|
|
|
|
print("")
|
|
print("2. Simple evaluation:")
|
|
// (+ 1 2) を手動構築
|
|
expr1 = list3("+", 1, 2)
|
|
print(" Expression: " + expr1.toString())
|
|
result1 = simpleEval(expr1)
|
|
print(" Result: " + result1)
|
|
|
|
print("")
|
|
print("3. Nested expression:")
|
|
// (+ 1 (* 2 3))
|
|
inner = list3("*", 2, 3)
|
|
expr2 = list3("+", 1, inner)
|
|
print(" Expression: " + expr2.toString())
|
|
result2 = simpleEval(expr2)
|
|
print(" Result: " + result2)
|
|
|
|
print("")
|
|
print("✅ Minimal LISP working!")
|
|
print("🎯 This proves the concept - now we can build more features!") |