can also compile with raku

2 files changed, 6 insertions, 5 deletions

diff --git a/Makefile b/Makefile
index 4a4eec7..3132051 100644
--- a/Makefile
+++ b/Makefile
@@ -1,5 +1,7 @@
 all:
-	gcc fibonacci.pl.c -o fibonacci
+	gcc fibonacci.pl.c.raku -o fibonacci
 	./fibonacci
 	@echo
-	perl fibonacci.pl.c
+	perl fibonacci.pl.c.raku
+	@echo
+	raku fibonacci.pl.c.raku
diff --git a/fibonacci.pl.c b/fibonacci.pl.c
index 9f45b12..2482a41 100644
--- a/fibonacci.pl.c
+++ b/fibonacci.pl.c
@@ -33,10 +33,9 @@ BEGIN {
 	hello();
 	my $i = 0;
 
-	for ($i = 0; $i <= 10; ++$i) {
+  while ($i <= 10) {
 		$arg = $i;
 		printf("fib(%d) = %d\n", $i, fibonacci());
+		$i++;
 	}
-
-	return 0;
 }