Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(define-constant total-supply u1000000)
(define-map balances principal uint)
(define-public (init user)
(begin
(map-set balances user total-supply)
(ok true)))
(define-public (transfer to amount)
(let ((bal (default-to u0 (map-get? balances tx-sender))))
(if (>= bal amount)
(begin
(map-set balances tx-sender (- bal amount))
(map-set balances to (+ (default-to u0 (map-get? balances to)) amount))
(ok true))
(err u1))))Coding works best on desktop or with an external keyboard.