Skip to content

Instantly share code, notes, and snippets.

@elderica

elderica/solve68.rkt

Created February 6, 2022 12:55
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 elderica/bd3dce884232c346bb074bda2fb99440 to your computer and use it in GitHub Desktop.
Save elderica/bd3dce884232c346bb074bda2fb99440 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
solve68.rkt
#lang racket
(define flag
(list->string
(for/list ([n (list 16 9 3 15 3 20 6 20 8 5
14 21 13 2 5 18 19 13 1
19 15 14)])
(integer->char (+ (char->integer #\A) n -1)))))
(displayln (string-append (substring flag 0 7) "{" (substring flag 7) "}"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment