part1

2017-12-17 11:39:52 -05:00 · 2017-12-17 11:39:52 -05:00 · df6a180b91
parent 3581d429e6
commit df6a180b91
1 changed files with 14 additions and 0 deletions
--- a/17/1.pl
+++ b/17/1.pl
@ -0,0 +1,14 @@
+use 5.20.0;
+
+my $i = 380;
+
+my @v = (0);
+my $p = 0;
+
+use DDP;
+for(1..2017) {
+    $p = ( 1 + $p + $i ) % @v;
+    splice @v, $p, 0, $_;
+}
+
+p @v;