비상 복도 만들기

46

일부 국가에서는 방향마다 여러 차선이있는 거리에서 비상 복도를 형성하는 방법에 대한 권장 사항 또는 법률이 있습니다. (다음에서 우리는 여행 방향으로가는 차선 만 고려합니다.) 독일에서 적용되는 규칙은 다음과 같습니다.

  • 차선이 하나 뿐인 경우 모두 구조 차량이 왼쪽을 지나갈 수 있도록 오른쪽으로 운전해야합니다.
  • 차선이 두 개 이상인 경우 가장 왼쪽 차선의 자동차는 왼쪽으로 주행해야하며 다른 모든 사람은 오른쪽으로 이동해야합니다.

도전

N>0일반 차선 의 개수 가 주어지면 긴급 복도가 N+1ASCII 문자 문자열을 사용하여 형성 될 때 차선의 레이아웃을 출력하십시오 . ASCII 코드에서 33최대 2 개의 문자 126를 사용하여 하나는 비상 통로를 나타내고 다른 하나는 차량을 나타냅니다. 후행 또는 선행 공백, 줄 바꿈 등이 허용됩니다.

예

여기서 우리는 E비상 복도와 C자동차에 사용하고 있습니다.

N  Output
1  EC
2  CEC
3  CECC
4  CECCC
5  CECCCC
6  CECCCCC
   etc
code-golf  ascii-art  number 
— 플레어
소스
18
나는 이것에 빠지지 않을 것이다! 당신은 당신이 몰래 뱀을 통해 미끄러 져 자신의 차선을 찾고 있습니다.
— orlp
16
@PmanAce 나는 flawr이 이것에 대한 우리의 도움이 필요하다고 생각하지 않습니다 : P
— orlp
8
실제로 독일에서 작동하기 때문에 +1입니다. 지난 주말에 상황에 있었다.
— ElPedro
10
@ msh210 독일 WP 페이지 의 그림 이 가장 잘 설명 되어 있다고 생각합니다 .
— flawr
9
아시다시피 이것은 처음에는 Cand 와의 to-the-point 도전과 E같았습니다. 최고 답변처럼 C=1/ E=2또는 C=2/에 대한 수학 연산 사용 E=3; 사용 C=0/ E=1와 10^(n-1); 십진수 형식으로 C=0/ 사용 ; 사용 / 사용 하여 ; 등등. 등등. 처음부터 지금까지 본 도전에 대한 수많은 독특한 가능성. 한 번만 +1 할 수 없습니다. ;)E=.0.0C=1E=--1
— Kevin Cruijssen

답변:

29

파이썬 2, 29 26 바이트

lambda n:10**n*97/30-1/n*9

예:

>>> f(1)
23
>>> f(2)
323
>>> f(3)
3233
— 오르프
소스
n = 1 인 경우 21을 출력해야합니다
— DanielIndie
1
@DanielIndie :( 고정되었지만 이제 추악합니다.
— orlp
여전히 매우 창의적인 해결책 :)
— flawr
1
@orlp 죄송합니다 :) 그러나 여전히 훌륭한 해결책 :)
— DanielIndie
3
10**n*97/30-1/n*9저장 다른 바이트, 제공 f(5) == 323333등
— 린
28

파이썬 3, 35 33 바이트

lambda N:'C'*(N>1)+'EC'+'C'*(N-2)

편집 : @ dylnan 의 알림 f=덕분에 2 바이트를 절약하기 위해 삭제 합니다 .

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

그것을 시각화하려면 :

lambda N:'🚘'*(N>1)+'🚔🚘'+'🚘'*(N-2)

산출:

1 🚔🚘
2 🚘🚔🚘
3 🚘🚔🚘🚘
4 🚘🚔🚘🚘🚘
5 🚘🚔🚘🚘🚘🚘
6 🚘🚔🚘🚘🚘🚘🚘

🚔 온라인을 사용해보십시오!

파이썬 3, 40 바이트

간단한 해결책 :

lambda N:str(10**N).replace('100','010')

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

— 궈양 진
소스
2
나는 '간단'솔루션은 후 불필요한 공백이 있다고 생각lambda N:
— 누군가
@ 누군가 나는 그것을 몰랐습니다. 감사합니다.
— Guoyang Qin
14

apt, 5 4 바이트

용도 q자동차 및 +복도합니다.

ç¬iÄ

시도 해봐

내가했던 것과 동시에 4 바이트를 골라 낸 올리버에게 감사의 말을 전한다.

