mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 12:37:32 +03:00
10 lines
213 B
Plaintext
10 lines
213 B
Plaintext
(local-include "../examples/banana.h")
|
|
(Project.no-echo)
|
|
|
|
(register-type Apple)
|
|
(register-type Banana [price Double, size Int])
|
|
|
|
(defn main []
|
|
(let [b (Banana.init 2.3 1000)]
|
|
(IO.println &(Banana.str &b))))
|