Belirsiz boyutun bir listesini bir sayı ile eşleyin!

11

Sonsuzluğu inceleyen Matematik alanında , herhangi bir sonlu sayılabilir kümenin Kartezyen ürününün de sayılabilir olduğu iyi bilinmektedir .

Göreviniz bunu uygulamak için iki program yazmak, biri listeden tamsayıya eşlemek, diğeri tamsayıdan listeye eşleştirmek.

İşleviniz iki yönlü ve deterministik olmalıdır, yani 1her zaman belirli bir listeyle eşleşir ve her 2zaman başka bir listeyle eşleşir, vb.

Daha önce , tam sayıları yalnızca 0ve öğelerinden oluşan bir listeyle eşleştirdik 1.

Ancak, şimdi liste negatif olmayan sayılardan oluşacaktır.

gözlük

  • Program / fonksiyon, makul giriş / çıkış formatı.
  • Eşlenen tamsayıların başından 1başlayıp başlamaması 0sizin seçiminizdir, yani 0hiçbir şeye eşlemek zorunda kalmayacak (ama olabilir).
  • Boş dizi []kodlanmalıdır.
  • Giriş / çıkış herhangi bir bazda olabilir.
  • Kodun iki işlev arasında paylaşılmasına izin verilir .

puanlama

Bu kod golfü . En düşük puan kazanır.

Skor, iki programın / fonksiyonun uzunluklarının (bayt cinsinden) toplamıdır.

code-golf  set-theory 
— Sızdıran Rahibe
kaynak
"Ancak, şimdi liste negatif olmayan sayılardan oluşacak."
— Sızdıran Rahibe
Net olmak gerekirse, harita yapıyor muyuz N^inf -> N?
— Mego
@Mego N ^ inf sayılamaz. N ^ k burada k herhangi bir sonlu sayıdır.
— Sızdıran Rahibe
Bu konuyu sohbette tartışıyoruz.
— Sızdıran Rahibe
İster 1'den başlar, ister 0'dan başlar. Bu, tekli tamsayı ve listedeki tamsayılar için geçerlidir.
— Dennis

Yanıtlar:

10

Jöle , 18 16 bayt

Tamsayıya liste, 10 8 bayt

TṪạL;³ÆẸ

Negatif olmayan tamsayıların listesini pozitif tamsayılarla eşler. Çevrimiçi deneyin!

Listeye tam sayı, 8 bayt

ÆE©Ḣ0ẋ®;

Pozitif tam sayıları negatif olmayan tam sayı listelerine eşler. Çevrimiçi deneyin!

Arka fon

Let p 0 , p 1 , p 2 , ⋯ artan asal sayıların dizisi olabilir.

Negatif olmayan tamsayılardır, her liste için A: = [a 1 , ⋯, bir n ] , biz harita A için p 0 z (A) p 1 , bir 1 ⋯ p , n bir , n , Z, (A) sayısıdır A'nın son sıfırları .

Yukarıdaki haritayı tersine çevirerek. Bir İçin pozitif tamsayı k , biz benzersiz ardışık asal güçlerin ürünü olarak çarpanlarına n = p 0 α 0 p 1 α 1 ⋯ p n α n , nereye α n > 0 , daha sonra listeyi yeniden α [ 1 , ⋯, α n ] , α 0 sıfır ekleyerek .

Nasıl çalışır

Tam sayıya liste

TṪạL;³ÆẸ  Main link. Argument: A (list of non-negative integers)

T         Yield all indices of A that correspond to truthy (i.e., non-zero) items.
 Ṫ        Tail; select the last truthy index.
          This returns 0 if the list is empty.
   L      Yield the length of A.
  ạ       Compute the absolute difference of the last truthy index and the length.
          This yields the amount of trailing zeroes of A.
    ;³    Prepend the difference to A.
      ÆẸ  Convert the list from prime exponents to integer.

Listelenecek tam sayı

ÆE©Ḣ0ẋ®;  Main link. Input: k (positive integer)

ÆE        Convert k to the list of its prime exponents.
  ©       Save the list of prime exponents in the register.
   Ḣ      Head; pop the first exponent.
          If the list is empty, this yields 0.
    0ẋ    Construct a list of that many zeroes.
      ®;  Concatenate the popped list of exponents with the list of zeroes.

Örnek çıktı

İlk yüz pozitif tam sayı aşağıdaki listelerle eşleşir.

  1: []
  2: [0]
  3: [1]
  4: [0, 0]
  5: [0, 1]
  6: [1, 0]
  7: [0, 0, 1]
  8: [0, 0, 0]
  9: [2]
 10: [0, 1, 0]
 11: [0, 0, 0, 1]
 12: [1, 0, 0]
 13: [0, 0, 0, 0, 1]
 14: [0, 0, 1, 0]
 15: [1, 1]
 16: [0, 0, 0, 0]
 17: [0, 0, 0, 0, 0, 1]
 18: [2, 0]
 19: [0, 0, 0, 0, 0, 0, 1]
 20: [0, 1, 0, 0]
 21: [1, 0, 1]
 22: [0, 0, 0, 1, 0]
 23: [0, 0, 0, 0, 0, 0, 0, 1]
 24: [1, 0, 0, 0]
 25: [0, 2]
 26: [0, 0, 0, 0, 1, 0]
 27: [3]
 28: [0, 0, 1, 0, 0]
 29: [0, 0, 0, 0, 0, 0, 0, 0, 1]
 30: [1, 1, 0]
 31: [0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 32: [0, 0, 0, 0, 0]
 33: [1, 0, 0, 1]
 34: [0, 0, 0, 0, 0, 1, 0]
 35: [0, 1, 1]
 36: [2, 0, 0]
 37: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 38: [0, 0, 0, 0, 0, 0, 1, 0]
 39: [1, 0, 0, 0, 1]
 40: [0, 1, 0, 0, 0]
 41: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 42: [1, 0, 1, 0]
 43: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 44: [0, 0, 0, 1, 0, 0]
 45: [2, 1]
 46: [0, 0, 0, 0, 0, 0, 0, 1, 0]
 47: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 48: [1, 0, 0, 0, 0]
 49: [0, 0, 2]
 50: [0, 2, 0]
 51: [1, 0, 0, 0, 0, 1]
 52: [0, 0, 0, 0, 1, 0, 0]
 53: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 54: [3, 0]
 55: [0, 1, 0, 1]
 56: [0, 0, 1, 0, 0, 0]
 57: [1, 0, 0, 0, 0, 0, 1]
 58: [0, 0, 0, 0, 0, 0, 0, 0, 1, 0]
 59: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 60: [1, 1, 0, 0]
 61: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 62: [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0]
 63: [2, 0, 1]
 64: [0, 0, 0, 0, 0, 0]
 65: [0, 1, 0, 0, 1]
 66: [1, 0, 0, 1, 0]
 67: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 68: [0, 0, 0, 0, 0, 1, 0, 0]
 69: [1, 0, 0, 0, 0, 0, 0, 1]
 70: [0, 1, 1, 0]
 71: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 72: [2, 0, 0, 0]
 73: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 74: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0]
 75: [1, 2]
 76: [0, 0, 0, 0, 0, 0, 1, 0, 0]
 77: [0, 0, 1, 1]
 78: [1, 0, 0, 0, 1, 0]
 79: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 80: [0, 1, 0, 0, 0, 0]
 81: [4]
 82: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0]
 83: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 84: [1, 0, 1, 0, 0]
 85: [0, 1, 0, 0, 0, 1]
 86: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0]
 87: [1, 0, 0, 0, 0, 0, 0, 0, 1]
 88: [0, 0, 0, 1, 0, 0, 0]
 89: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 90: [2, 1, 0]
 91: [0, 0, 1, 0, 1]
 92: [0, 0, 0, 0, 0, 0, 0, 1, 0, 0]
 93: [1, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 94: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0]
 95: [0, 1, 0, 0, 0, 0, 1]
 96: [1, 0, 0, 0, 0, 0]
 97: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
 98: [0, 0, 2, 0]
 99: [2, 0, 0, 1]
100: [0, 2, 0, 0]
— Dennis
kaynak
Bu harika.
— Leaky Nun
3

Python 2, 88 bayt

d=lambda n:map(len,bin(n).split('1')[1:])
e=lambda l:int('1'.join(a*'0'for a in[2]+l),2)

Demo:

>>> for i in range(33):
...     print e(d(i)), d(i)
... 
0 []
1 [0]
2 [1]
3 [0, 0]
4 [2]
5 [1, 0]
6 [0, 1]
7 [0, 0, 0]
8 [3]
9 [2, 0]
10 [1, 1]
11 [1, 0, 0]
12 [0, 2]
13 [0, 1, 0]
14 [0, 0, 1]
15 [0, 0, 0, 0]
16 [4]
17 [3, 0]
18 [2, 1]
19 [2, 0, 0]
20 [1, 2]
21 [1, 1, 0]
22 [1, 0, 1]
23 [1, 0, 0, 0]
24 [0, 3]
25 [0, 2, 0]
26 [0, 1, 1]
27 [0, 1, 0, 0]
28 [0, 0, 2]
29 [0, 0, 1, 0]
30 [0, 0, 0, 1]
31 [0, 0, 0, 0, 0]
32 [5]

Python 2, 130 bayt

Burada, çıktının bit uzunluğunun üstel yerine girdinin bit uzunluğunda doğrusal olduğu daha “verimli” bir çözüm var.

def d(n):m=-(n^-n);return d(n/m/m)+[n/m%m+m-2]if n else[]
e=lambda l:int('0'+''.join(bin(2*a+5<<len(bin(a+2))-4)[3:]for a in l),2)
— Anders Kaseorg
kaynak
Benim çözümüm ile aynı algoritmayı kullanır :)
— Leaky Nun
@KennyLau: Çözümüne bakmamıştım. Benzer görünüyorlar ancak aynı değiller (0'lar ve 1'ler değiştirilir). Ve seninki boş listeyi dolaşamıyor.
— Anders Kaseorg
Hatırlıyorum için teşekkürler.
— Sızan Rahibe
Bu arada, çıktının herhangi bir bazda olabileceğini söyledim .
— Leaky Nun
Fonksiyonlar arasındaki paylaşım kod izin yana sadece inşa edebilirsiniz gibi görünüyor eiçin tersini olmak d: e=lambda l,i=0:l!=d(i)and-~e(l,i+1).
— xnor
1

Python 2, 204202 bayt

p=lambda x,y:(2*y+1<<x)-1
u=lambda n,x=0:-~n%2<1and u(-~n//2-1,x+1)or[x,n//2]
e=lambda l:l and-~reduce(p,l,len(l)-1)or 0
def d(n):
 if n<1:return[]
 r=[];n,l=u(n-1);exec"n,e=u(n);r=[e]+r;"*l;return[n]+r

Liste uzunluğunun başlangıcına kadar tekrar tekrar Z + x Z + <-> Z + bijection uygulayarak çalışır.

0: []
1: [0]
2: [1]
3: [0, 0]
4: [2]
5: [0, 0, 0]
6: [1, 0]
7: [0, 0, 0, 0]
8: [3]
9: [0, 0, 0, 0, 0]
10: [1, 0, 0]
11: [0, 0, 0, 0, 0, 0]
12: [0, 1]
13: [0, 0, 0, 0, 0, 0, 0]
14: [1, 0, 0, 0]
15: [0, 0, 0, 0, 0, 0, 0, 0]
16: [4]
17: [0, 0, 0, 0, 0, 0, 0, 0, 0]
18: [1, 0, 0, 0, 0]
19: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
20: [0, 0, 1]
21: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
22: [1, 0, 0, 0, 0, 0]
23: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
24: [2, 0]
25: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
26: [1, 0, 0, 0, 0, 0, 0]
27: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
28: [0, 0, 0, 1]
29: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
30: [1, 0, 0, 0, 0, 0, 0, 0]
31: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
— orlp
kaynak
Bir soru: "tamsayıya listele" işlevi hangi işlevdir ve "tamsayıya listeleme" işlevi hangisidir?
— user48538
@ zyabin101 etamsayıya liste, listeye tamsayı d(kodlama / kod çözme).
— orlp
Bu çözümü seviyorum.
— Leaky Nun
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.