설명

짧은 해결책이지만 까다로운 설명!

간단한 것부터 : ç정수에 적용될 때, 그 방법은 문자열 인수를 그 횟수만큼 반복합니다. 이 i메소드는 2 개의 인수 ( s& n) 를 사용하여 적용되는 문자열의 s색인 n에 삽입 합니다.

사용 된 2 개의 유니 코드 바로 가기를 확장하면 çq i+1JS로 변환 될 때 입력 U.ç("q").i("+",1)위치 U가됩니다. 그래서 우리는 q U시간을 반복 +하고 인덱스 1 에를 삽입합니다 .

마지막 속임수가 인, JAPT의 인덱스 포장 덕분에, 때 U=1, i를 삽입합니다 +인덱스에 0당신이 그것을 먹이를 어떤 값 n.

— 얽히고 설킨
소스
나는 ç0 iQ16 바이트 를 게시하려고 했지만 그것을 사용하면 더 좋을 것입니다.
— Oliver
감사합니다, @Oliver. 그러나 그 동안 5 바이트로 줄였습니다.
— Shaggy
1
ç¬iÅ4 바이트;) 나는 이만큼 Japt을 남용하지 않았습니다.
— Oliver
난 그냥 Ä대신에 같은 작업을하려고했다 Å:)
— Shaggy
7

R, 50 바이트

주세페 덕분에 -11!

pryr::f(cat("if"(x<2,12,c(21,rep(2,x-1))),sep=""))

비상 통로의 경우 출력 1, 일반 차선의 경우 2

내 시도, 61 바이트

여기서 볼만한 것은 없지만 점수 판에서 R을 얻으십시오 =)

q=pryr::f(`if`(x<2,cat("EC"),cat("CE",rep("C",x-1),sep="")))

용법:

q(5)
CECCCC
— 처벌
소스
— JayCe
6

파이썬 2, 30 29 28 바이트

lambda n:`10/3.`[1/n:n-~1/n]

인쇄 3대신 C하고 .대신 E.

설명:

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

lambda n:    # Method with integer parameter and string return-type
  `10/3.`    #  Calculate 10/3 as decimal (3.333333333) and convert it to a string
  [1/n       #   Take the substring from index 1 if `n=1`, 0 otherwise
   ,n-~      #   to index `n+1` +
       1/n]  #    1 if `n=1`, 0 otherwise

파이썬 2, 33 32 31 29 28 바이트

lambda n:1%n-1or'1-'+'1'*~-n

1대신 C및 -대신에 인쇄 합니다 E.

@ovs 덕분에 -2 바이트 . @xnor
덕분에 -1 바이트 .

설명:

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

lambda n:    # Method with integer parameter and string return-type
  1%n-1      #  If `n` is 1: Return '-1'
  or         #  Else:
    '1-'+    #   Return '1-', appended with:
    '1'*~-n  #   `n-1` amount of '1's
— 케빈 크루이 센
소스
1
귀하의 10/3하나는 17에서 실패
— 조 왕에게
1
@JoKing 방금 OP로 명확히하고 " 내장 정수 유형을 사용하는 것만으로 충분합니다. "라고 말합니다 . 즉, n=16내장 정수가 64 비트이면 충분 n=16하거나이 경우 10 진수 값은 t 기본적으로 15 자리 이상의 십진수를 입력하면 충분합니다. (자바, C # .NET 등과 같은 임의의 숫자 크기의 언어를 사용하는 다른 많은 답변에도 동일하게 적용됨)
— Kevin Cruijssen
5

Pyth, 10 9 8 바이트

Xn1Q*NQZ

0비상 복도를 나타내는 데 사용 합니다 ".
여기 사용해보십시오

설명

Xn1Q*NQZ
    *NQ     Make a string of <input> "s.
 n1Q         At index 0 or 1...
X      Z    ... Insert 0.
— 니모닉
소스
5

brainfuck , 42 바이트

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

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

입력을 문자 코드로 취하고 V일반 차선 으로, 출력 차선으로 출력 W합니다. (쉽게 테스트하려면을 ,여러 +s로 바꾸는 것이 좋습니다. )

작동 방식 :

,[[>]+[<]>-] Turn input into a unary sequence of 1s on the tape
>>[<]<[<]    Move two cells left of the tape if input is larger than 1
             Otherwise move only one space
>+>+<        Add one to the two cells right of the pointer
             This transforms:
               N=1:  0 0' 1 0  -> 0 2' 1 0
               N>1:  0' 0 1 1* -> 0 1' 2 1*
[<-[--->+<]>.,>]  Add 86 to each cell to transform to Ws and Vs and print
— 조 킹
소스
5

옥타브 (MATLAB *), 31 30 28 27 22 바이트

@(n)'CE'(1+(n>1==0:n))

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

이 프로그램은 다음과 같이 작동합니다.

@(n)                   %Anonymous function to take input
            n>1==0:n   %Creates [1 0] if n is 1, or [0 1 (0 ...)] otherwise
         1+(        )  %Converts array of 0's and 1's to 1-indexed
    'CE'(            ) %Converts to ASCII by addressing in string

여기서 사용 요령의 종 배열 XNORing되는 0:n입력이 1보다 클 경우 결과가 수표와 그런위한 n>1시드는의 논리적 배열로 변환 얻는다 [0 1 (0 ...)]위해 동안 n==1시드가 반전된다 [1 0]필요한 반전을 달성.

나머지는 씨앗을 충분한 차가 추가 된 줄로 바꾸는 것입니다.

(*) TIO 링크에는 바닥 글에 MATLAB 및 옥타브에서 작동하는 동일한 바이트 수에 대한 대체 솔루션이 포함되어 있지만 'E'및 '가 아닌'0 '과'1 '의 시퀀스가 ​​발생합니다. 씨'. 완전성을 위해 대안은 다음과 같습니다.

@(n)['' 48+(n>1==0:n)]

  • n==1~=0:1대신 을 사용하여 1 바이트를 저장했습니다 0:1~=(n<2). ~=보다 우선 <따라서 원래 브라켓,하지만입니다 보인다 ~=그리고 ==우리가 바이트를 저장할 수 1과 비교하여 외관의 순서로 처리됩니다.

  • 부정 2:n이 수행 되는 위치를 변경하여 2 바이트를 절약 했습니다. 이렇게하면 한 쌍의 괄호가 저장됩니다. 또한 나중에 무효화 될 것이라는 사실을 설명하기 ~=위해 ==to 를 변경해야 합니다 .

  • <다시 사용하여 1 바이트를 저장 했습니다. 결국 <과 같은 우선 순위 를 가지고 ==있습니다. 올바른 실행 순서를 보장 <하기 전에 계산을 배치하십시오 ==.

  • 두 개의 별도 배열을 만들지 않아 5 바이트를 절약했습니다. 대신 XNOR 비교가 단일 범위를 논리로 변환한다는 사실에 의존합니다.

— 톰 카펜터
소스
매우 영리한 :-)
— Stewie Griffin
@StewieGriffin 감사합니다 :). 다른 5 바이트를 더 노크하도록 관리했습니다.
— Tom Carpenter
4

파이썬 3, 32 바이트

lambda n:f"{'CE'[n<2:]:C<{n+1}}"

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

f- 문자열 식을 사용 하여 오른쪽에 서식을 지정 'E'하거나 너비를 갖도록 'CE'오른쪽에 채 웁니다 .'C'n+1

f"{          :       }    a Python 3 f-string expression.
   'CE'[n<2:]             string slice based on value of n.
             :            what to format is before the ':' the format is after.
              C           padding character
               <          left align
                {n+1}     minimum field width based on n
— RootTwo
소스
4

Brain-Flak , 100 66 바이트

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

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

사용 "비상 차선으로하고 !일반 차선으로.

— 조 킹
소스
모든 것을이 언어로 사용하기 위해 +1. XD
— Alex
2
@Alex, 음, Brain-Flak은 4 월의 달 언어입니다.
— Jo King
심각하거나 늦은 만우절 농담? 이 달의 언어는 어디서 선출됩니까?
— Alex
@ 알렉스 지명 및 투표 여기에 , 그리고 다음 달 특정 게시물이 같은 만든 이 한
— 카밀 Drakari에게
아,이 플랫폼에 있습니다. 알겠습니다, 감사합니다! :-)
— Alex
4

05AB1E , 7 바이트

Î>∍1I≠ǝ

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

0은 C이고 1은 E입니다.

설명

Î>          # Push 0 and input incremented            -- [0, 4]
  ∍         # Extend a to length b                    -- [0000]
   1I≠      # Push 1 and input falsified (input != 1) -- [0000, 1, 1] 
      ǝ     # Insert b in a at location C             -- [0100]
            # Implicit display
