From 1d91cb03285269794823843e54ae3dbb43e7c4d6 Mon Sep 17 00:00:00 2001
From: Brett Snyder <bsnyder@digitalocean.com>
Date: Sat, 11 May 2019 09:28:11 -0500
Subject: list:repeat

---
 src/list.gleam | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src')

diff --git a/src/list.gleam b/src/list.gleam
index 288d971..352fc77 100644
--- a/src/list.gleam
+++ b/src/list.gleam
@@ -263,3 +263,14 @@ pub fn range(start, stop) {
   | order:Lt -> [start | range(start + 1, stop)]
   }
 }
+
+fn do_repeat(a, times, acc) {
+  case times <= 0 {
+    | True -> acc
+    | False -> do_repeat(a, times - 1, [a | acc])
+  }
+}
+
+pub fn repeat(a, times) {
+  do_repeat(a, times, [])
+}
-- 
cgit v1.2.3