Cel:

Biorąc pod uwagę dwie liczby naturalne (liczby całkowite od 0 do nieskończoności), wypisz liczbę, która nie jest sumą tych liczb, ale jest liczbą naturalną.

Przykładowe rozwiązania (TI-Basic):

• A+B+1

• not(A+B)

Nieprawidłowe rozwiązania:

• A+B-1(dla danych wejściowych 0,0zwraca -1, co nie jest naturalne)

• "ABC"( ABCnie jest liczbą)

Uwagi:

• Wynik zawsze musi być sumą dwóch liczb naturalnych (co w rzeczywistości jest po prostu liczbą naturalną)

• -1, undefined, infinity, NaNI komunikaty o błędach nie są liczbami naturalnymi. Dla naszych celów 0jest to naturalne (choć nie wszyscy matematycy się z tym zgadzają).

RProgN , 4 3 1 bajt

_{Przekreślone 4 to nadal 4; (}

E

Najprostsze rozwiązanie, porównuje, czy A i B są równe. Przesuwa true, który RProgN widzi jako 1, jeśli są takie same, lub false, inaczej 0.

Przypadki testowe

0+0 = 1
1+0 = 0
0+1 = 0
1+1 = 1

Wypróbuj online!

Siatkówka , 3 bajty

 
1

Wypróbuj online!

(W pierwszym wierszu znajduje się spacja przed znakiem nowej linii. Stos wymiany nie jest zbyt dobry w pokazywaniu końcowych białych znaków).

Dane wejściowe to liczby dziesiętne, oddzielone spacją (np 12 34.). Ten program po prostu zmienia spację na a 1, tworząc liczbę zbyt dużą, aby była sumą liczb wejściowych (koniecznie ma co najmniej 2 więcej cyfr niż każda z nich, a dodanie dwóch liczb daje wynik nie więcej niż 1 cyfrę więcej niż większy wkład).

Python , 13 bajtów

[(0,0)].count

Wypróbuj online! Pobiera dane wejściowe jako krotkę.

Użycie metody obiektowej dla funkcji pozwala uniknąć płyty kotłowej a lambda.

lambda a,b:a-~b   # 15 bytes

Tu chodzi o to, aby na mapie (0,0), aby 1i wszystko inne 0. Ponieważ 0+0daje tylko sumę 0liczb naturalnych, to zawsze pozwala uniknąć dopasowania sumy.

Gdyby ktoś mógł tutaj wypisać wartość logiczną, co uważam za podejrzane, bajt mógłby zostać zapisany jako

(0,0).__ge__

To sprawdza, czy krotka wejściowa jest co najwyżej (0,0), co jest prawdą tylko w przypadku (0,0). W Python True==1i False==0. Co więcej, wyjście z kodu wyjściowego i potraktowanie go jak Boolena Pythona pozwoliłoby zaoszczędzić dwa bajty:

[(0,0)].pop

Jeśli ciąg znaków we / wy jest dozwolony, a początkowe zera są prawidłowe, istnieje 8-bajtowe rozwiązanie

'1'.join

To konkatenuje a1b, które zawsze jest większe niż a+b.

MATL i in. 1 bajt

=

Akceptuje dwie liczby naturalne jako dane wejściowe i porównuje je. Jeśli są one równe, wynik jest, 1a jeśli nie są równe, wynik jest 0. Jest to to samo podejście, co rozwiązanie @ ATaco.

• MATL

• Galaretka (autor @ ais523)

• Stacked (autor: @Conor O'Brien)

• APL (Dyalog APL) (autor @ Adám)

• J (autor @ Adám)

• Właściwie (autor @Mego)

• Niejawne (w @MD XF)

JavaScript, 10 bajtów

x=>y=>!x+y

Pobiera 2 liczby przy użyciu składni curry, tak jak to:

(x=>y=>!x+y)(0)(0) // 1

Vim, 3 bajty / naciśnięcia klawiszy

<C-a>gJ

Wypróbuj online!

Zauważ, że <C-a>tak naprawdę to ctrl-a , który reprezentuje bajt 0x01.

Uwielbiam, kiedy vim (który nie jest nawet językiem programowania) może konkurować z językami golfa. :) Dane wejściowe są w tym formacie:

a
b

To po prostu zwiększa pierwszą liczbę o jeden (To jest <C-a>część), a następnie łączy reprezentacje ciągów dwóch liczb razem. O ile mogę stwierdzić, nigdy nie powinno to skutkować sumą.

Brain-Flak , 8 bajtów

({}{}())

Wypróbuj online!

To najbardziej czytelna odpowiedź, jaką kiedykolwiek napisałem. :)

Wyjaśnienie:

(      )    # Push the sum of all the following:
 {}         #   The first input
   {}       #   The second input
     ()     #   and one

Alternatywne rozwiązania (także 8 bajtów):