— 칼도
소스
넌 교활한 여우 야 $<×TìsiR내가 어떻게 생각하고 있었는지
— Magic Octopus Urn
@MagicOctopusUrn 흥미로운 접근법입니다! 나는 "if"구조에도
— 머물 렀지
05AB1E의 새 버전에서는 1I로 골프를 칠 수 있습니다 $.
— Kevin Cruijssen
5 바이트 (레거시 버전에서도 작동)
— Kevin Cruijssen
4

APL (Dyalog Unicode) , 21 17 16 바이트

(-≠∘1)⌽'E',⍴∘'C'

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

4 바이트를 절약 한 Erik과 1 바이트를위한 Adám에게 감사합니다.

어떻게?

(-≠∘1)⌽'E',⍴∘'C' ⍝ Tacit function
           ⍴∘'C' ⍝ Repeat 'C', according to the input
       'E',      ⍝ Then append to 'E'
      ⌽          ⍝ And rotate
    1)           ⍝ 1
  ≠∘             ⍝ Different from the input? Returns 1 or 0
(-               ⍝ And negate. This rotates 0 times if the input is 1, and once if not.
— 살레
소스
1
(⍵>1)괄호 안에있을 필요는 없습니다. 그리고 암묵적인 기능으로 4 바이트를 절약 할 수 있습니다 : (⊢×1<⊢)⌽'E',⍴∘'C'.
— 아웃 골퍼 Erik
@EriktheOutgolfer 감사합니다! 오늘 수업이 있었기 때문에 게시 후 암묵 할 시간이 없었습니다. 집에 도착하면 편집하겠습니다.
— J. Sallé
— Adám
⎕io = 0 인 15 바이트 :'CE'[1(≠=∘⍳+)⎕]
— ngn
@ngn 난 심지어 ... 테스트 케이스와 TIO 링크를 얻을 수 있습니까? 작동하지 않는 것 같습니다 ...
— J. Sallé
4

하스켈 , 35 33 32 바이트

Angs 덕분에 2 바이트 절약, Lynn 덕분에 1 바이트 절약

(!!)$"":"EC":iterate(++"C")"CEC"

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

하스켈 , 32 30 29 바이트

이 인덱스는 인덱스가 0이므로 챌린지를 준수하지 않습니다.

g=(!!)$"EC":iterate(++"C")"CEC"

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

하스켈 , 30 바이트

출력이 문자열이어야하기 때문에 작동하지 않습니다.

f 1=21
f 2=121
f n=10*f(n-1)+1

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

여기서는 2비상 복도, 1자동차 에 문자열 대신 숫자를 사용합니다 . 110을 곱하고를 더하여 끝에 a 를 추가 할 수 있습니다 1. 연결 및 문자열 리터럴에 대해 모든 바이트를 지불 할 필요가 없기 때문에 저렴합니다.

0대신 사용 하는 것이 더 저렴 1하지만 선행 제로가 필요합니다.

— 밀 마법사
소스
((blah)!!)(!!)$blah첫 두 답변에 바이트를 저장 하게 될 수 있습니다 .
— Lynn
@Linnn 감사합니다! 나는 그것을 일찍 시도했지만 바이트를 잘못 계산해야합니다.
— 밀 마법사
3

Stax , 7 바이트

ü♣àj#F

실행 및 디버깅

"0"과 "1"문자를 사용합니다. 크기 1의 배열을 회전해도 변경되지 않기 때문에 작동합니다.

포장을 풀고 포장을 풀고 주석을 달았습니다.

1]( left justify [1] with zeroes. e.g. [1, 0, 0, 0]
|)  rotate array right one place
0+  append a zero
$   convert to string

이것을 실행

— 재귀
소스
3

젤리 , 6 바이트

⁵*ṾṙỊṙ

자동차 차선을 0 으로 표시 하고 비상 차선을 1로 표시 합니다.

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

작동 원리

⁵*ṾṙỊṙ  Main link. Argument: n

⁵*      Compute 10**n.
  Ṿ     Uneval; get a string representation.
   ṙỊ   Rotate the string (n≤1) characters to the left.
     ṙ  Rotate the result n characters to the left.
— 데니스
소스
3

공백 , 141 (104) 103 바이트

