把《伽达默尔与哈贝马斯真理观比较》与《通往宁静之路》建模为可运行、可测试的 MoonBit 状态机族(主体/多主体/群体/双层次社会交往),外加 Agent 状态机(进化层:变异/闸门/只追加账本)与科研 Agent 协调器。
Dependencies
moon add riantr/pyroduct
moon test # Total tests: 90, passed: 90, failed: 0.moon run cmd/main -- report # 主体状态机
moon run cmd/main -- slots # 驱动槽:49 个触发 → 8 个槽
moon run cmd/main -- multi # 多主体行为规则 R1–R14 + 场景
moon run cmd/main -- group # 群体状态机
moon run cmd/main -- society # 双层次社会交往模型
moon run cmd/main -- evolution # 变异/适应度/闸门/持久化/遗传
moon run cmd/main -- cycle # 主体循环:位置 × 驱动槽 × 因果反馈
moon run cmd/main -- coordinator # 科研 Agent 协调器
moon run --target native cmd/coord # 真实落盘:检查点往返一致 true// 主体:位置、主线、驱动槽、执行契约
let states : Array[@src.SubjectState] = @src.all_states() // 34 个
let ok : Bool = @src.reachable(@src.initial(), @src.terminal())
let back : @src.Outcome = @src.step(@src.Standing, @src.Occasion) // 迁
// 两个主体的一次遭遇:体制、两诚、有效性主张的时序都参与裁决
let me = @multi.subject(1, @multi.rendezvous(), @multi.InterSubjective, 70, 70, 9)
let other = @multi.subject(2, @multi.rendezvous(), @multi.ChengRan, 80, 80, 9)
let claim : @multi.ValidityClaim = { kind: @multi.Truthfulness, phase: @multi.During }
let out = @multi.encounter(me, other, @multi.Theoretical, claim)
// 社会:两条不变量由测试锁定
let never_closes : Bool = @society.no_final_closure()
// Agent 状态机:枚举候选 → 过闸 → 只追加记账
let agent = @evolution.default_agent()
let ledger = @evolution.evolve(agent, @evolution.default_world(),
@evolution.Weighted(@evolution.truth_objective()), 3)
// 协调器:跑一段示例研究,检查点写下 / 读回
let rt = @coordinator.new_runtime()
ignore(rt.step(@coordinator.demo_tasks(), @coordinator.demo_questions(),
@coordinator.demo_workers(), @coordinator.demo_datasets(),
@coordinator.demo_world(), @coordinator.demo_parent(),
@coordinator.demo_candidate()))
let back = @coordinator.restore(rt.checkpoint())
let same : Bool = back.round_trips()Install
Download zip把《伽达默尔与哈贝马斯真理观比较》与《通往宁静之路》建模为可运行、可测试的 MoonBit 状态机族(主体/多主体/群体/双层次社会交往),外加 Agent 状态机(进化层:变异/闸门/只追加账本)与科研 Agent 协调器。
Dependencies