31 lines
541 B
Plaintext
31 lines
541 B
Plaintext
; vim: set ft=commonlisp:
|
|
|
|
(fn main ((args (arr_t string_t))) (
|
|
(var a i32 35)
|
|
(var b i32_t)
|
|
(set b 34)
|
|
(set a (call uwu a b))
|
|
;(match a (
|
|
; (69 (
|
|
; print "ooooo"
|
|
; ))
|
|
; (420 (
|
|
; print "aaaaaaaa"
|
|
; ))
|
|
;))
|
|
|
|
;(if (eq a b) (
|
|
; print "yes"
|
|
;))
|
|
;(while (not (eq a b)) (
|
|
; (set_add (ref b) 1)
|
|
;))
|
|
))
|
|
|
|
;(fn uwu((a i32_t) (b i32_t)) (
|
|
; (return (add a b))
|
|
;))
|
|
;(fn set_add ((a (ref i32_t)) (b i32_t)) (
|
|
; (ref_set a (add (deref a) b)
|
|
;))
|