From 70dbfad88da8fbeb9d7016e88db50e6e926715e8 Mon Sep 17 00:00:00 2001
From: Samuel Breese
Date: Thu, 27 Oct 2022 20:22:36 -0400
Subject: Add idiomatic Perl5 implementation

---
 entries/chameco/driver.sh | 6 ++++++
 entries/chameco/fib.pl    | 1 +
 2 files changed, 7 insertions(+)
 create mode 100755 entries/chameco/driver.sh
 create mode 100644 entries/chameco/fib.pl

(limited to 'entries/chameco')

diff --git a/entries/chameco/driver.sh b/entries/chameco/driver.sh
new file mode 100755
index 0000000..1f90a04
--- /dev/null
+++ b/entries/chameco/driver.sh
@@ -0,0 +1,6 @@
+#!/bin/sh
+cp fib.pl result.pl
+for _ in $(seq "$1"); do
+    echo "$(perl result.pl)" > result.pl
+done
+wc -l result.pl
diff --git a/entries/chameco/fib.pl b/entries/chameco/fib.pl
new file mode 100644
index 0000000..472c58f
--- /dev/null
+++ b/entries/chameco/fib.pl
@@ -0,0 +1 @@
+$t='$t=%c%s%c;while($i<int(__LINE__*1.61803+0.5)){printf($t,39,$t,39,10);++$i}%c';while($i<int(__LINE__*1.61803+0.5)){printf($t,39,$t,39,10);++$i}
-- 
cgit v1.2.3-70-g09d2