19 lines
533 B
Scheme
19 lines
533 B
Scheme
(import (except (scheme base) equal?)
|
|
(scheme read)
|
|
(scheme write)
|
|
(srfi 63) ; an array SRFI
|
|
)
|
|
|
|
;; Read x/y from user
|
|
(define x (begin (display "X: ") (flush-output-port) (read)))
|
|
(define y (begin (display "Y: ") (flush-output-port) (read)))
|
|
|
|
;; Create an array
|
|
(define array (make-array #(0) x y))
|
|
|
|
;; Write to middle element of the array
|
|
(array-set! array 3 (floor (/ x 2)) (floor (/ y 2)))
|
|
|
|
;; Retrieve and display result
|
|
(display (array-ref array (floor (/ x 2)) (floor (/ y 2)))) (newline)
|