chialisp 0.5.0

tools for working with chialisp language; compiler, repl, python and wasm bindings
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

(mod (X)
  (include *standard-cl-23*)

  (defun mess (X)   ;; 11 41
    (assign
      Y (+ X 1)     ;; 12 42
      Z (+ Y 2)     ;; 14 44

      (if (> X 10)
        (lambda ((& X Y Z) Q)
          (if (= X 11)
            (assign
              Y (* X 2) ;; 22 82
              Z (+ Y 1) ;; 23 83
          
              (* Q Y Z)   ;; 11 * 22 * 23 = 506
              )

            (assign
              Y (* X 3) ;; 33 123
              Z (+ Y 2) ;; 35 125

              (* Q Y Z)   ;; 41 * 123 * 125 = 630375
              )
            )
          )
        (lambda ((& Y Z) Q) (* Q Y Z)) ;; 5 * 6 * 8
        )
      )
    )

  (a (mess X) (list X))
  )