diff options
| author | Abigail <abigail@abigail.be> | 2021-07-12 16:04:39 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-07-12 18:43:38 +0200 |
| commit | b6998257ebb26100a3566169cfd6dc0b8d3a060f (patch) | |
| tree | ca7f074f7f33c3229408c738e164f657b88fa3cf /challenge-121/abigail/scheme | |
| parent | 5f2d90da63b25cf21b53a3f557fb71a11a5ace06 (diff) | |
| download | perlweeklychallenge-club-b6998257ebb26100a3566169cfd6dc0b8d3a060f.tar.gz perlweeklychallenge-club-b6998257ebb26100a3566169cfd6dc0b8d3a060f.tar.bz2 perlweeklychallenge-club-b6998257ebb26100a3566169cfd6dc0b8d3a060f.zip | |
Solutions in 16 languages for week 121, part 1
Diffstat (limited to 'challenge-121/abigail/scheme')
| -rw-r--r-- | challenge-121/abigail/scheme/ch-1.scm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/challenge-121/abigail/scheme/ch-1.scm b/challenge-121/abigail/scheme/ch-1.scm new file mode 100644 index 0000000000..742359b040 --- /dev/null +++ b/challenge-121/abigail/scheme/ch-1.scm @@ -0,0 +1,22 @@ +;;; +;;; See ../README.md +;;; + +;;; +;;; Run as: guile --no-auto-compile ch-1.scm +;;; + +(use-modules (ice-9 format)) + +(define (main) + (define m (read)) + (define n (read)) + (if (not (eof-object? m)) + (begin + (format #t "~d\n" (logxor m (ash 1 (- n 1)))) + (main) + ) + ) +) + +(main) |