mirror of
https://github.com/janet-lang/janet
synced 2024-11-14 04:34:48 +00:00
24 lines
349 B
Clojure
24 lines
349 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))
|