e0c1c64 · elk · git.iko.soy

git.iko.soy/elk

Merge pull request #233 from lambdatoast/dev-list-replicate

Add a replicate function to the List module

commite0c1c647676193f1c2660379d45c6fbd057329ab authorEvan Czaplicki <info@elm-lang.org> dateSat 31 Aug 2013, 20:04 (13 years ago) parent1a45cb5 074bb08

2 files changed+15−1

compare with master

unifiedsplit

libraries/List.elm+4 libraries/Native/List.js+11−1

libraries/List.elm+4

@@ -185,3 +185,7 @@ take = Native.List.take

185185-- Drop the first n members of a list: `(drop 2 [1,2,3,4] == [3,4])`

186186drop : Int -> [a] -> [a]

187187drop = Native.List.drop

188+

189+-- Creates a list with n copies of a value: `(replicate 3 (0,0) == [(0,0),(0,0),(0,0)]`

190+repeat : Int -> a -> [a]

191+repeat = Native.List.repeat

libraries/Native/List.js+11−1

@@ -241,6 +241,15 @@ Elm.Native.List = function(elm) {

241241 return xs;

242242 }

243243

244+ function repeat(n, a) {

245+ var arr = [];

246+ while (n > 0) {

247+ arr.push(a);

248+ --n;

249+ }

250+ return fromArray(arr);

251+ }

252+

244253 function join(sep, xss) {

245254 if (typeof sep === 'string') return toArray(xss).join(sep);

246255 if (xss.ctor === '[]') return Nil;

@@ -344,10 +353,11 @@ Elm.Native.List = function(elm) {

344353 nth:F2(nth),

345354 take:F2(take),

346355 drop:F2(drop),

356+ repeat:F2(repeat),

347357

348358 join:F2(join),

349359 split:F2(split)

350360 };

351361 return elm.Native.List = Elm.Native.List.values;

352362

353−};

363+};