Syndicate
1 program
Added 2026-02-28T10:15:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 8313c88c76 · authored 2026-02-28T16:50:49+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
2 sources · pl_id:
pl/syndicateRelated languages
LLM-contributed programs
Bank Account
Provenance: commit 8313c88c76 · authored 2026-02-28T16:50:49+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
#lang syndicate/core
;; Hello-worldish "bank account" example.
(struct account (balance) #:prefab)
(struct deposit (amount) #:prefab)
(define (manager e balance)
(match-event e
[(message (deposit amount))
(transition (+ balance amount) (patch-seq (retract (account balance))
(assert (account (+ balance amount)))))]))
(define (observer e _)
(when (patch? e) (for [(balance (project-assertions (patch-added e) (account (?!))))]
(printf "Balance changed to ~a\n" balance))))
(define (updater e _)
(when (patch/added? e)
(quit (list (message (deposit +100))
(message (deposit -30))))))
(actor manager 0 (patch-seq (assert (observe (deposit ?))) (assert (account 0))))
(actor observer (void) (assert (observe (account ?))))
(actor updater (void) (assert (observe (observe (deposit ?)))))
Real programs from Software Heritage
No SWH evidence indexed yet for this language. (Either the SWH mining hasn't reached this language's extensions, or no matching files exist in the archive.)