1
0
mirror of https://github.com/janet-lang/janet synced 2025-09-02 10:58:03 +00:00

Multisyms for easier access into structures.

This commit is contained in:
Calvin Rose
2018-11-29 13:30:59 -05:00
parent 6e74617c05
commit b0c45fd15e
10 changed files with 238 additions and 201 deletions

View File

@@ -4,10 +4,10 @@
"Returns a list of prime numbers less than n."
[n]
(def list @[])
(loop [i :range [2 n]]
(for i 2 n
(var isprime? true)
(def len (length list))
(loop [j :range [0 len]]
(for j 0 len
(def trial (get list j))
(if (zero? (% i trial)) (:= isprime? false)))
(if isprime? (array.push list i)))