secret
Created

  • Download Gist
3.rkt
Racket
1 2 3 4 5 6 7 8 9 10 11 12
#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)))

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.