X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?p=aoc2020.git;a=blobdiff_plain;f=45.pl;fp=45.pl;h=b1b5516a50647c76d7515bb5bee17f576a2edad5;hp=0000000000000000000000000000000000000000;hb=d26dd9c3d2edb1c6fecc3bf78c8cd0f1a1b9044f;hpb=e6bc74633b91f9a03a137afd30a58198822f820c

diff --git a/45.pl b/45.pl
new file mode 100755
index 0000000..b1b5516
--- /dev/null
+++ b/45.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $rounds;
+($rounds, $_) = @ARGV;
+
+while ($rounds--) {
+	my ($cur) = /\A(.)/;
+	do {
+		$cur--;
+		$cur = 9 if $cur == 0;
+	} while (/\A.{1,3}$cur/);
+	
+	s/\A(.)(...)(.*)$cur(.*)\z/$3$cur$2$4$1/;
+	print $_, "\n";
+}
+
+s/\A(.*)1(.*)\z/Result is $2$1\n/;
+print;