14 lines
413 B
Racket
14 lines
413 B
Racket
#lang racket
|
|
|
|
(define start '(166 210 154 166 110 214 100 100 162 190 180 162 152 204 150 144 158 104 180 124 158 138 102 138 168 98 178 32 -4 142))
|
|
|
|
(define d (map - start))
|
|
(define x (map (curry bitwise-xor 20) d))
|
|
(define dd (map - x))
|
|
(define y (map (curry + 20) dd))
|
|
(define z (map (λ (x) (/ x 2)) y))
|
|
(define a (map (curry bitwise-xor 42) z))
|
|
(define b (map integer->char a))
|
|
(define c (list->string b))
|
|
c
|