순열 세트의 A는 전단 사 함수 . 예를 들어 경우 함수 \ pi : x \ mapsto 1 + (x + 1 \ mod 4) 는 순열입니다.$S = \{s_1, s_2, \dotsc, s_n\}$$\pi: S \to S$$S = \{1,2,3,4\}$$\pi: x \mapsto 1 + (x + 1 \mod 4)$

무한 세트에 대한 순열을 가질 수도 있습니다 . 예를 들어 $\mathbb{N}$ 을 보자 : $\pi: x \mapsto x-1 + 2\cdot(x \mod 2)$ 는 순열이며 짝수와 짝수 두 블록의 정수. 첫 번째 요소는 다음과 같습니다.

도전

이 과제의 과제는 양의 자연수에 대해 ¹ 개의 순열을 구현하는 함수 / 프로그램을 작성하는 것 입니다. 솔루션 점수는 구현 된 순열로 매핑 한 코드 포인트의 합계입니다.

예

파이썬으로 구현 된 위의 순열을 가정 해 보자.

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

온라인으로 사용해보십시오!

문자 d는 코드 포인트 $100$ , $\texttt{pi}(100) = 99$ 입니다. 모든 캐릭터에 대해이 작업을 수행하면 다음과 같은 이점이 있습니다.

이러한 모든 매핑 된 문자의 합은 $2463$ 이며 이는 해당 함수의 점수입니다.

규칙

순열 를 함수 또는 프로그램으로 구현합니다.$\pi$

• 자연수 주어지면 , 리턴 / 출력$x$$\pi(x)$
• 이 도전의 목적으로 은 포함 하지 않습니다$\mathbb{N}$$0$
• 순열은 의 무한 부분 집합을 사소하게 순열해야합니다.$\mathbb{N}$
• 함수 / 프로그램이 자체 소스를 읽을 수 없습니다

채점

점수는 해당 순열 (코드 포인트는 언어 ² 에 따라 다르며 SBCS, UTF-8 등을 자유롭게 사용할 수 있음) 하의 모든 코드 포인트 (0 바이트는 소스 코드의 일부가 아닐 수 있음)의 합계로 제공 됩니다. 당신의 언어는 그것을 지원합니다).

점수가 가장 낮은 제출물이 이기면 관계는 가장 빠른 제출물로 구분됩니다.

1. 의 유한 부분 집합 만 치환하는 순열을 제외하고 , 는 무한대 여야합니다.$\mathbb{N}$$\{ x | \pi(x) \neq x \}$

2. 점수가 향상되면 예를 들어 일반적인 SBCS 대신 UTF-8 인코딩 Jelly 제출을 사용할 수 있습니다.

젤리 , 점수  288 250 212  199

Outgolfer Erik에게 감사합니다 -38!

C-*+

홀수로도 스왑합니다.

점수는 $67+45+44+43=199$ 입니다. 여기에서 자기 평가를 참조 하십시오 .

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 점수 =  276  (268)

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

온라인으로 사용해보십시오!

펄 6 , 점수 : 201

*-!0+^40+!0

온라인으로 사용해보십시오!

포트 Arnauld의 대답 . 이것은 xor ( +^) 와와 같은 우선 순위를 -가지며 +, 전체 문자를 줄이기 위해 Whatever 람다를 사용하는 것이 좋습니다. 그 외에는 더 나은 점수를 얻은 다른 표현 방법을 찾을 수 없었습니다.

6 펄 , 스코어 804 702

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

온라인으로 사용해보십시오!

첫 번째 quine-y 유형이 여기에 답하며, 나는 그것이 꽤 좋은 점수라고 생각합니다.

그러면 코드에서 고유 한 정렬 된 코드 포인트의 인덱스에 1 , 2 , 3 , 4 ... 21 범위가 삽입 된 질문 본문에서 $23,22,25,24...$ 시퀀스가 생성 됩니다. 예를 들어, 시퀀스의 30 ~ 35 번째 요소 는 33 번째 코드 포인트이므로 내 코드에서 가장 낮은 코드 포인트이므로 50 , 53 , 52 , 1 , 55 , 54 입니다.$1,2,3,4...21$$50, 53, 52, 1, 55, 54$!

파이썬 2 점수 : 742 698 694 점

lambda a:a^96or~~96

온라인으로 사용해보십시오!

Ørjan Johansen 덕분에 -44 포인트; xnor에 -4 포인트.

Retina 0.8.2 , 6 바이트, 260 점

T`O`RO

온라인으로 사용해보십시오! 링크에는 자체 득점 바닥 글이 포함됩니다. 간단하게 자리 스왑 1및 9및 3및 7소수점 표현에, 그래서 숫자를 포함하지 않는 숫자가 서로 소 것이 10영향을받지 않습니다.

C # (C # 카메라 인터랙티브 컴파일러) , 22 바이트, 스코어 247 245

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

온라인으로 사용해보십시오!

66보다 작은 경우 단순은 66 빼기 입력을 반환하고, 그렇지 않으면 짝수와 홀수를 바꾸는 수식을 사용하십시오.

TI-BASIC, 9 바이트, 1088 1051 1000 점

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

홀수로도 스왑합니다. 에 매핑 Ans-1하고 홀수에 매핑합니다 Ans+1.

TI-BASIC은 토큰 화되므로이 프로그램의 16 진수 값은 다음과 같습니다.

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$

출력 테스트 프로그램 :

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

어떤 출력 :

2
1
4
3
6
5
8
7
10
9

노트:

• TI-BASIC의 토큰 값은 여기 에서 찾을 수 있습니다 .

• Pause계산기에는 8 줄만 있기 때문에 순열을 더 잘 볼 수 있도록 출력 프로그램에서 사용됩니다. 다음 순열을 보려면 [ENTER] 를 누르 십시오 .

숯 , 13 바이트, 점수 681

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

온라인으로 사용해보십시오! 링크는 바이트 코드 배열을 매핑하기위한 헤더가있는 자체 스코어링 버전에 연결됩니다. (숯에는 사용자 정의 코드 페이지가 있으므로 입력에 올바른 바이트 코드를 수동으로 삽입했습니다.) 233 숫자 범위를 반대로하여 작동하므로 117, 350, 583 ...은 변경되지 않습니다. 설명:

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

하스켈, 985 점

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

온라인으로 사용해보십시오!

05AB1E , 점수 : 05AB1E의 코드 페이지에서 488

È·<-

예제 함수처럼 홀수로 바뀝니다.

여기에서 점수를 높이려고 노력할 것입니다.

범위 내에서 입력하여 온라인으로 [1, 100]시도 하거나 코드 포인트로 온라인으로 시도하십시오.

설명:

È     # 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 바이트, 2988 점

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

온라인으로 사용해보십시오!

소개에 제공된 순열을 사용했습니다. 이것은 Bijection이므로 ROT13 또는 Atbash와 유사한 간단한 대칭 암호로 사용할 수 있습니다. 내 솔루션은 무제한 셀에서 작동합니다. 그러나 자신을 8 비트 셀로 제한하면로 대체 [-]하여 2 점을 절약 할 수 [+]있습니다.