Toggle navigation
Extempore Functions Index
Core release (v0.8.9)
(current)
XTM Extensions
About
Submit
hidden link
give-token
scheme
Defined in:
https://github.com/digego/extempore/tree/v0.8.9/examples/core/petri-net.xtm
Implementation
(
define
give-token
(
lambda
(
p
)
(
vector-set!
p
1
(
+
(
vector-ref
p
1
)
1
))))
Back to Index