Mercurial > hg > may

diff yetilab/vector/vector.yeti @ 269:0011c9a8c0ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add repeated
author Chris Cannam
date Thu, 23 May 2013 14:39:40 +0100
parents c7efd12c27c5
children
line wrap: on
line diff
--- a/yetilab/vector/vector.yeti	Thu May 23 14:39:18 2013 +0100
+++ b/yetilab/vector/vector.yeti	Thu May 23 14:39:40 2013 +0100
@@ -96,6 +96,9 @@
     done;
     vout);
 
+repeated v n is ~double[] -> number -> ~double[] =
+    concat (map \(v) [1..n]);
+
 {
     zeros,
     consts,
@@ -115,6 +118,7 @@
     slice,
     resizedTo,
     reversed,
+    repeated,
     concat,
 } as {
     zeros is number -> vector,
@@ -135,6 +139,7 @@
     slice is vector -> number -> number -> vector,
     resizedTo is number -> vector -> vector,
     reversed is vector -> vector,
+    repeated is vector -> number -> vector,
     concat is list?<vector> -> vector,
 }