Create a gist now

Instantly share code, notes, and snippets.

@dvanhorn /3.rkt Secret
Created Aug 27, 2011

What would you like to do?
#lang racket
(define str
;; put the large string from src code 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]"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment