태스크

음이 아닌 정수 주어 n출력 1하는 경우 n이고 0, 출력의 값을 n달리한다.

입력

음이 아닌 정수

• 문자열을 입력으로 받아들이려면 문자열은 다음 정규식과 일치합니다. /^(0|[1-9][0-9]*)$/즉 0.
• 실제 정수를 입력으로 받아들이면 정수가 언어의 처리 능력 내에 있다고 가정 할 수 있습니다.

산출

위에서 지정한 양의 정수입니다. 선행 0은 허용되지 않습니다. 출력은 정규식과 일치해야합니다 /^[1-9][0-9]*$/.

테스트 케이스

input output
    0      1
    1      1
    2      2
    3      3
    4      4
    5      5
    6      6
    7      7

채점

이것은 code-golf 이므로 바이트 단위의 최단 답변이 이깁니다.

표준 허점이 적용됩니다.

C (gcc), 14 13 바이트

f(n){n=n?:1;}

n?:1다른 C 답변의 의견에 대한 트릭 을 상기시켜 준 @betseg에게 감사드립니다 !

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

C, 17 바이트

f(n){return!n+n;}

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

C, 16 바이트

#define f(n)!n+n

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

Japt , 2 바이트

ª1

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

설명

ªJS ||연산자 의 바로 가기입니다 . Japt에는 암시 적 입력이 있으므로이 프로그램은를 계산 input||1하고 결과는 암시 적으로 STDOUT으로 전송됩니다.

w1입력의 최대 값을 취하여 작동 1합니다.

Alice , 7 바이트

1/s
o@i

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

설명

1   Push 1. Irrelevant.
/   Reflect to SE. Switch to Ordinal.
i   Read all input as a string.
    Reflect off bottom right corner. Move back NW.
/   Reflect to W. Switch to Cardinal.
1   Push 1.
    IP wraps around to last column.
s   Sort swap: implicitly convert the input to an integer. Then, if the top stack 
    element is less than the one below, the two are swapped. It basically computes
    min and max of two values at the same time, with max on top.
/   Reflect to NW. Switch to Ordinal.
    Immediately reflect off the top boundary. Move SW.
o   Implicitly convert the result to a string and print it.
    Reflect off bottom left corner. Move back NE.
/   Reflect to S. Switch to Cardinal.
@   Terminate the program.

자바 스크립트 (ES6), 7 바이트

n=>n||1

Pyth, 2 바이트

+!

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

설명

+!
 !Q    1 if (implicit) input is 0, 0 otherwise.
+  Q   Add the (implicit) input.

레티 나 , 4 바이트

^0
1

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

입력이 0으로 시작하면 입력을 1로 바꾸십시오. 입력에 0이 아닌 값의 경우 앞에 0이없는 것이 보장됩니다.

V , 4 바이트

é0À

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

바람직하지 않지만 예상되는 동작을 남용 하므로 실제로 버그라고 부를 수는 없습니다. 설명:

Vim에서 명령은 개수를 받아들입니다. 예를 들어 <C-a>숫자 7<C-a>는 증가 하지만 숫자는 7 씩 증가합니다. 그러나 0카운트로 사용할 수는 없습니다.

• 0 이미 명령입니다 (첫 번째 열로 이동).

• 텍스트 편집기와 관련하여 명령을 0 번 실행하도록 요청하는 것은 거의 의미가 없습니다.

이것은 텍스트 편집기에는 적합하지만 일반적으로 골프 언어에는 눈에 띄지 않으므로 V는 일부 명령을 덮어 쓰므 0로 유효한 수입니다. 예를 들어, é, ñ, Ä, 일부 다른 사람. 그러나 <C-a>내장 vim 명령이므로 덮어 쓰지 않으므로 양의 입력으로이 명령을 실행하면 다음이 제공됩니다.

N       " N times:
 <C-a>  "   Increment

그러나 입력으로 0으로 실행하면 다음이 제공됩니다.

0       " Go to column one
 <C-a>  " Increment

전체 설명 :

é0          " Insert a 0
  À         " Arg1 or 1 times:
   <C-a>    " Increment

J , 2 바이트

^*

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

^ [논쟁]의 힘으로 제기

* 인수의 부호 (0이면 0이면 1)

왜냐하면 1=0^0J.

하스켈, 5 바이트

max 1

사용 예 : (max 1) 0-> 1.

설명 할 것이 많지 않습니다.

dc, 7

?d0r^+p

사실에 의존 dc0 평가 ⁰ 1, 만 0 ^N 다른 모든 n은 0에 있습니다.

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

R, 13 바이트

max(1,scan())

nstdin에서 읽습니다 . 을 사용하면 pmax목록을 읽고 +1 바이트에 대한 목록의 각 요소에 적절한 값을 반환 할 수 있습니다.

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

Sven Hohenstein의 13 바이트에는 또 다른 13 바이트 솔루션 을 허용하는 또 다른 훌륭한 R 솔루션 이 있습니다.

(n=scan())+!n

이것이 R의 하한값인지 궁금합니다.

Cubix , 6 바이트

OI!1L@

어떻게 든 단위 큐브 ...에 맞게 관리 온라인 테스트를!

설명

실행하기 전에 코드는 큐브 그물로 배열됩니다.

  O
I ! 1 L
  @

