2016-01-21 18:08:06 +03:00
|
|
|
;;(println (str "dev = " carp-dev))
|
2016-01-22 15:53:57 +03:00
|
|
|
|
2016-01-25 16:11:43 +03:00
|
|
|
;; (when (not carp-dev)
|
|
|
|
|
;; (do (load-lisp (str carp-dir "lisp/string_array.carp"))
|
|
|
|
|
;; (load-lisp (str carp-dir "lisp/glfw_test.carp"))))
|
2016-01-22 17:25:37 +03:00
|
|
|
|
|
|
|
|
;; (defn z ()
|
|
|
|
|
;; (let [m (string-copy "blah")]
|
|
|
|
|
;; (if (do (string-copy "adasdasd")
|
|
|
|
|
;; (string-copy "adasdasd")
|
|
|
|
|
;; (string-copy "adasdasd")
|
|
|
|
|
;; false)
|
|
|
|
|
;; m
|
|
|
|
|
;; (string-copy "sfsdfsd"))))
|
|
|
|
|
|
|
|
|
|
|
2016-01-22 18:56:14 +03:00
|
|
|
(defn z ()
|
2016-01-25 16:11:43 +03:00
|
|
|
(for (a 0 4)
|
|
|
|
|
(for (b 1 5)
|
|
|
|
|
(println (ref (itos (* a b)))))))
|
2016-01-22 15:53:57 +03:00
|
|
|
|
2016-01-22 18:56:14 +03:00
|
|
|
(defn zz ()
|
|
|
|
|
(for (a 0 4
|
|
|
|
|
b 0 3)
|
|
|
|
|
(println (ref (itos (* a b))))))
|
