diff options
| author | Abigail <abigail@abigail.be> | 2021-03-16 02:15:28 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-03-16 02:15:28 +0100 |
| commit | 408dcd747c019bc0f36c90b60179aa5a75991f12 (patch) | |
| tree | 7d03ef0959d362892aea4d2d022b24b96818a231 | |
| parent | dec696bb75cef4f99dcf99a229ef1db5a9de2757 (diff) | |
| download | perlweeklychallenge-club-408dcd747c019bc0f36c90b60179aa5a75991f12.tar.gz perlweeklychallenge-club-408dcd747c019bc0f36c90b60179aa5a75991f12.tar.bz2 perlweeklychallenge-club-408dcd747c019bc0f36c90b60179aa5a75991f12.zip | |
Scheme solution for week 104, part 1
| -rw-r--r-- | challenge-104/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-104/abigail/scheme/ch-1.scm | 10 |
2 files changed, 11 insertions, 0 deletions
diff --git a/challenge-104/abigail/README.md b/challenge-104/abigail/README.md index fd4323a463..9aa0baa366 100644 --- a/challenge-104/abigail/README.md +++ b/challenge-104/abigail/README.md @@ -39,6 +39,7 @@ even handle a single if statement. A single print statement is enough. * [Tcl](tcl/ch-1.tcl) * [R](r/ch-1.r) * [Ruby](ruby/ch-1.rb) +* [Scheme](scheme/ch-1.scm) * [SQL](sql/ch-1.sql) ### Blog diff --git a/challenge-104/abigail/scheme/ch-1.scm b/challenge-104/abigail/scheme/ch-1.scm new file mode 100644 index 0000000000..1976ee274a --- /dev/null +++ b/challenge-104/abigail/scheme/ch-1.scm @@ -0,0 +1,10 @@ +;;; +;;; See ../README.md +;;; + +;;; +;;; Run as: guile --no-auto-compile ch-1.scm +;;; + +(display "0 1 1 2 1 3 2 3 1 4 3 5 2 5 3 4 1 5 4 7 3 8 5 7 2 7 ") +(display "5 8 3 7 4 5 1 6 5 9 4 11 7 10 3 11 8 13 5 12 7 9 2 9\n") |