LINUX.ORG.RU
ФорумTalks

Второапрельский ребус от saahriktu

 ,


1

1

Собственно, сабж:

(defvar datastr)
(defvar rstr)
(setq datastr "Сухофрукт спеет летом в 53 градуса тепла, а не зимой!")
(setq rstr (concatenate 'string (subseq datastr (floor (cos (/ pi 2))) (floor (sin (/ pi 2))))
 (subseq datastr (* 2 7 3) (+ (* 5 8) 3))
 (subseq datastr (+ (* 5 6) 9) (+ (* 6 6) 4))
 (subseq datastr (ceiling (expt 65536 0.0625)) (floor (expt 59049 0.1)))
 (subseq datastr (ceiling (expt 614656 0.25)) (- (* 5 7) 6))
 (subseq datastr (* 4 3 4) (- (* 5 7 2) (* 3 7)))
 (subseq datastr (floor (expt 282475249 0.1)) (/ 2664 333))
 (subseq datastr (ceiling (expt 64 0.5)) (/ 6993 777))
 (subseq datastr (- (* 6 7) 11) (floor (expt 1024 0.5)))
 (subseq datastr (+ (* 5 8) (- 10 4)) (- (* 8 8) (- 30 13)))
 (subseq datastr (/ 3075 123) (* 13 (floor (expt 4294967296 0.03125))))
 (subseq datastr (* 2 2 3 (- 19 17)) (* (/ 3885 777) (floor (expt 9765625 0.1))))
 (subseq datastr (+ (* 6 7) 1) (* 2 2 (floor (expt 25937424601 0.1))))
 (subseq datastr (+ (* 3 12) 1 1) (- (* 5 2 2 2) 1))
 (subseq datastr (+ (* 11 2 2) 1) (* 2 (- (* 5 5) 2)))
 (subseq datastr (* 5 7) (* (- 1001 999) (+ -7 10) (- -19 (* 2 -11)) (+ 19 -17)))
 (subseq datastr (floor (expt 380204032 0.2)) (ceiling (expt 7890481 0.25)))))
(format t "~s~%" rstr)
Собственно, суть ребуса: что выводит данная программа? %)

PS. Скрипт в KOI8-R (проверена работа в Steel Bank Common Lisp 1.5.1 при локали KOI8-R) можно скачать через gopher: gopher://sdf.org/9/users/saahriktu/filez/var/saahriktu20190402.lisp.lzma .

★★★★★

Последнее исправление: saahriktu (всего исправлений: 1)

Ответ на: комментарий от i-rinat

Тоже неправильный ответ. Даю подсказку: программа выводит 20 символов (с переводом строки), из них 12 символов - кириллица.

saahriktu ★★★★★
() автор топика
Ответ на: комментарий от i-rinat

Опять неправильный ответ, и в нём меньше букв из кириллицы.

saahriktu ★★★★★
() автор топика
Ответ на: комментарий от Deleted

Видимо, сильно урезанная. SBCL хорошо пережёвывает сабжевую программу.

saahriktu ★★★★★
() автор топика
Ответ на: комментарий от vladimir_vist

но не сходиться по количеству

Да, одной буквы не хватило всего.

i-rinat ★★★★★
()
Ответ на: комментарий от i-rinat

Я думал, тебе больше.

А мне казалось, что примерно столько же и есть. И в целом я угадал.

Deleted
()
Ответ на: Ха-ха от cvs-255

Потому, что это LISP. Я первоначально хотел выложить ребус конкретно для KOI8-R, но потом подумал, и выложил LISP'овый.
А первоначально я хотел выложить этот:

#include <stdio.h>

short int gtxt[18] =
 {    -1 * 4 * 3,
      -7 * 7 - 1,
      1 - 1,
      7168 / 1024,
      4 * 4 - 3 * 2,
      -3 * 768 / 256,
      514 - 512,
      288 / 32,
      -1 * -1,
      -13 * 13 - 4 * 3,
      7 * 3 - 2,
      510 / 255,
      -3 * 1785 / 255,
      5 * 5 * 5 + 48128 / 1024,
      -889 / 127,
      3825 / 255,
      -14 * 14 + (7 * 3 - 4),
      -2921 / 127 };

int main()
{
    short int i, x = 0xff;
    for (i = 0; i < 18; i++){
        x += gtxt[i];
        putchar(x);
    }
    return 0;
}

saahriktu ★★★★★
() автор топика

Даешь «saahriktu бинго»!

o-
()
Ответ на: комментарий от fuzzypants

сабжу

Ребусу? Ребусу и недели нет.

saahriktu ★★★★★
() автор топика
Ответ на: комментарий от DELIRIUM

Сложно в ребус, второе или это как-то связано с саахрикту?

Ramil ★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.