Skip to content

Instantly share code, notes, and snippets.

@dvanhorn

dvanhorn/3.rkt Secret

Created August 27, 2011 03:08
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 dvanhorn/3ad26a049df5cfcba878 to your computer and use it in GitHub Desktop.
Save dvanhorn/3ad26a049df5cfcba878 to your computer and use it in GitHub Desktop.
#lang racket
(define str
;; put the large string from src code here.
#<<HERE
...
HERE
)
(apply string
(map (λ (s) (string-ref s 4))
(regexp-match* #rx"[^A-Z][A-Z][A-Z][A-Z][a-z][A-Z][A-Z][A-Z][^A-Z]"
str)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment