View/Edit #32:tolist

Name(s): tolist

1:  seq = args[1]
2:  if (!seq)
3:    return {}
4:  else
5:    if (length(seq) % 2)
6:      seq = {@seq, $minint}
7:    endif
8:    l = {}
9:    for i in [1..length(seq) / 2]
10:     for j in [seq[2 * i - 1]..seq[2 * i] - 1]
11:       l = {@l, j}
12:     endfor
13:   endfor
14:   return l
15: endif

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Hacker (#60)

You are not logged in.