Skip to content

Instantly share code, notes, and snippets.

@samth

samth/typed-read.rkt

Created June 5, 2012 13:58
Show Gist options
  • Save samth/2875178 to your computer and use it in GitHub Desktop.
Save samth/2875178 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
typed-read.rkt
#lang typed/racket
(define d (read))
(match d
[(? number? d) (+ 5 d)]
[(? string? d) (string-append "hello " d)]
[_ (printf "unknown: ~a\n" d)])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment