意识内核：Racket 实现的计算模型

引言

本项目尝试以计算模型的方法逼近意识问题，基于 Baars 提出的全局工作空间理论（Global Workspace Theory），利用 Racket 语言的宏系统与函数式编程范式，构建一个简化的信息竞争与广播模型。

核心思想

系统的核心机制是一个"全局工作空间"——不同功能模块可以向此空间中广播信息，并通过竞争选择机制决定注意力的分配：

(define (broadcast workspace message)
  (send workspace publish message))
 
(define (attend-to workspace callback)
  (send workspace subscribe callback))
 
(broadcast global-workspace
  (make-message 'sensory "red object detected"))
 
(attend-to global-workspace
  (lambda (msg)
    (when (eq? (message-type msg) 'sensory)
      (process-sensory msg))))

理论基础

全局工作空间理论

Baars 的全局工作空间理论认为，意识是一种信息整合机制。多个并行运行的专门化处理模块通过竞争，将信息传播到全局工作空间，从而被其他模块访问。

计算模型映射

理论概念	计算实现
专门化模块	独立的 Racket 线程/协程
全局工作空间	发布/订阅模式的消息总线
竞争机制	基于优先级的调度器
注意力	单一活跃广播源

实现细节

发布/订阅机制

(struct workspace (subscribers lock) #:mutable)
 
(define (make-workspace)
  (workspace '() (make-semaphore 1)))
 
(define (publish ws message)
  (call-with-semaphore (workspace-lock ws)
    (lambda ()
      (for ([sub (workspace-subscribers ws)])
        ((cdr sub) message)))))
 
(define (subscribe ws key callback)
  (call-with-semaphore (workspace-lock ws)
    (lambda ()
      (set-workspace-subscribers!
        ws
        (cons (cons key callback)
              (workspace-subscribers ws))))))

竞争机制

(define (compete workspace messages)
  (define ranked
    (sort messages
          (lambda (a b)
            (> (message-priority a)
               (message-priority b)))))
  (if (not (null? ranked))
      (publish workspace (car ranked))
      (publish workspace (make-message 'idle "no input"))))

探索性结论

通过这个简单的计算模型，我们观察到：

信息整合：多个独立模块的信息可以通过广播机制整合
注意力切换：竞争机制能够模拟注意力的动态分配
涌现行为：简单的规则可以产生复杂的系统行为

局限与反思

理论局限

本模型是对 GWT 的极大简化，忽略了神经科学层面的细节
没有涉及意识的主观体验（qualia）问题
缺乏学习和适应机制

技术局限

单机实现，没有分布式扩展
没有持久化状态
缺乏性能优化

项目状态

本项目作为一个理论探索性的编程练习，旨在从计算视角为意识研究提供一种可操作的建模思路。项目已归档，不再活跃开发。