ClarityTools

;; CLARITY.TOOLS ;; ;; Build smart contracts on the Stacks blockchain. ;; Open the drawer on the left for an introduction to Clarity, ;; contract examples, and extended language features. ;; Expressions are instantly evaluated in the side panel: (print "Hello World") ;; Change any of the numbers for a different sum: (+ 2 3 5) ;; Here is an on-chain counter that can be incremented by anyone: (define-data-var counter int 0) (define-read-only (get-counter) (var-get counter)) (get-counter) (define-public (increment-counter) (let ((value (var-get counter))) (ok (var-set counter (+ value 1))))) (increment-counter) (get-counter) ;; Sign in to evaluate with your own account as principal: (print tx-sender) (stx-get-balance tx-sender) ;; Open the Toolbox on the top right to deploy the contract on the Blockchain.

Explorer

parsed

";; CLARITY.TOOLS\n;;\n;; Build smart contracts on the Stacks blockchain.\n;; Open the drawer on the left for an introduction to Clarity,\n;; contract examples, and extended language features.\n\n;; Expressions are instantly evaluated in the side panel:\n\n(print \"Hello World\")\n\n;; Change any of the numbers for a different sum:\n\n(+ 2 3 5)\n\n;; Here is an on-chain counter that can be incremented by anyone:\n\n(define-data-var counter int 0)\n\n(define-read-only (get-counter)\n (var-get counter))\n\n(get-counter)\n\n(define-public (increment-counter)\n (let ((value (var-get counter)))\n (ok (var-set counter (+ value 1)))))\n\n(increment-counter)\n\n(get-counter)\n \n;; Sign in to evaluate with your own account as principal:\n\n(print tx-sender)\n\n(stx-get-balance tx-sender)\n\n;; Open the Toolbox on the top right to deploy the contract on the Blockchain.\n"

span

([248 269] [322 331] [400 431] [433 485] [487 500] [502 612] [614 633] [635 648] [712 729] [731 758])

```
(print "Hello World")
```
```
(+ 2 3 5)
```
```
(define-data-var counter int 0)
```

(define-read-only (get-counter)
  (var-get counter))

```
(get-counter)
```

(define-public (increment-counter)
  (let ((value (var-get counter)))
    (ok (var-set counter (+ value 1)))))

```
(increment-counter)
```
```
(get-counter)
```
```
(print tx-sender)
```
```
(stx-get-balance tx-sender)
```

token

[:list
 [:symbol
  "print"]
 [:string
  "Hello World"]]

[:list
 [:symbol
  "+"]
 [:int
  "2"]
 [:int
  "3"]
 [:int
  "5"]]

[:list
 [:symbol
  "define-data-var"]
 [:symbol
  "counter"]
 [:symbol
  "int"]
 [:int
  "0"]]

[:list
 [:symbol
  "define-read-only"]
 [:list
  [:symbol
   "get-counter"]]
 [:list
  [:symbol
   "var-get"]
  [:symbol
   "counter"]]]

```
[:list
 [:symbol
  "get-counter"]]
```

[:list
 [:symbol
  "define-public"]
 [:list
  [:symbol
   "increment-counter"]]
 [:list
  [:symbol
   "let"]
  [:list
   [:list
    [:symbol
     "value"]
    [:list
     [:symbol
      "var-get"]
     [:symbol
      "counter"]]]]
  [:list
   [:symbol
    "ok"]
   [:list
    [:symbol
     "var-set"]
    [:symbol
     "counter"]
    [:list
     [:symbol
      "+"]
     [:symbol
      "value"]
     [:int
      "1"]]]]]]

[:list
 [:symbol
  "increment-counter"]]

```
[:list
 [:symbol
  "get-counter"]]
```

[:list
 [:symbol
  "print"]
 [:symbol
  "tx-sender"]]

[:list
 [:symbol
  "stx-get-balance"]
 [:symbol
  "tx-sender"]]

code