Skip to content

Instantly share code, notes, and snippets.

@funrep

funrep/foo.rkt

Last active December 23, 2015 14:49
Show Gist options
  • Save funrep/6651330 to your computer and use it in GitHub Desktop.
Save funrep/6651330 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
foo.rkt
#lang racket
(define (split-message s)
(let ([ss (regexp-split #rx":" s)])
(match (regexp-split #rx":" s)
[(list " " _ ...) (cdr ss)]
[_ ss)])))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment