Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

New file for Issue #248

Browse source
This commit is contained in:
Justin Ethier 2018-03-26 11:21:56 -04:00
parent ebc68e6746
commit 867c23b17a
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
examples/greater-of.scm Normal file
View file

@ -0,0 +1,9 @@
;; 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)