mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-21 02:17:42 +03:00
10 lines
204 B
Plaintext
10 lines
204 B
Plaintext
(relative-include "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))))
|