Реализуйте на языке 1С 8 наиболее элегантно ЛОГИЧЕСКУЮ функуцию XOR(A,Б)
A,Б - гарантированно логические значения (тип булево).

(0) Поставь задачу корректно.

(1)

Функция XOR(A,Б)
 //требуется написать тело функции
КонецФункции

(1) он просит (не а и б) или (а и не Б) покороче

(0) дорого стоить будет

(2) Типы параметров?

0 или 0 = 0
0 --- 1 = 1
1 --- 0 = 1
1 --- 1 = 1

=> xor = (НЕ ИЛИ)

0 xor 0 = 1
0 --- 1 = 0
1 --- 0 = 0
1 --- 1 = 0

(5) внимательно читай (0)

Функция XOR(A,Б)
 Возврат НЕ (А или Б)
КонецФункции

ГДЕ
   ВЫБОР
       КОГДА A
           ТОГДА 1
       ИНАЧЕ 0
   КОНЕЦ + ВЫБОР
       КОГДА B
           ТОГДА 1
       ИНАЧЕ 0
   КОНЕЦ + ВЫБОР
       КОГДА C
           ТОГДА 1
       ИНАЧЕ 0
   КОНЕЦ +
   ...
   + ВЫБОР
       КОГДА Z
           ТОГДА 1
       ИНАЧЕ 0
   КОНЕЦ = 1

Не, я тащусь... Это ж 1Сик. Со всеми его выгибонами. И тут - задачи на как бы если выгибонов нет. Или есть?

попутал =(

1 --- 1 = 1

=)))

(8) неправильно

Функция XOR(A,Б)
 Возврат А<>Б
КонецФункции

(8) НЕ (ложь ИЛИ ложь)=истина, ксор(ложь, ложь)=ложь

(8) +1000000000
А теперь, если В тылу врага не согласен - пусть опровергает.

(13) красавчик, ты выиграл

(14) да я забыл ксор, теперь понял ошибку

(15)
Да-да-да, ошибки...
Ну тогда
Функция XOR(А,Б)
  Возврат А<>Б;
КонецФункции

(13) Блин, опередил!

(15) +100500

(17) Несущественно. Хочется понять, что имел в виду ТС.

(18) опоздун

(16) это из серии ?

Функция AND(A,Б)
 Возврат А * Б
КонецФункции

Функция OR(A,Б)
 Возврат А + Б
КонецФункции

(23) Матлогика рулит. :)

хотя (23) должно будет преобразовать в результат в число

(25) Булево как бы и есть число 0 или 1. по крайне мере, при
а=истина;
Сообщить(а=1); выводит "Да"

(0)
А%Б

(0) Может гарантированно числовые значения?

(28) не, логические, логический XOR

(А+Б)%2

вспоминая мат.логику, строим элементарную ДНФ:

Функция XOR(а, б)
  Возврат (а И НЕ б) ИЛИ (НЕ а И б);
КонецФункции

(31) а<>б короче

(32) зато (31) математически верно

(33) типа (13) не верно математически ))

(33) а (32), значит по-твоему, неверно?

(33) Так и (33) - математически верно.

НЕ Найти(А,Б)

ЛОЖЬ ИЛИ (А - Б)

(38) выражение (ЛОЖЬ ИЛИ Х) эквивалентно просто Х

(39) Вот не даешь ты человеку развернуться ))))

(40) больше не буду, прошу извиниь

только я вижу ошибку в (6)?

(39)
да.
"ЛОЖЬ ИЛИ" добавлено только приведения типа. Ложь или (-1)= Истина

Функция XOR(А, Б)
 
  Скрипт = Новый COMObject("MSScriptControl.ScriptControl");
  Скрипт.language = "vbscript";
  Возврат Скрипт.Eval("" + Число(А) + " xor " + Число(Б));
   
КонецФункции

(44) ресурсоемко

(45) Работает!

(45) зато по-честному.

(46) ну с этим я спорить не буду

(44) по хорошему, надо бы веб-сервис на java написать…

Функция XOR(А, Б)
  Возврат А+Б=1;
КонецФункции

Перепись отучившихся у Гилева чтоли?

Функция XOR(А, Б)
   
   тз = Новый ТаблицаЗначений;
   тз.Колонки.Добавить("Значение");
   стр = тз.Добавить(); стр.Значение = А;
   стр = тз.Добавить(); стр.Значение = Б;
   тз.Свернуть("Значение");
   Возврат тз.Количество()-1;
   
КонецФункции

точнее:

Функция XOR(А, Б)
  Возврат (0+А+Б)=1;
КонецФункции

Функция XOR(А, Б)
   
   аб = Новый Соответствие;
   аб[А]=Б;
   аб[Б]=А;

   Возврат аб.Количество()-1;
   
КонецФункции

другой вариант

Функция XOR(А, Б)
  Возврат Мин(А,Б) <> Макс(А,Б);
КонецФункции

Функция XOR(А, Б)
   
   Возврат НЕ (0+А-Б=0);
   
КонецФункции

(56) плагиат!!! караул мою нетленку стырили! я может над ней 3 года работал!!!

(57) Ладно, можешь стырить мою.

Функция XOR(А, Б)
   
   Попытка
       о = 1/(А-Б);
       Возврат Истина;
   Исключение
       Возврат Ложь;
   КонецПопытки;
   
КонецФункции

?(А, НЕ Б, Б)

СтрДлина(""+ А + Б) = 5

(60) не будет работать при локализации например на английсуий

(61)
да. вот так можно, но тоже на грани фола
СтрДлина(""+ А + Б) = СтрДлина(""+Истина + Ложь)

Разве единственный правильный ответ не дан уже в (13)?

Функция XOR(А, Б)
   о = sin(А) + sin(Б);
   Возврат о > 0.8 И о < 0.9;
КонецФункции

СтрДлина("" +Формат( А,"БЛ=Нет; БИ=Да")+Формат(Б,"БЛ=Нет; БИ=Да"))

(63) сегодня нет. пятница.

я так и не понял что надо

что такое XOR

сам я пользуюсь (30)

"XOR", он же "<>" - это строгая дизъюнкция.

(68) исключающее ИЛИ.
единица, если операнды не равны.
ноль, если операнды равны.

A<>B

например, в javascript и других языках с неявным приведением типов, номер с <> не прокатит.

(73) ну автор какбэ ограничил в (0) языком 1С 8 :-)

Настоящая интеллектуальная программа должна найти метод решения в интернете, доработать его под конкретную задачу и выдать ответ. Посему вот вам Реально Интеллектуальное Эвристическое Решение:

ВНИМАНИЕ! Работает не всегда и не везде, как и положено интеллектуальным эвристическим решениям.

Функция XOR(А,Б)
   
   путь = "c:\temp\file.txt";
   КопироватьФайл("http://www.forum.mista.ru/topic.php?id=663017&format=pda&page=1",путь);
   Файл = Новый ТекстовыйДокумент();
   Файл.Прочитать(путь);
   ветка = Файл.ПолучитьТекст();
   поз = Найти(ветка, "[13 - 26-04-2013 13:59]");
   программа = Сред(ветка,поз+65,10);
   программа = СтрЗаменить(программа,"&lt;","<");
   программа = СтрЗаменить(программа,"&gt;",">");
   
   Возврат Вычислить(программа);
   
КонецФункции

(75) кхе, выделение синтаксиса не видит закрывающие кавычки в пути :-)

(76) Программа-разукрашка обладает низким уровня интеллекта, поэтому она не может осознать глубину элегантности Реально Интеллектуального Эвристического Решения.

(0) За прекрасную пятничную ветку я разбанил ник Ненавижу 1С

(78) благодарю

Я, когда писал sha1 на 1С использовал XOR в таком виде (A+B)%2, где A и B - числа (0 или 1).

(80)+ Собственно, и перенос в старшие разряды рассматривался также: (A-A%2)/2

(0) На, держи
Функция XOR(A, B)

   Возврат ?(А=B, 0, 1)

КонецФункции

Блин, в 13 уже было

(0) Спрашивал бы сразу про XIRR, а то какую-то тривиальную XOR. Да ещё и "функуцию". Насколько "куцию"? :)

а вот первый раз. ажиотажа небыло
Побитовый XOR на языке 1С

а таки было бы интересней.
http://1csoft.com/node/142

жаль что доступа нету :(
http://nashe1c.ru/materials-view.jsp?id=195

Запросом?

?((Не А и НЕ Б) или (А и Б),Истина,А Или Б)

Запросом:
ВЫБОР КОГДА (НЕ А И НЕ Б) ИЛИ (А И Б) ТОГДА ЛОЖЬ ИНАЧЕ А ИЛИ Б КОНЕЦ

+(89) там вместо ИСТИНА должно быть ЛОЖЬ

А хотя можно так (исключающее же):
НЕ (А ИЛИ Б)

неправильно

(93) Докажи

++(84) Докажи программисту, который написал интерпритатор

(95) програмист, который написал интерпретатор, не может не знать таблицу истинности оператора XOR.

А, да, ошибся... При НЕ А И НЕ Б получается истина, а при А И Б - ложь

(96) Написавший интерпретатор - знает. А вот написавший "интерпритатор" (с) (95)

Прошу прощения, на пиве сижу... Наркоманнненннн ))))

(98) Пива, пива...)))))

Ладно, чо, хайте, лоханулся, так лоханулся... С кем не бывает

Но как идею взять можно

И кста, я сотый, стопервый, и стовторой, а этим постом еще и стопицотый

(103) Отдохни часок, протрезвей, успокойся.

(94) Консоль доажет, попробуй выполнить свое
ВЫБОР КОГДА (НЕ А И НЕ Б) ИЛИ (А И Б) ТОГДА ЛОЖЬ ИНАЧЕ А ИЛИ Б КОНЕЦ

ужеб писал так

ВЫБОР КОГДА (НЕ &А И НЕ &Б) ИЛИ (&А И &Б) ТОГДА ЛОЖЬ ИНАЧЕ &А ИЛИ &Б КОНЕЦ

(105) А и Б могут быть полями запроса

окей, тогда правильно

(107) Воооооооооот, а меня забанили тут на час зачем то

это типа вытрезвусика было xD

было?
Возврат не (а = б) и (а или б);

+110 мда, похоже на (13)

2(108) это не я, я спал.