[S S S N
_Push_0][S N
S _Duplicate_0][T   N
T   T   _Read_STDIN_as_number][T    T   T   _Retrieve][S S S T  S N
_Push_2][T  S S T   _Subtract][S N
S _Duplicate_input-2][N
T   T   N
_If_negative_Jump_to_Label_-1][S S S T  N
_Push_1][S N
S _Duplicate_1][T   N
S T _Print_as_integer][S S T    T   N
_Push_-1][T N
S T _Print_as_integer][T    S S T   _Subtract][N
S S T   N
_Create_Label_LOOP][S N
S _Duplicate][N
T   T   S N
_If_negative_Jump_to_EXIT][S S S T  N
_Push_1][S N
S _Duplicate_1][T   N
S T _Print_as_integer][T    S S T   _Subtract][N
S N
T   N
_Jump_to_LOOP][N
S S N
_Create_Label_-1][T N
S T _Print_as_integer][N
S S S N
_Create_Label_EXIT]

문자 S(공백), T(탭) 및 N(줄 바꾸기)가 강조 표시로만 추가되었습니다.
[..._some_action]설명으로 만 추가되었습니다.

1대신 C및 -대신에 인쇄 합니다 E.

-1 바이트 감사 @JoKing 의 사용을 제안함으로써 1및 -1대신 0하고 1.

의사 코드의 설명 :

Integer i = STDIN-input as integer - 2
If i is negative (-1):
  Print i (so print "-1")
Else:
  Print "1-1"
  Start LOOP:
    If i is negative:
      EXIT program
    Print "1"
    i = i-1
    Go to the next iteration of the LOOP

예제 실행 :

입력: 1

Command   Explanation                 Stack      Heap    STDIN   STDOUT   STDERR

SSSN      Push 0                      [0]
SNS       Duplicate top (0)           [0,0]
TNTT      Read STDIN as integer       [0]        {0:1}   1
TTT       Retrieve heap at 0          [1]        {0:1}
SSSTSN    Push 2                      [1,2]      {0:1}
TSST      Subtract top two            [-1]       {0:1}
SNS       Duplicate input-2           [-1,-1]    {0:1}
NTSN      If neg.: Jump to Label_-1   [-1]       {0:1}
NSSN      Create Label_-1             [-1]       {0:1}
TNST      Print top as integer        []         {0:1}           -1
NSSSN     Create Label_EXIT           []         {0:1}
                                                                         error

온라인으로 시도하십시오 (원시 공백, 탭 및 줄 바꾸기 만).
오류와 함께 중지 : 종료가 정의되지 않았습니다.

입력: 4

Command   Explanation                   Stack      Heap    STDIN   STDOUT   STDERR

SSSN      Push 0                        [0]
SNS       Duplicate top (0)             [0,0]
TNTT      Read STDIN as integer         [0]        {0:4}   4
TTT       Retrieve heap at 0            [4]        {0:4}
SSSTSN    Push 2                        [4,2]      {0:4}
TSST      Subtract top two              [2]        {0:4}
SNS       Duplicate input-2             [2,2]      {0:4}
NTSN      If neg.: Jump to Label_-1     [2]        {0:4}
SSSTN     Push 1                        [2,1]      {0:4}
SNS       Duplicate top (1)             [2,1,1]    {0:4}
TNST      Print as integer              [2,1]      {0:4}           1
SSTTN     Push -1                       [2,1,-1]   {0:4}
TNST      Print as integer              [2,1]      {0:4}           -1
TSST      Subtract top two              [1]        {0:4}
NSSTN     Create Label_LOOP             [1]        {0:4}
 SNS      Duplicate top (1)             [1,1]      {0:4}
 NTTSN    If neg.: Jump to Label_EXIT   [1]        {0:4}
 SSSTN    Push 1                        [1,1]      {0:4}
 SNS      Duplicate top (1)             [1,1,1]    {0:4}
 TNST     Print as integer              [1,1]      {0:4}           1
 TSST     Subtract top two              [0]        {0:4}
 NSNTN    Jump to Label_LOOP            [0]        {0:4}

 SNS      Duplicate top (0)             [0,0]      {0:4}
 NTTSN    If neg.: Jump to Label_EXIT   [0]        {0:4}
 SSSTN    Push 1                        [0,1]      {0:4}
 SNS      Duplicate top (1)             [0,1,1]    {0:4}
 TNST     Print as integer              [0,1]      {0:4}           1
 TSST     Subtract top two              [-1]       {0:4}
 NSNTN    Jump to Label_LOOP            [-1]       {0:4}

 SNS      Duplicate top (-1)            [-1,-1]    {0:4}
 NTTSN    If neg.: Jump to Label_EXIT   [-1]       {0:4}
NSSSN     Create Label_EXIT             [-1]       {0:4}
                                                                            error

온라인으로 시도하십시오 (원시 공백, 탭 및 줄 바꾸기 만).
오류와 함께 중지 : 종료가 정의되지 않았습니다.

— 케빈 크루이 센
소스
인쇄 -를 남용 하여 명확한 레인을 인쇄하는 것이 더 쉬울 -1까요?
— 조 왕
@JoKing 불행히도 그것은 더 길 것입니다. 온라인으로 112 바이트를 시도하십시오 . 실제로 바뀌었다 push_0. print_as_integer; push_1; print_as_integer~에 push_-1; print_as_integer그러나 그 둘을 교환하여 push_0; print_as_integer로 대체되고 push_45; print_as_character, 여기서 push_0= SSSN, 및 push_45= SSSTSTTSTN. 그리고 추가는 push_45입력하기 때문에,뿐만 아니라 추가 할 수있다 n=1(가) 중복 내가 지금 인쇄 0이미 스택에 있었다 내가 밀어했다하지 않았다, 그래서 0(가) 때문에 다시 0이미 스택에 있었다.
— Kevin Cruijssen
나는 -교체 1하고 1교체하는 것을 의미 했다 0. 그런 다음 45를 누를 필요가 없으며 조건부 전반부의 숫자를 인쇄하면 절약되지만 0 대신 1을 누르면 비용이 약간 증가한다고 말할 수 있습니다. 내 Gol> <> 답변을 확인하십시오. 내가 의미하는 출력의 예
— Jo King
1
@ JoKing 구현을 시도했지만 107 바이트로 끝났습니다 (여기 에 강조 표시 및 설명이 추가 된 동일한 코드 가 있습니다 ). 실제로 print_-1print 0및 대신에 저장 1되지만 print_-1루프 외부에 추가 가 필요합니다. 편집 : 변경 하여 103 바이트 로 줄일 수있었습니다 subtract_1. if_0_jump_to_ONE; push_-1; print_integer~에 subtract_2; if_negative_jump_to_ONE; print_integer-1은 이미 스택에 있기 때문입니다. -1 바이트 감사합니다. :)
— Kevin Cruijssen
3

오토 핫키 32 바이트

C가 1보다 크지 않으면 문자 "C"를 "EC"로 바꾼 다음 "CEC"를 보내고 앱을 종료합니다.

::C::EC
:*:CC::CEC^c
^c::ExitApp

C => EC
CC => CEC는 프로그램을 종료합니다. 프로그램이 종료 된 후 추가 Cs가 입력됩니다.

— 넬슨
소스
3

APL + WIN, 20 16 바이트

Adám 덕분에 4 바이트 절약

정수 n에 대한 프롬프트 :

(-2≠⍴n)⌽n←1⎕/⍕10

1 비상 통로는 자동차 o.

— 그레이엄
소스
16 :(-2≠⍴n)⌽n←1⎕/⍕10
— Adám
@ Adám 감사합니다. 나는 ngn의 속임수 1⎕ / ⍕가 유용하다는 것을 알았습니다. 관용구 목록 하나?
— Graham
무슨 관용구 목록에 대해 이야기하고 있습니까?
— Adám
@ Adám 내가 가장 자주 사용하는 두 관용구 목록은 Finnapl과 APL2idioms입니다.
— Graham
나는 여기서 관용적 인 것이 무엇인지 잘 모르겠습니다. 그냥 골프입니다. 어쨌든 내 관용구 목록 은 당신에게 관심이있을 수 있습니다.
— Adám
3

MathGolf , 7 6 바이트

ú░\┴╜╪

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

출력 1에 대한 E및 0대한 C.

설명:

ú         # 10 to the power of the (implicit) input
          #  i.e. 1 → 10
          #  i.e. 4 → 10000
 ░        # Convert it to a string
          #  i.e. 10 → "10"
          #  i.e. 10000 → "10000"
  \       # Swap so the (implicit) input is at the top of the stack again
   ┴╜     # If the input is NOT 1:
     ╪    #  Rotate the string once towards the right
          #   i.e. "10000" and 4 → "01000"
          # Output everything on the stack (which only contains the string) implicitly
— 케빈 크루이 센
소스
당사 사이트를 사용함과 동시에 당사의 쿠키 정책과 개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.