Anonymous user
Range extraction: Difference between revisions
m
→{{header|Dyalect}}
(Emacs Lisp: Rewrite unreadable alternative solution) |
|||
Line 1,486:
<lang dyalect>func rangeFormat(a) {
if a.
return ""
}
Line 1,493:
while true {
var n2 = n1 + 1
while n2 < a.
n2 += 1
}
var s = a[n1].
if n2 == n1+2 {
s += "," + a[n2-1]
Line 1,502:
s += "-" + a[n2-1]
}
parts.
if n2 == a.
break
}
Line 1,514:
n1 = n2
}
return String.
}
|