Mercurial > repos > tabletprog

comparison modules/array.tp @ 184:ca249978ae96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add join method to array
author Mike Pavone <pavone@retrodev.com>
date Sun, 25 Aug 2013 14:44:43 -0700
parents 547153211389
children 35d2cc193d99
comparison
equal deleted inserted replaced
183:97f107b9e8d3 184:ca249978ae96
100 idx <- l 100 idx <- l
101 } 101 }
102 } 102 }
103 ret 103 ret
104 } 104 }
105
106 join <- :sep {
107 if: length > 0 {
108 str <- get: 0
109 idx <- 1
110 l <- length
111 while: { idx < l } do: {
112 str <- str . sep . (get: idx)
113 }
114 str
115 } else: {
116 ""
117 }
118 }
105 } 119 }