Skip to content

Instantly share code, notes, and snippets.

@jrslepak

jrslepak/gist:555e20f58cb7e56b1836

Created July 17, 2014 22:21
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 jrslepak/555e20f58cb7e56b1836 to your computer and use it in GitHub Desktop.
Save jrslepak/555e20f58cb7e56b1836 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.rkt
#lang racket
(define (up-down x [so-far 1])
(if (equal? x so-far)
(displayln x)
(begin (displayln so-far)
(up-down x (add1 so-far))
(displayln so-far))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment