Kätkön bogus-koordinaatteihin ei tarvitse mennä, oletettavasti sieltä ei löydy mitään kätköön liittyvää. Ratkaise mysteeri ja saat koordinaatit. There is no need to visit the bogus coordinates just solve the mystery to get the final coordinates.
(defconstant +encrypted+ "WIBHYUTFGCNNRFVGZVWCRHOSZISBXDDLOOJVKMJDCQYTFWCHWGXZYIIVSZWTOCFSKYZ")
(defconstant +base+ (+ (* 2 30) 5))
(defconstant +key+ "PSILCROKUJ")
(defparameter +indx+ (- (length +key+) 1))
(defun pos (item)
(- (char-int item) +base+))
(defun get-key ()
(let ((key (char +key+ +indx+)))
(setf +indx+ (- +indx+ 1))
(when (< +indx+ 0)
(setf +indx+ (- (length +key+) 1)))
(pos key)))
(defun decode (item)
(code-char (+ (mod (- (pos item) (get-key))(+ (* 4 6) 2)) +base+)))
(defun decrypt-str (encr)
(map 'string #'decode encr))
OMA KYNÄ MUKAAN (BRING YOUR OWN PEN)!