LINUX.ORG.RU
ФорумTalks

Большой июльский ребус от saahriktu

 


1

1

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

program prg201907;
{$codepage UTF8}
uses cwstring, math;
var
	s1: UnicodeString = 'Як-строитель чудит набирая звонком от плейера юрко "WAVE FULL OF 8 RUSTY CHECKED MULTIPLEX IMAGES!", однако.';
	s2: UnicodeString = '';
	indx: Integer;

function getdata1(x: Integer): Integer;
begin
	case (x) of
	$0, $2f: getdata1 := Floor64(1.340425531914894 * x + 1);
	$1, $12, $14, $1c, $23, $25, $33, $38, $3e, $45, $47, $4d: getdata1 := $d;
	$2, $a, $1a, $1e, $20: getdata1 := $1e;
	$3..$4: getdata1 := $1d + x;
	$5, $9, $19: getdata1 := $14;
	$6, $8: getdata1 := Floor64($1d - $5 * x / $2);
	$7, $10: getdata1 := $19;
	$b, $d: getdata1 := $10 + x;
	$c, $f: getdata1 := Floor64(7 * x / $3 - $7);
	$e, $15, $51: getdata1 := $1a;
	$11, $21, $50: getdata1 := $b;
	$13, $1f: getdata1 := $4;
	$16, $17: getdata1 := $94 - $6 * x;
	$18, $1b: getdata1 := $c * x - $11a;
	$1d, $22, $27, $2c: if x < $27 then getdata1 := $9 * x - $103
	                    else getdata1 := $9 * x - $120;
	$24, $46: getdata1 := $8;
	$26, $5a: getdata1 := $4e;
	$28, $35, $59: getdata1 := $5c;
	$29, $31: getdata1 := $42;
	$2a, $30: getdata1 := $3;
	$2b, $4b, $58: getdata1 := $44;
	$2d, $5c: getdata1 := $45;
	$2e, $49, $5b: getdata1 := $47;
	$32, $37, $3d: getdata1 := $64;
	$34, $39: getdata1 := $1c9 - $7 * x;
	$36, $40, $43, $55, $56: getdata1 := $36;
	$3a, $3b: getdata1 := $ab - $2 * x;
	$3c, $4c: getdata1 := $52;
	$3f, $42: getdata1 := Floor64($168 - $d * x / $3);
	$41, $54: getdata1 := $46;
	$44, $48: getdata1 := Floor64($f * x / $2 - $1c2);
	$4a, $4e: getdata1 := Floor64($a17 / $2 - $41 * x / $4);
	$4f, $52: getdata1 := x - $40;
	$53, $57: getdata1 := Floor64($8fd / $4 - $17 * x / $4);
	else getdata1 := -1;
	end;
end;

function getdata2(x: Integer): Integer;
begin
	case (x) of
	$0..$7, $9..$a, $c..$1d, $1f..$20, $22..$33, $35..$5c: getdata2 := $1;
	$8, $34: getdata2 := $4;
	$b, $1e, $21: getdata2 := $2;
	else getdata2 := -1;
	end;
end;

begin
	for indx := $0 to $2c do s2 := s2 + copy(s1, getdata1(indx), getdata2(indx));
	s2 := s2 + chr($a);
	for indx := $2d to $53 do s2 := s2 + copy(s1, getdata1(indx), getdata2(indx));
	s2 := s2 + chr($a) + chr($a);
	for indx := $54 to $5c do s2 := s2 + copy(s1, getdata1(indx), getdata2(indx));
	writeln(s2);
end.
Эта программа на Free Pascal'е выводит текст в UTF-8.

Суть ребуса: какой конкретно текст в UTF-8 выводит эта программа?

★★★★★

Последнее исправление: saahriktu (всего исправлений: 1)
Ответ на: комментарий от gremlin_the_red

Можно быть прекрасным математиком, вообще не умея считать.

Ну-ну.

не разделишь ли мне число Грэма на 2

То, что некоторые математические операции так просто не проводятся, совершенно не означает, что, якобы, математикам совершенно не нужно выполнять вычисления.

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

Ну-ну.

Ду-ду. Часто даже чисел можно не знать. https://cs.pikabu.ru/images/previews_comm/2014-01_3/13895475175928.jpg

якобы, математикам совершенно не нужно выполнять вычисления

Без всяких «якобы». Открой любой учебник по матану, функану, тфкп, теории групп и покажи, где там нужны вычисления.

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

Вы так говорите как будто бы _вся_ математика ограничивается анализом взаимоотношений различных сущностей. Однако, это только отдельные области математики. При этом математические вычисления полезны в т.ч. и при работе с уравнениями. Без математических вычислений даже «x + x/2 + 3» не упростить до «1.5 * x + 3». Да, это тоже математические вычисления.

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

При этом математические вычисления полезны в т.ч. и при работе с уравнениями

Только что ты говорил, что вычисления являются важной областью математики, но вспомнить смог только уравнения. 4 класс средней школы.

даже «x + x/2 + 3» не упростить до «1.5 * x + 3». Да, это тоже математические вычисления

Эти вычисления уровня счёта на камушках. Тема, почему математик не может проводить такие вычисления на калькуляторе (да даже на счётах), совершенно не раскрыта.

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

Эти вычисления уровня

Так и мы тут на пальцах по вершинам айсбергов разговариваем. Соответственно, разумеется, суть не в примерах. Тем более, что кто-то делал даже такие утверждения:

Можно быть прекрасным математиком, вообще не умея считать.

А тут внезапно выясняется, что даже на уровне 4-го класса без счёта уравнение не упростить. Вот на это противоречие я и указывал.

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

А тут внезапно выясняется, что даже на уровне 4-го класса без счёта уравнение не упростить

Легко. Беру свой любимый калькулятор лбратной польской записи (работающий, разумеется, а не нелепую поделку некого гражданина), нажимаю на нём 1,<стек>,2,/,1,+, вуаля, уравнение упрощено. И математики уже дано не занимаются собственно решением уравнений, это давно сугубо прикладная задача для всяких инженеров, программистов, экономистов и других истов.

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