그런 다음 IP (명령 포인터)가 맨 왼쪽을 I향하고 오른쪽을 향하게합니다. 거기에서 실행되는 지침은 다음과 같습니다.

I  Input a number from STDIN and push it to the stack.
!  If the top number is non-zero, skip the next instruction.
1  Push a 1 (only if the input was zero).
L  Turn left. The IP is now on the top face facing the !.
O  Output the top item as a number.

그런 다음 IP가 !다시 쳐서 @밑면을 건너 뜁니다 . @프로그램을 끝내 려면를 눌러야하므로 도움이되지 않습니다 . 한 번 더 끝나기 전에 IP가 L다시 충돌하고 중간 라인을 거꾸로지나 가면서 ( L1!I) L결국 IP가 켜집니다 @.

brainfuck , 8 바이트

+>,[>]<.

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

V , 5 바이트

ç^0/<C-a>

어디 <C-a>입니다 0x01.

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

설명

ç                   " On every line
 ^0/                " that begins with a zero do:
    <C-a>           " Increment the number on that line

젤리, 2 바이트

+¬

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

Pyth의 대답은 거의 정확하지만 첫 번째 젤리 프로그램입니다.

오아시스 , 2 바이트

다음 공식을 사용합니다. a (0) = 1 , a (n) = n

n1

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

R 20 16 바이트

pryr::f(n+(n<1))

Brachylog , 3 바이트

∅1|

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

설명

암시 적 ?(Input) 및 .(Output) 을 추가하면 다음이 있습니다.

?∅          Input is empty (that is, [] or "" or 0 or 0.0)
  1.        Output = 1
    |       Else
     ?.     Input = Output

MarioLANG , 12 바이트

;
=[
:<+
 =:

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

작동 원리

Mario는 왼쪽 상단에서 시작하여 처음에는 오른쪽으로 걷습니다. 입력 ( ;) 에서 int를 읽고 현재 메모리 셀에 저장합니다. 그런 다음 그는 땅에서 떨어지고 ( =) 때리고 [현재 셀이 0이면 다음 명령을 무시합니다.

셀이 0이 아닌 경우, 왼쪽 ( <)을 걷기 시작 하고 현재 셀을 int ( :) 로 출력 한 다음 그의 사망 (프로그램 종료)에 해당합니다.

셀이 0이면 왼쪽으로 돌리라는 명령을 무시하고 계속 오른쪽으로갑니다. 그는 현재 셀을 증가시키고 ( +) 출력하여 사망에 이른다.

Brain-Flak , 22 , 10 바이트

({{}}[]{})

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

설명:

입력이 0이 아닌 경우 {{}}스택에서 모든 항목을 팝하고 입력으로 평가합니다. 0이면 아무것도 터지지 않으며 0으로 평가됩니다. 실행 그래서 ({{}})제공

0이 아닌 경우 :

n

제로:

0
0

이 시점에서 스택 높이 (0이 아닌 경우 0, 0 인 경우 1)를 추가하고 스택에서 하나 이상의 값을 팝합니다. (스택이 무한대의 0으로 채워지기 때문에, 이것은 최상위 0 또는 여분의 0을 나타냅니다)

TI-BASIC, 7 바이트

:Prompt X
:X+not(X

또는

TI-BASIC, 7 바이트

:Prompt X
:max(X,1

헥사 고니 ,7 6 바이트

)?<@.!

넓히는:

 ) ?
< @ .
 ! .

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

Martin 덕분에 1 바이트를 절약했습니다!

숫자가 0이 아닌 경우 인쇄하십시오. 그렇지 않으면 숫자를 추가하고 대신 인쇄하십시오.

APL (Dyalog) , 3 바이트

1∘⌈

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

이것은 논쟁의 장을 취한다 1.

파이썬, 15 바이트

lambda n:n or 1

dc, 11 바이트

[1]sf?d0=fp

[1]sf레지스터 f에 매크로를 저장하여 스택 상단으로 1을 푸시하고, ?입력을 읽고, d0=f입력이 0 인 경우 매크로 f를 실행 p하고 스택의 상단을 인쇄합니다.

테스트:

$ dc -e "[1]sf?d0=fp" <<< 0
1
$ dc -e "[1]sf?d0=fp" <<< 1
1
$ dc -e "[1]sf?d0=fp" <<< 42
42

엑셀, 10 바이트

=A1+(A1=0)

이는 명백한 'IF'문 솔루션에 비해 4 바이트를 절약 =IF(A1=0,1,A1)합니다.

자바 8, 10 바이트

i->i<1?1:i

• 저장에 대한 @LeakyNun 덕분에 -1 바이트
  • 음수 가 아닌 정수임을 알지 못했습니다.

R, 13 바이트

n=scan();n+!n

여기 scan에서 입력 값을 읽는 데 사용됩니다 n. 의 부정 n(즉, !n0 또는 1)이에 추가됩니다 n.

수학, 9 8 바이트

마틴 엔더 당 :

#~Max~1&

첫 번째 아이디어 :

#/. 0->1&

으로 대체 0되는 순수 기능 1. 공간이 필요하거나 우리가 나누고 있다고 생각합니다 .0.

-l 및 -p 플래그에 대한 Perl 5, 6 + 2 바이트

$_||=1

stdin과는 별도의 줄에 입력을받습니다. 플래그와 함께 실행됩니다 -lp.