elf
/
cons-lists
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Needed a flat version.

This commit is contained in:
Elf M. Sternberg 2016-05-02 20:31:29 -07:00
parent 1bd3f27d85
commit 5d32d5288a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/lists.coffee
View File

@ -48,16 +48,16 @@ _annotate = (ConsList) ->
car = (c) -> c[0] car = (c) -> c[0]
cdr = (c) -> c[1] cdr = (c) -> c[1]
vectorToList = (v, p) -> vectorToList = (v, p, d = true) ->
p = if p? then p else 0 p = if p? then p else 0
if p >= v.length then return nil if p >= v.length then return nil
# Annoying, but since lists are represented as nested arrays, they # Annoying, but since lists are represented as nested arrays, they
# have to be intercepted first. The use of duck-typing here is # have to be intercepted first. The use of duck-typing here is
# frustrating. # frustrating.
item = if pairp(v[p]) then v[p] else item = if pairp(v[p]) then v[p] else
if vectorp(v[p]) then vectorToList(v[p]) else v[p] if (d and vectorp(v[p])) then vectorToList(v[p]) else v[p]
cons(item, vectorToList(v, p + 1)) cons(item, vectorToList(v, p + 1))
list = (v...) -> list = (v...) ->
ln = v.length ln = v.length
(nl = (a) -> (nl = (a) ->