mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-12 04:58:18 +03:00
18 lines
314 B
Plaintext
18 lines
314 B
Plaintext
(import Array)
|
|
|
|
;;(deftype Mini [m String])
|
|
|
|
(deftype C [a String
|
|
b (Array Int)
|
|
;;m Mini
|
|
])
|
|
|
|
(import C)
|
|
|
|
(defn main []
|
|
(let [c1 (C.init "Hej" [1 2 3])
|
|
c2 (C.copy &c1)
|
|
a1 [(C.copy &c2) (C.copy &c2) (C.copy &c2)]
|
|
a2 (copy &a1)]
|
|
(IO.println &"OK.")))
|