coffee-tea
SPC9BWFM6E5T2NRE0H6JAKCV1H8AX8T0R589DBWHSource Code
(define-data-var coffee uint u0)
(define-data-var tea uint u0)
(define-public (vote-coffee)
(begin
(var-set coffee (+ (var-get coffee) u1))
(ok "Coffee chosen")
)
)
(define-public (vote-tea)
(begin
(var-set tea (+ (var-get tea) u1))
(ok "Tea chosen")
)
)
(define-read-only (drink-results)
{
coffee: (var-get coffee),
tea: (var-get tea)
}
)
Functions (3)
| Function | Access | Args |
|---|---|---|
| vote-coffee | public | |
| vote-tea | public | |
| drink-results | read-only |