From 932844e590156a2bf9d970151382aae50acc30c4 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 23 Apr 2022 09:51:04 +0100
Subject: can also compile with raku

---
 Makefile       | 6 ++++--
 fibonacci.pl.c | 5 ++---
 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;
 }
-- 
cgit v1.2.3