From 738e87c419e587ca22e59ac3c36124f967d77dfb Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Tue, 21 Jul 2020 23:20:01 +0200
Subject: correct single iteration rule

---
 challenge-069/jo-37/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-069/jo-37/perl/ch-2.pl b/challenge-069/jo-37/perl/ch-2.pl
index 80ccc6f05f..a8e5dd02e8 100755
--- a/challenge-069/jo-37/perl/ch-2.pl
+++ b/challenge-069/jo-37/perl/ch-2.pl
@@ -115,7 +115,7 @@ sub sn {
 # check alternative building rules
 for (1 .. 5) {
 	is sn($_), $S[$_], "S$_ doubling rule";
-	is sn_build(sub{$_}, $_, $_), $S[$_], "S$_ single iteration";
+	is sn_build(sub{0}, $_ + 1, $_), $S[$_], "S$_ single iteration";
 }
 
 # Finally: task 2: Generate S30.
-- 
cgit