diff options
| author | Samuel Breese | 2022-10-28 00:22:36 +0000 |
|---|---|---|
| committer | Samuel Breese | 2022-10-28 00:22:36 +0000 |
| commit | 70dbfad88da8fbeb9d7016e88db50e6e926715e8 (patch) | |
| tree | 81195bce93c35dc643525910ddc8f931c7d08999 | |
| parent | 45785803fa5ba724bc87923357ece5e184221a73 (diff) | |
Add idiomatic Perl5 implementation
| -rwxr-xr-x | entries/chameco/driver.sh | 6 | ||||
| -rw-r--r-- | entries/chameco/fib.pl | 1 | ||||
| -rw-r--r-- | people.json | 11 |
3 files changed, 18 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} diff --git a/people.json b/people.json index 81f71c1..8ff1a98 100644 --- a/people.json +++ b/people.json @@ -57,6 +57,17 @@ ] }, { + "github": "chameco", + "name": "Sam Breese", + "title": "professional screen observer", + "entries": [ + { + "name": "idiomatic perl5", + "link": "./entries/chameco/fib.pl" + } + ] + }, + { "github": "ionathanch", "name": "Jonathan Chan", "title": "MSc, UBC", |