Skip to content

Instantly share code, notes, and snippets.

@theodesp

theodesp/sign.scm

Last active August 23, 2018 12:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save theodesp/f991d2ca9638ca87bdf3f225dea602e8 to your computer and use it in GitHub Desktop.
Save theodesp/f991d2ca9638ca87bdf3f225dea602e8 to your computer and use it in GitHub Desktop.
Download ZIP
Get sign of Number #scheme
Raw
sign.scm
(import (rnrs (6)))
(use-modules ((rnrs) :version (6)))
(define (sign number)
(cond
((< number 0) 'negative)
((= number 0) 'zero)
(else 'positive))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment