diff options
| author | Braxton Hall | 2022-10-28 00:33:03 +0000 |
|---|---|---|
| committer | GitHub | 2022-10-28 00:33:03 +0000 |
| commit | f178cf8c9beb3d664a0797b120c6566ea4e03f00 (patch) | |
| tree | 81195bce93c35dc643525910ddc8f931c7d08999 /entries/chameco | |
| parent | 45785803fa5ba724bc87923357ece5e184221a73 (diff) | |
| parent | 70dbfad88da8fbeb9d7016e88db50e6e926715e8 (diff) | |
Merge pull request #63 from chameco/fibquine
Add idiomatic Perl5 implementation
Diffstat (limited to 'entries/chameco')
| -rwxr-xr-x | entries/chameco/driver.sh | 6 | ||||
| -rw-r--r-- | entries/chameco/fib.pl | 1 |
2 files changed, 7 insertions, 0 deletions
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} |