mirror of
https://github.com/janet-lang/janet
synced 2024-11-05 00:06:16 +00:00
25 lines
351 B
Clojure
25 lines
351 B
Clojure
(import cook)
|
|
|
|
(cook/make-native
|
|
:name "numarray"
|
|
:source @["numarray.c"])
|
|
|
|
(import build/numarray :prefix "")
|
|
|
|
(def a (numarray/new 30))
|
|
(print (get a 20))
|
|
(print (a 20))
|
|
|
|
(put a 5 3.14)
|
|
(print (a 5))
|
|
(set (a 5) 100)
|
|
(print (a 5))
|
|
|
|
# (numarray/scale a 5))
|
|
# ((a :scale) a 5)
|
|
(:scale a 5)
|
|
(for i 0 10 (print (a i)))
|
|
|
|
#
|
|
(print "sum=" (:sum a))
|