diff options
| -rw-r--r-- | challenge-134/abigail/README.md | 2 | ||||
| -rw-r--r-- | challenge-134/abigail/scheme/ch-1.scm | 14 | ||||
| -rw-r--r-- | challenge-134/abigail/scheme/ch-2.scm | 41 |
3 files changed, 57 insertions, 0 deletions
diff --git a/challenge-134/abigail/README.md b/challenge-134/abigail/README.md index 72ad1c8f12..af093cceb0 100644 --- a/challenge-134/abigail/README.md +++ b/challenge-134/abigail/README.md @@ -16,6 +16,7 @@ * [Perl](perl/ch-1.pl) * [Python](python/ch-1.py) * [Ruby](ruby/ch-1.rb) +* [Scheme](scheme/ch-1.scm) * [Tcl](tcl/ch-1.tcl) ## Part 2 @@ -31,4 +32,5 @@ * [Perl](perl/ch-2.pl) * [Python](python/ch-2.py) * [Ruby](ruby/ch-2.rb) +* [Scheme](scheme/ch-2.scm) * [Tcl](tcl/ch-2.tcl) diff --git a/challenge-134/abigail/scheme/ch-1.scm b/challenge-134/abigail/scheme/ch-1.scm new file mode 100644 index 0000000000..bd23884d91 --- /dev/null +++ b/challenge-134/abigail/scheme/ch-1.scm @@ -0,0 +1,14 @@ +;;; +;;; See ../README.md +;;; + +;;; +;;; Run as: guile --no-auto-compile ch-1.scm +;;; + +(use-modules (ice-9 format)) + +(define t #@1(789 798 879 897 978)) +(do ((i 1 (1+ i))) + ((> i (array-length t))) + (format #t "1023456~d\n" (array-ref t i))) diff --git a/challenge-134/abigail/scheme/ch-2.scm b/challenge-134/abigail/scheme/ch-2.scm new file mode 100644 index 0000000000..25874c204a --- /dev/null +++ b/challenge-134/abigail/scheme/ch-2.scm @@ -0,0 +1,41 @@ +;;; +;;; See ../README.md +;;; + +;;; +;;; Run as: guile --no-auto-compile ch-2.scm < input-file +;;; + + +(define (main) + (define m (read)) + (define n (read)) + (define count 0) + (define seen #()) + (if (not (eof-object? m)) + (begin + (set! seen (make-array 0 (+ 1 (* m n)))) + (do ((i 1 (1+ i))) + ((> i n)) + (begin + (do ((j 1 (1+ j))) + ((> j m)) + (begin + (if (= (array-ref seen (* i j)) 0) + (begin + (array-set! seen 1 (* i j)) + (set! count (1+ count)) + ) + ) + ) + ) + ) + ) + (display count) + (newline) + (main) + ) + ) +) + +(main) |