carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-11 20:49:05 +03:00
Code Issues Projects Releases Wiki Activity

Tweaked array.carp

Browse Source
This commit is contained in:
Erik Svedäng 2017-10-12 17:03:01 +02:00
parent 3b0ff523eb
commit bcb757e461
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/array.carp
View File

@ -10,17 +10,15 @@
(defn main []
(let [a [0 1 2 3 4 5 6 7 8 9]
;;b (Array.replicate 5 (ref "hej"))
]
b (Array.replicate 5 "Hi")]
(do
(println (ref (Int.str (Int.copy (nth (ref a) 5)))))
(println (ref (str &[10 11 12 13 14 15])))
(println (ref (str (ref (map excl (replicate 5 "Hi"))))))
(println (ref (str (ref (map excl b)))))
(println (ref (Array.str (ref [@"hej" @"san" @"!"]))))
(println (ref (str (nth (ref (nested)) 0))))
(println (ref (str (nth (ref (nested)) 1))))
(println (ref (str (nth (ref (nested)) 2))))
)))
(println (ref (str (nth (ref (nested)) 2)))))))
(build)
(run)