Tarefa

Dado um número inteiro não negativo n, emita 1se né 0e emita o valor de noutro modo.

Entrada

Um número inteiro não negativo.

• Se você gostaria de aceitar a string como entrada, a string corresponderia ao seguinte regex:, /^(0|[1-9][0-9]*)$/ou seja, ela não deve ter zeros à esquerda, exceto quando estiver 0.
• Se você aceitar um número inteiro real como entrada, poderá assumir que o número inteiro está dentro da capacidade de manipulação do idioma.

Saída

Um número inteiro positivo, especificado acima. Zeros à esquerda não são permitidos. Sua saída deve corresponder ao regex /^[1-9][0-9]*$/.

Casos de teste

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

Pontuação

Isso é código-golfe , então a resposta mais curta em bytes vence.

Aplicam-se brechas padrão .

C (gcc), 14 13 bytes

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

Agradeço à @betseg por me lembrar do n?:1truque nos comentários da outra resposta C!

Experimente online!

C, 17 bytes

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

Experimente online!

C, 16 bytes

#define f(n)!n+n

Experimente online!

Japonês , 2 bytes

ª1

Experimente online!

Explicação

ªé um atalho para o ||operador de JS . Japt tem entrada implícita, portanto, este programa calcula input||1e o resultado é enviado implicitamente para STDOUT.

w1também funcionaria, aproveitando ao máximo a entrada e 1.

Alice , 7 bytes

1/s
o@i

Experimente online!

Explicação

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.

JavaScript (ES6), 7 bytes

n=>n||1

Pitão, 2 bytes

+!

Experimente online

Explicação

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

Retina , 4 bytes

^0
1

Experimente online!

Se a entrada começar com um zero, substitua-a por um 1. (Funciona porque é garantido que a entrada não possui zeros à esquerda para valores diferentes de zero).

V , 4 bytes

é0À

Experimente online!

Abusa de um comportamento não preferido, mas esperado , então não posso chamá-lo de bug. Explicação:

No Vim, os comandos aceitam uma contagem. Por exemplo, <C-a>incrementará um número, mas 7<C-a>incrementará um número em 7. No entanto, você não pode usar 0como uma contagem, porque

• 0 já é um comando (vá para a primeira coluna) e

• No contexto de um editor de texto, raramente faz sentido solicitar que um comando seja executado 0 vezes.

Isso é bom para um editor de texto, mas geralmente desagradável para uma linguagem de golfe; portanto, V substitui alguns comandos para que 0seja uma contagem válida. Por exemplo, é, ñ, Ä, e alguns outros. No entanto, como <C-a>é um comando interno do vim, ele não é sobrescrito, portanto, executar isso com uma entrada positiva fornece:

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

Mas rodar com 0 como entrada fornece:

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

Explicação completa:

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

J , 2 bytes

^*

Experimente online!

^ [argumento] elevado ao poder de

* o sinal do argumento (0 se 0 mais 1)

Porque 1=0^0em J.

Haskell, 5 bytes

max 1

Exemplo de uso: (max 1) 0-> 1.

Não há muito o que explicar.

dc, 7

?d0r^+p

Baseia-se no fato de dcavaliar 0 ⁰ a 1, mas 0 ⁿ a 0 para todos os outros n.

Experimente online .

R, 13 bytes

max(1,scan())

lê nde stdin. Com pmax, ele pode ler em uma lista e retornar o valor apropriado para cada elemento da lista para +1 byte.

experimente online!

Devo observar que há outra solução R fina em 13 bytes por Sven Hohenstein que permite outra solução de 13 bytes de

(n=scan())+!n

o que me faz pensar se esse é o limite mais baixo para R.

Cubix , 6 bytes

OI!1L@

De alguma forma, conseguiu encaixá-lo em um cubo de unidade ... Teste on-line!

Explicação

Antes de ser executado, o código é organizado como uma rede de cubos:

  O
I ! 1 L
  @

O IP (ponteiro de instrução) é então colocado na face esquerda extrema ( I), voltada para a direita. As instruções executadas a partir daí são:

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.

