diff options
| author | Abigail <abigail@abigail.be> | 2021-07-03 22:39:04 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-07-03 22:39:04 +0200 |
| commit | 45d76a2a1afcbbd50f53510330f12f4ea050de18 (patch) | |
| tree | cb2b6f296d36c6f0c7781c23ea7dc94a845b9b01 | |
| parent | a7ce90b6f493d33f65449fa3fe75333e2fd8fbc4 (diff) | |
| download | perlweeklychallenge-club-45d76a2a1afcbbd50f53510330f12f4ea050de18.tar.gz perlweeklychallenge-club-45d76a2a1afcbbd50f53510330f12f4ea050de18.tar.bz2 perlweeklychallenge-club-45d76a2a1afcbbd50f53510330f12f4ea050de18.zip | |
Scheme solution for week 119, part 1
| -rw-r--r-- | challenge-119/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-119/abigail/scheme/ch-1.scm | 24 |
2 files changed, 25 insertions, 0 deletions
diff --git a/challenge-119/abigail/README.md b/challenge-119/abigail/README.md index 8a78d90c19..2fc20d5e68 100644 --- a/challenge-119/abigail/README.md +++ b/challenge-119/abigail/README.md @@ -45,6 +45,7 @@ decimal `33`. * [Python](python/ch-1.py) * [R](r/ch-1.r) * [Ruby](ruby/ch-1.rb) +* [Scheme](scheme/ch-1.scm) * [Tcl](tcl/ch-1.tcl) ### Blog diff --git a/challenge-119/abigail/scheme/ch-1.scm b/challenge-119/abigail/scheme/ch-1.scm new file mode 100644 index 0000000000..8202ca7aaf --- /dev/null +++ b/challenge-119/abigail/scheme/ch-1.scm @@ -0,0 +1,24 @@ +;;; +;;; See ../README.md +;;; + +;;; +;;; Run as: guile --no-auto-compile ch-1.scm < input-file +;;; + + +(use-modules (ice-9 format)) + +(define (main) + (define num (read)) + (if (not (eof-object? num)) + (begin + (format #t "~d\n" (logior (logand num (lognot #xFF)) + (ash (logand num #x0F) 4) + (ash (logand num #xF0) -4))) + (main) + ) + ) +) + +(main) |