Bir permütasyon bir dizi içinde a, örten fonksiyonu . Örneğin, ise \ pi: x \ mapsto 1 + (x + 1 \ mod 4) işlevi bir permütasyondur:$S = \{s_1, s_2, \dotsc, s_n\}$π : S → S S = { 1 , 2 , 3 , 4 }$\pi: S \to S$$S = \{1,2,3,4\}$$\pi: x \mapsto 1 + (x + 1 \mod 4)$

Sonsuz kümelerde permütasyonlara da sahip olabiliriz, örnek olarak $\mathbb{N}$ örneğini alalım: $\pi: x \mapsto x-1 + 2\cdot(x \mod 2)$ fonksiyonu, tek ve hatta takas eden bir permütasyon iki blok halinde tamsayılar. İlk unsurlar aşağıdaki gibidir:

Meydan okuma

Bu görev için göreviniz , pozitif doğal sayılar üzerinde ¹ permütasyon uygulayan bir fonksiyon / program yazmaktır . Çözümünüzün puanı, uygulanan permütasyon ile eşleştirildikten sonra kod noktalarının toplamıdır.

Misal

Python ile uygulanan yukarıdaki permütasyonu aldığımızı varsayalım:

def pi(x):
    return x - 1 + 2*(x % 2)

Çevrimiçi deneyin!

Karakter 100d kod noktasına sahiptir , \ texttt {pi} (100) = 99 . Bunu her karakter için yaparsak:$100$$\texttt{pi}(100) = 99$

Tüm bu eşlenen karakterlerin toplamı $2463$ , bu fonksiyonun puanıdır.

kurallar

Bir permütasyon uygulayacak bir fonksiyonu veya program olarak ya$\pi$

• doğal bir sayı verildiğinde , dönüş / çıkış$x$$\pi(x)$
• Bu zorluk amacıyla etmez değildir içeren$\mathbb{N}$ 0$0$
• permütasyon önemsiz bir şekilde sonsuz alt kümesine izin vermelidir$\mathbb{N}$
• işlevinizin / programınızın kendi kaynağını okumasına izin verilmiyor

puanlama

Skor, bu permütasyon altında tüm kod noktalarının (sıfır bayt kaynak kodun bir parçası olmayabilir) toplamı tarafından verilir (kod noktaları dilinize bağlıdır ² , SBCS, UTF-8 vb. diliniz destekliyor).

En düşük puana sahip sunum kazanır, bağlar en erken sunumla kesilir.

1. Sadece sonlu bir alt kümesine izin veren permütasyonlar hariç , yani sonsuz olmalıdır.$\mathbb{N}$$\{ x | \pi(x) \neq x \}$

2. Puanınızı artırırsa, örneğin normal SBCS yerine UTF-8 kodlu Jelly gönderimi kullanabilirsiniz.

Jöle , skor  288  250212199

-38 Outgolfer Erik sayesinde!

C-*+

Garip de olsa takas eder.

Skor 199 - bakınız burada puanlı kendini .$67+45+44+43=199$

Çevrimiçi deneyin!

JavaScript (ES6), Skor =  276  268

$=>(--$^40)+!0

Çevrimiçi deneyin!

Perl 6 , Puan: 201

*-!0+^40+!0

Çevrimiçi deneyin!

Arnauld Limanı'nın cevabı . Bu +^, ve ile aynı önceliğe sahip olan xor ( ) yönteminden -ve +genel karakterleri azaltmak için Whatever lambda kullanımından yararlanır. Bunun dışında, daha iyi bir puan alan farklı bir şekilde temsil etmenin bir yolunu bulamadım.

6 Perl , Skor 804 702

{{(++$∉ords(q[!$%()+-2?[]_doqrsx{}∉])??++$+22-$++%2-$++%2!!++$)xx$_}()[-!$+$_]}

Çevrimiçi deneyin!

Burada ilk quine-y tipi cevap var ve bence oldukça iyi.

Bu, gövdesinden kodun benzersiz sıralı kod noktalarının dizinlerine eklenen aralığıyla soru gövdesinden dizisini üretir . Örneğin, dizinin 30. ila 35. öğeleri , 33. kod noktası olduğundan ve kodumdaki en düşük kod noktasıdır.$23,22,25,24...$$1,2,3,4...21$$50, 53, 52, 1, 55, 54$!

Python 2 skoru: 742 698 694 puan

lambda a:a^96or~~96

Çevrimiçi deneyin!

Ørjan Johansen sayesinde -44 puan; -4 puan xx'e thx.

Retina 0.8.2 , 6 bayt, puan 260

T`O`RO

Çevrimiçi deneyin! Bağlantı kendi kendine puanlama altbilgisini içerir. Basitçe rakam değiştirir 1ve 9ve 3ve 7ondalık gösterimlerle, bu nedenle rakam içermiyorsa sayılar için asal olduğu 10etkilenmez.

C # (Visual C # Interactive derleyicisi) , 22 bayt, Skor 247 245

A=>A>65?A-1+A%2*2:66-A

Çevrimiçi deneyin!

Basit, 66'dan küçükse, 66 eksi girdi döndürür, sorudaki çift ve tek sayıları değiştiren formülü kullanın.

TI-BASIC, 9 bayt, skor 1088 1051 1000

Ans-cos(π2fPart(2⁻¹Ans

Tek bile olsa takas eder. Hatta haritalara Ans-1ve tek haritalara bile Ans+1.

TI-BASIC tokenleştirildi, bu nedenle bu program aşağıdaki onaltılı değerlere sahip olacak:

Ans   -    cos(  π    2    fPart(  2   ⁻¹  Ans
72    71   C4    AC   32   BA      32  0C  72

$113+114+195+171+49+185+49+11+113=1000$

Çıktı test programı:

For(I,1,10
I
Ans-cos(π2fPart(2⁻¹Ans
Disp Ans
Pause
End

Hangi çıktılar:

2
1
4
3
6
5
8
7
10
9

Notlar:

• TI-BASIC'in token değerlerini burada bulabilirsiniz .

• Pausehesap makinesinde sadece 8 satır olduğundan, çıkış programında permütasyonu daha iyi görmek için kullanılır. Bir sonraki permütasyonu görüntülemek için [ENTER] tuşuna basın .

Kömür , 13 bayt, puan 681

⁻⁺²³²ι⊗﹪⊖ι²³³

Çevrimiçi deneyin! Bağlantı, bir bayt kodu dizisini eşleştirmek için üstbilgiye sahip kendi kendine puanlanan sürümdür. (Kömür özel bir kod sayfası vardır, bu yüzden girişe doğru bayt kodlarını manuel olarak ekledim.) 233 sayı aralığını tersine çevirerek çalışır, böylece 117, 350, 583 ... değişmez. Açıklama:

     ι          Value
 ⁺              Plus
  ²³²           Literal 232
⁻               Minus
         ι      Value
        ⊖       Decremented
       ﹪        Modulo
          ²³³   Literal 233
      ⊗         Doubled

Haskell, skor 985

(\((.),(-))->(.)*200+mod(-39+(-))200+1).(\(*)->divMod((*)-1)200)

Çevrimiçi deneyin!

05AB1E , skor: 05AB1E kod sayfasında 488

È·<-

Tuhaf ve hatta örnek işlev gibi değiştirir.

Buradan skoru yükseltmeye çalışacağım.

Aralıktaki girdi ile çevrimiçi [1, 100]deneyin veya kod noktaları ile çevrimiçi deneyin.

Açıklama:

È     # Check if the (implicit) input is even (1 if truthy; 0 if falsey)
 ·    # Double (2 if truthy; 0 if falsey)
  <   # Decrease by 1 (1 if truthy; -1 if falsey)
   -  # Subtract it from the (implicit) input (and output implicitly)

Brainfuck, 47 bayt, puan 2988

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

Çevrimiçi deneyin!

Giriş bölümünde verilen permütasyonu kullandım. Bu bijection olduğundan, ROT13 veya Atbash'e benzeyen basit bir simetrik şifre olarak kullanabilirsiniz. Çözümüm sınırsız hücreler üzerinde çalışıyor. Ancak, 8 bitlik hücrelere kendini kısıtlayarak, sen değiştirerek 2 puan kurtarabilecek [-]ile [+].