O IP atinge !novamente, ignorando a @parte inferior da face. Isso não é útil, pois precisamos pressionar o botão @para finalizar o programa. O IP bate Lnovamente e passa pela linha do meio em reverse ( L1!I) antes de terminar Lmais uma vez, o que finalmente transforma o IP @.

brainfuck , 8 bytes

+>,[>]<.

Experimente online!

V , 5 bytes

ç^0/<C-a>

Onde <C-a>é 0x01.

Experimente online!

Explicação

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

Geléia, 2 bytes

+¬

Experimente online!

Praticamente exatamente a minha resposta Pyth, mas é o meu primeiro programa Jelly.

Oásis , 2 bytes

Usa a seguinte fórmula: a (0) = 1 , a (n) = n

n1

Experimente online!

R 20 16 bytes

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

Braquilog , 3 bytes

∅1|

Experimente online!

Explicação

Se adicionarmos o implícito ?(Input) e .(Output), teremos:

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

MarioLANG , 12 bytes

;
=[
:<+
 =:

Experimente online!

Como funciona

Mario começa no canto superior esquerdo, inicialmente andando para a direita. Ele lê um int de input ( ;) e o armazena na célula de memória atual. Então ele cai do chão ( =), batendo [, o que o faz ignorar o próximo comando se a célula atual for 0.

Se a célula não for 0, ele começará a andar para a esquerda ( <), produzirá a célula atual como int ( :) e morrerá (final do programa).

Se a célula for 0, ele ignora o comando para virar à esquerda e continua andando à direita. Ele incrementa a célula atual ( +), a produz e cai até a morte.

Flak cerebral , 22 , 10 bytes

({{}}[]{})

Experimente online!

Explicação:

Se a entrada for diferente de zero, {{}}irá retirar tudo da pilha e avaliar a entrada. Se for zero, nada será exibido e será avaliado como zero. Então, correr ({{}})dá

Diferente de zero:

n

Zero:

0
0

Nesse ponto, adicionaremos a altura da pilha (0 para diferente de zero, 1 para zero) e exibiremos mais um valor da pilha. (como a pilha é preenchida com um número infinito de zeros, isso exibirá os 0 primeiros ou 0 extra)

TI-BASIC, 7 bytes

:Prompt X
:X+not(X

Alternativamente,

TI-BASIC, 7 bytes

:Prompt X
:max(X,1

Hexagony ,7 6 bytes

)?<@.!

Expandido:

 ) ?
< @ .
 ! .

Experimente online!

Guardado 1 byte graças a Martin!

Se o número for diferente de zero, imprima-o, caso contrário, adicione um e imprima-o.

APL (Dyalog) , 3 bytes

1∘⌈

Experimente online!

Isso leva o teto do argumento e 1.

Python, 15 bytes

lambda n:n or 1

dc, 11 bytes

[1]sf?d0=fp

[1]sfarmazena uma macro no registro f que empurra 1 para o topo da pilha, ?lê a entrada, d0=fexecuta a macro f se a entrada for 0, pimprime a parte superior da pilha.

Teste:

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

Excel, 10 bytes

=A1+(A1=0)

Isso economiza 4 bytes sobre a solução óbvia da instrução 'IF' =IF(A1=0,1,A1),.

Java 8, 10 bytes

i->i<1?1:i

• Obrigado a @LeakyNun por economizar - 1 byte
  • Não percebeu que é um número inteiro não negativo

R, 13 bytes

n=scan();n+!n

Aqui, scané usado para ler o valor de entrada n. A negação de n(ou seja, !n0 ou 1) é adicionada a n.

Mathematica, 9 8 bytes

Por Martin Ender:

#~Max~1&

Primeira ideia:

#/. 0->1&

A função pura substitui 0por 1. O espaço é necessário ou pensa que estamos dividindo .0.

Perl 5, 6 + 2 bytes para os sinalizadores -l e -p

$_||=1

Recebe entrada em linhas separadas do stdin. Corre com as bandeiras -lp.