mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
9 lines
183 B
Scheme
9 lines
183 B
Scheme
;; Test program for issue 248
|
|
(import (scheme base) (scheme write))
|
|
|
|
(define (greater-of x y) (if (> x y) x y))
|
|
|
|
(write (greater-of 0 1))
|
|
(newline)
|
|
(write (greater-of 1 0))
|
|
(newline)
|