глюк в турбо паскале

[veniside]

> а когда проверяю такое (уже внутри функции)

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

[Camaro Chevelle]

кроме функции ничего нет, но если надо то вот

function binpal(n: longint): boolean;
  var
    i, j: integer;
    s: set of 0..8*sizeof(n)-1 absolute n;
  begin
    j:=8*sizeof(n)-1;
    while not (j in s) do
      dec(j);
    i:=0;

    writeln(i<>j);    
    writeln(i in s);
    writeln(j in s);
    writeln((i in s)=(j in s));

    while (i<>j) and ((i in s)=(j in s)) do begin
      inc(i);
      dec(j);
    end;
    binpal:=(j-i)<2;
  end;

var
  k: integer;
begin
  for k:=1 to 100 do
    writeln(k, ' ', binpal(k));
  readln
end.

[veniside]

ха, действительно, именно в БП они там временно сохраняют результат (i in s) в CL, а последующий вызов (j in s) успешно CL затирает. Так что да, глюк

[Camaro Chevelle]

спасибо, теперь всё ясно

[Serge_Bliznykov]

veniside, +1


to Camaro Chevelle
согласен, что Вы натолкнулись на глюк..
ну, в случае когда и в одном условии и в другом используется in - наблюдается косячок-с..
Не понимаю, почему Вы не хотите использовать дополнительные переменные!

Ну тогда так не пользуйтесь Turbo/Borland Pascal...
сейчас нет под рукой FPC, но я на 99.9% уверен, что там этого косячка не будет.
(в Delphi проверил - так косячка этого нет)

а ещё можно так попробовать:

    writeLn('  comparen = ', ((i in s) and (j in s) or (not(i in s) and not(j in s))));

а ещё, я совсем не понимаю, какой алгоритм Вы заложили в свой алгоритм (я бы использовал обычный цикл, две переменные N1 и N2 - сдвиги и битовые маски. это in s - это не для меня...

[Camaro Chevelle]

Сообщение от Serge_Bliznykov

а ещё, я совсем не понимаю, какой алгоритм Вы заложили в свой алгоритм (я бы использовал обычный цикл, две переменные N1 и N2 - сдвиги и битовые маски. это in s - это не для меня...

там не совсем наверно понятно. сначала ищу позицию самой крайней слева единички (это j), и потом начинаю двигать j и i навстречу друг другу пока на i-й и j-й позициях одинаковые значения. в результате если после цикла i и j стоят рядом или через одну позицию то тогда число есть палиндром.
почему начинаю с поиска самой левой единички и забиваю на самую правую? потому что в задаче сказано, что нужно искать палиндромы среди простых чисел, то есть до вызова функции binpal составные отсеятся, а у всех простых самая крайняя правая всегда 1, т. к. чётные не являются простыми (ну кроме двойки).

вот, примерно так

[veniside]

> вот, примерно так

метод забавный, но, имхо, сильно замудрённый. Цикла из 2-х строчек достаточно.

http://ideone.com/CdfEd

[Serge_Bliznykov]

Сообщение от veniside

метод забавный, но, имхо, сильно замудрённый. Цикла из 2-х строчек достаточно.

Красавчик!
а я бы начал мутить с побитным сравнением в цикле и прерыванием, как только симметричные биты не совпадают...
А Вы все биты исходного числа записали в новое число в обратном порядке. а потом сравнили это полученное число с исходным. совпало - значит палиндром!
Просто и изящно...

[Camaro Chevelle]

да как-то неохота лишнюю работу делать, т. е. имею в виду целиком число сравнивать, когда только половины достаточно.
и потом я делаю не для себя а одной девчонке, которая ну мягко говоря не понимает, поэтому такие слова как shl shr; not and or (в побитовом смысле) и xor (во всех смыслах) для неё тёмный лес а множество с абсолютными адресами я хоть как-то смог ей втереть