Source Code
;; Islamic Habit Tracker - Charity
;; Tracker for charity
(define-map charity-78-streak principal uint)
(define-public (log-charity-78)
(let ((current-streak (default-to u0 (map-get? charity-78-streak tx-sender))))
(map-set charity-78-streak tx-sender (+ current-streak u1))
(ok true)
)
)
(define-read-only (get-charity-78-streak (user principal))
(default-to u0 (map-get? charity-78-streak user))
)
Functions (2)
| Function | Access | Args |
|---|---|---|
| log-charity-78 | public | |
| get-charity-78-streak | read-only | user: principal |