Как найти подряд три идущих единицы с использованием битовой логики?
Каким способом и или алгоритмом можно найти три подряд идущих единицы с использованием побитовой логики? Если можно, то с учётом как горизонтального, так и вертикального ряда.
На любом языке высокого уровня ваша "битовая логика" будет работать медленнее и выглядеть уродливо чем примитивное целочисленное суммирование.
i := 0;
j := 0;
repeat
repeat
s := 0;
for k := 0 to 2 do
s := s + arr[j, i +k];
inc(i);
until (i < 5) and (s > 0) ;
inc(j);
until (j <= High(arr)) and (s > 0) ;