"Yükselen matris", herhangi bir öğenin, ilgili satır ve sütunda daha önce kullanılmamış olan en küçük eleman olduğu tam sayıların (0 dahil) sonsuz bir matrisidir:

  | 1 2 3 4 5 6 ...
--+----------------
1 | 0 1 2 3 4 5 ...
2 | 1 0 3 2 5 4 ...
3 | 2 3 0 1 6 7 ...
4 | 3 2 1 0 7 6 ...
5 | 4 5 6 7 0 1 ...
6 | 5 4 7 6 1 0 ...
. | ...............

Göreviniz, girdi tarafından belirtilen satır ve sütunda bulunan öğeyi çıktılayacak bir program yazmaktır. (standart giriş ve çıkış)

Test senaryoları:

5 3 -> 6
2 5 -> 5

Code Golf kuralları geçerlidir; en kısa kod kazanır.

PS Bu algoritmik bir yapıya sahip olsa bile, kod çok ama çok özlü olabilir.

EDIT: xor çözümünü bu kadar erken görmeyi beklemiyordum. Gerçekten algoritmik bir yaklaşım ve daha sonra xor çözümü ile 10 yazı görmek umuyordum. Şimdi, farklı dillerde xor yazmanın çok eğlenceli olmadığını akılda tutarak algoritmik bir yaklaşım denemenizi tavsiye ederim.

Evet, sanırım şimdi kimse 5 karakter işaretini geçemez - bu nedenle Ilmari Karonen'i en akıllı ve en kısa çözüm için tebrik ediyorum. Ancak ileride yeni bir zorluk var: en kısa algoritmik çözümü yazın .

GolfScript, 5 karakter

~(\(^

Gerçekten de, kalıbı tanıdığınızda bu görev çok basittir. Tek garip bit 1 tabanlı indeksleme - giriş endeksleri sıfır tabanlıysa, bu 2 karakterli çözüm yeterli olacaktır:

~^

Bunu GolfScript'e aşina olmayan okuyuculara açıklamak için, ~komut girdiyi değiştirir ve iki sayıyı yığın üzerinde bırakır. ^sonra XOR yığındaki en üstteki iki sayıyı bir araya getirerek sonucu çıktı için bırakır. 1 tabanlı girişle başa çıkmak için iki komut daha gerekir: (yığındaki en üstteki sayıyı bir azaltır, yığındaki \en üstteki iki öğeyi değiştirir.

Mathematica 10 44

Düzenle

İlk cevabım, Ilmari'nin belirttiği gibi, zorluğun doğası hakkında bir yanlış anlaşılmaya dayanıyordu. İşte başka bir deneme.

kullanım

f[n___, 1, n___] := n - 1;
j_~f~k_ := BitXor[j - 1, k - 1]

K, 31

{0b/:{(x|y)&~x~y}. 0b\:'-1+x,y}

Kendimi asla fark etmeyeceğim Ilmari Karonen'in XOR mantığını çaldım.

PHP, 38

Ilmari Karonen'in XOR'unun basit bir uygulaması

<?php echo --$_GET['a']^--$_GET['b']?>

Kullanımı:

... / xor.php? A = 4 & b = 7

yazdıracak 6

Haskell 174

XOR'a dayanmayan bir çözüm yapacağımı düşündüm. Düzgün golf için çok tembel.

a 0 0=0
a b c
 |m==n=a(b-m)(c-n)
 |m>n=m+a(b-m)c
 |m<n=n+a b(c-n)
 where{g f=until(>f)(*2)1`div`2;m=g b;n=g c;}
main=do
 [x,y]<-fmap(map read.words)getLine
 print$a(x-1)(y-1)

Düzenleme: Bir gün sonra bu sadece XOR hesaplıyor fark ettim. Eğer bu algoritmik bir çözüm olarak sayılırsa, Ilmari Karonen'in de öyle.

Python 2, 36

Ben sadece Python öğrenmeye başladığımdan beri, ilk cevabımı kullanarak göndermek için mükemmel bir zaman olacağını anladım (ve hiç kimse Python kullanarak cevap vermedi) ve belki de bazı geri bildirimler alabilirim.

@IlmariKaronen'a çok güzel kısayol için teşekkür ederiz.

Aşağıdaki kod için @Gareth'e teşekkür ederiz.

import sys
print(input()-1^input()-1)

Python 3, 56

Yazdığım orijinal program.

import sys
x=int(input())
y=int(input())
x-=1
y-=1
print(x^y)

2 ve 5'li IDEONE

3 ve 3 ile IDEONE

MATL , 2 bayt

Z~

Çevrimiçi deneyin!

MATL, meydan okumayı birkaç yıl sonra erteliyor, ancak, hey, doğal 1 tabanlı indeksleme ve bitsel bir xor fonksiyonu bunu güzel ve düzenli hale getiriyor!

Perl 5 , 12 bayt

say<>-1^<>-1

Çevrimiçi deneyin!

Javascript 13 bayt

a=>b=>--a^--b

f=a=>b=>--a^--b

result = document.getElementById('result')

<input type="text" onkeyup="result.innerHTML = f(this.value.split(',')[0])(this.value.split(',')[1])" >
<p id="result"></p>

Japt , 5 bayt

UÉ^VÉ

Çevrimiçi deneyin!