({}[]{})    # Sum + 1
([]{}{})    # Sum + 2

Istnieje wiele innych rozwiązań, które działają tylko z dodatnimi liczbami:

(<{}>{})
({}<{}>)
({{}}())
({{}()})
({{}}[])
({{}[]})

Galaretka , 2 bajty

+‘

+ Dodaje dwa dane wejściowe razem, a następnie „zwiększa odpowiedź o jeden

Wypróbuj online!

TI-Basic, 3 bajty

not(max(Ans

Alternatywne rozwiązania:

10^(sum(Ans         3 bytes @DestructibleWatermelon
not(sum(Ans         3 bytes
1+sum(Ans           4 bytes
Input :X=Y          5 bytes @ATaco
Input :X+not(Y      6 bytes
Input :not(X+Y      6 bytes
Input :10^(X+Y      6 bytes
Input :X+Y+1        7 bytes
Input :not(max(X,Y  7 bytes
Ans(1)=Ans(2        8 bytes
Ans(1)+not(Ans(2    9 bytes
not(Ans(1)+Ans(2    9 bytes

Interesujące jest to, że podałeś przykłady pytania w TI-Basic, ale zapomniałeś krótszego A=B(a może to do nas należało dowiedzieć się?)

Brachylog , 2 bajty

+<

Wypróbuj online!

Wyjaśnienie

+     The sum of the elements in the Input...
 <    ...is strictly less than the Output
      (implicitely label the output with an integer respecting this constraint)

To zawsze spowoduje A+B+1, jeśli Input = [A, B].

Mathematica, 5 bajtów

1+##&

Zwraca sumę dwóch argumentów plus 1. Na przykład 1+##&[2,5]zwraca 8.

(Uwaga dodatkowa: Binomialprawie działa, ale Binomial[1,0]=1i Binomial[4,2]=6są kontrprzykładami; myślę, że są to jedyne kontrprzykłady.)

PHP, 17 bajtów

<?=1-join($argv);

Uruchom tak:

echo '<?=1-join($argv);' | php -- 0 0
> 1

Wyjaśnienie

To po prostu łączy argumenty. Pierwszy argument (nazwa skryptu) zawiera -. W rezultacie powstaje liczba ujemna, którą neguję znakiem minus. Następnie dodaję 1, na wypadek, gdyby pierwszy numer wejściowy to 0(0123 = 123).

Perl 6 , 4 bajty

!*+*

Lambda (utworzona przez cokolwiek curry ), która dodaje odwrotność logiczną (1 lub 0) pierwszego argumentu do drugiego argumentu.

Wypróbuj online!

Turtlèd , 12 bajtów

robi bardzo duże liczby

'1?:?:[1'0l]

Wypróbuj online!

Wyjaśnienie:

'1                write one on the starting grid square
  ?:?:            take a number, move right that many (repeat)
      [1   ]      while not on a grid square with a one on it
        '0l       put a zero on that square, move left
[implicit output of grid]

W ten sposób wyprowadza 10 ** (x + y).

PHP, 19 bajtów

1<?=max([0]+$argv);

Java (OpenJDK 9) , 10 bajtów

a->b->a-~b

Wypróbuj online!

HODOR , 40 bajtów (niekonkurencyjny)

Jest to prawdopodobnie najkrótszy program, jaki Hodor kiedykolwiek napisał!

Dzieje się tak, gdy nie masz nic do roboty na 2-tygodniowe wakacje szkolne: stwórz naprawdę łatwo kodowane języki żartów, które absolutnie nic nie robią. Tak, na ferie szkolne !!!

Walder
Hodor?!
Hodor?!
Hodor HODOR!
HODOR!!!

Walder była pierwotna nazwa Hodora i dlatego jest potrzebna do rozpoczęcia programu.

Hodor?! pobiera liczbę ze STDIN lub pojedynczy znak i ustawia akumulator na wejście

Hodor dodaj 1 do akumulatora

HODOR! wysyła akumulator jako liczbę

HODOR!!!zabija Hodora! Nieeeee!

To jest pseudo kod:

Take input
Take input
Add 1 to sum(inputs)
Output value

SmileBASIC, 4 bajty

!A+B

nie (A) + B
1+1=2 -> !1+1 -> 0+1=1
0+1=1 -> !0+1 -> 1+1=2

R, 13 bajtów

sum(scan()+1)

Podziękowania dla Jonathana Allana za jego wkład!

05AB1E , 1 bajt

Q

Działa tak samo jak RProgNodpowiedź.

Sprawdza, czy ai bsą takie same. Jeśli tak, wydrukuj 1. W przeciwnym razie wydrukuj0

Wypróbuj online!

C 26 24 19 bajtów

f(c,d){return!c+d;}

Wersja bez golfa:

int f(int c,int d)
{
   return !c+d; 
}

Mam nadzieję, że mam poprawną specyfikację. Zdecydowanie można go skrócić !?

@Pavel Dziękujemy za zapisanie 2 bajtów

@Neil Dziękujemy za Twój wkład.

MATLAB / Octave, 3 bajty

@eq

Akceptuje dwa dane wejściowe i sprawdza równość i daje, 1jeśli są one równe i 0inne.

Demo online

pieprzenie mózgu, 12 bajtów

Proste rozwiązanie, które wychodzi A+B+1.

,>,[-<+>]<+.

Wypróbuj online

dc , 5 bajtów

?1n+n

Wypróbuj online!

Wejście: dwie liczby naturalne oddzielone spacją na standardowym wejściu.

Wyjście: cyfra 1, po której następuje suma dwóch liczb, która jest liczbą większą niż suma tych dwóch liczb.

Przykład:

Wkład: 222 333

Wydajność: 1555

PHP, 13 bajtów; (17 bez REPL)

!max($argv)+0

Przykłady

[0,0] -> 1
[0,1] -> 0
[1,0] -> 0

Dla osób bez użycia REPL

<?=!max($argv)+0;

i uruchom używając

echo '<?=!max($argv)+0;' | php -- 0 0

Cubix, 9 8 bajtów

u-~OII/@

Wyjaśnienie

Rozszerzona, ta odpowiedź wygląda następująco:

    u -
    ~ O
I I / @ . . . .
. . . . . . . .
    . .
    . .

Kolejność wykonywanych instrukcji jest następująca II~-O@

II~-O@
I      # First input
   -   # Minus
 I~    # NOT(second input)
    O  # Output as integer
     @ # End program

Testowane pod kątem wszystkich kombinacji wejść, gdy oba są w zakresie 0-100.

Wypróbuj tutaj .

APL - 4 bajty

1++/

Pobiera tablicę, sumuje jej elementy i dodaje jeden. Test:

 1++/1 2  
4
 1++/1 0
2

√ å ı ¥ ® Ï Ø ¿ , 4 bajty

II1_

II   Take 2 inputs and push to the stack
  1  Push 1 to the stack
   _ Push the sum of the stack

Aby wydrukować, dodaj ona końcu.

Sześciokąt , 7 bajtów

?<.!?)@

Wypróbuj online!

Lub w bardziej czytelnym formacie,

 ? <
. ! ?
 ) @

To pokonuje obecne rozwiązanie Hexagony o długości 11 bajtów.

Wyjaśnienie:

Jeśli pierwsza liczba nie jest równa 0, program przyjmuje następującą ścieżkę:

Odczytuje pierwszy numer i rozgałęzia się. Następnie odczytuje drugą liczbę, a następnie zawija i próbuje odczytać trzecią, ale to nie istnieje, więc czyta 0. To jest drukowane i program kończy się (zauważ, że jeśli a> 0, ponieważ b jest nieujemne a + b> 0).

Jeśli pierwsza liczba to 0, program rozpoczyna następującą ścieżkę:

Odczytuje pierwszy pozostały numer i gałęzie. Uderza w róg, biorąc trasę od północno-zachodniej krawędzi, ponieważ liczba wynosi 0 i odczytuje drugą liczbę. Zawija się, a następnie zwiększa drugi numer i drukuje.

Odbija się o <, drukując ponownie zwiększoną drugą wartość wejściową. Zwiększa wartość i ponownie przyjmuje północno-wschodnią krawędź, ale tym razem, ponieważ bieżąca krawędź jest dwukrotną nieujemną wartością, która jest zdecydowanie dodatnia. Następnie próbuje uzyskać trzecie wejście, ale zamiast tego otrzymuje 0.

Na koniec zawija się i zostaje przekierowany przez strzałkę, a następnie próbuje odczytać czwarte wejście i ponownie otrzymuje zero. Zawija się i próbuje odczytać piąte wejście i po raz ostatni otrzymuje 0. To drukuje i owija się na @i wychodzi.

Zauważ, że b * (10 ^ k + 1) * 10> 0 + b = b gdzie k jest długością b cyfr, więc to działa.

Bilard , 11 znaków = 17 bajtów

⇲
⇲
+
1
+
↥

Narzędzia x + y + 1. Dość podstawowa. Zajmuje wejścia na dwóch osobnych liniach. (Nawiasem mówiąc, język został nieco zmodyfikowany po wyzwaniu, ale tylko w celu powstrzymania wprowadzania pytania, nie jestem pewien, czy ta odpowiedź jest nadal ważna).

7 znaków = 11 bajtów, niekonkurujących

Ten jest krótszy, ale możliwy tylko po nowej aktualizacji języka:

⇲
⇲
=
$

Wykorzystuje to x == y, które bezwstydnie skradziono z rozwiązania RProgN @ ATaco [mam nadzieję, że nie masz nic przeciwko (:]. Przy $wyjściu określa, ile piłek przeszło nad nim.