Make array literals require preceding @ character.

This commit is contained in:
Calvin Rose
2018-03-24 12:48:42 -04:00
parent 41d5b5cb90
commit a3ed7327c9
7 changed files with 78 additions and 59 deletions
+2 -2
View File
@@ -3,12 +3,12 @@
(defn primes
"Returns a list of prime numbers less than n."
[n]
(def list [])
(def list @[])
(for [i 2 n]
(var isprime? true)
(def len (length list))
(for [j 0 len]
(def trial (get list j))
(if (zero? (% i trial)) (varset! isprime? false)))
(if (zero? (% i trial)) (:= isprime? false)))
(if isprime? (array-push list i)))
list)