_{Título roubado inspirado na resposta de Greg Hewgill para Qual é a diferença entre JavaScript e Java?}

Introdução

Java e JavaScript são linguagens comumente usadas entre programadores e atualmente são as tags mais populares no Stack Overflow. No entanto, como todos sabemos, além de nomes semelhantes, os dois não têm quase nada em comum.

Em homenagem a um dos debates mais infames da programação, e inspirado pelas minhas recentes frustrações na busca de tags , proponho o seguinte:

Desafio

Escreva um programa que aceite uma string como entrada. Retorne carse a sequência começar com "Java" e não incluir "JavaScript". Caso contrário, retorne carpet.

Exemplo de entrada e saída

carro:

java
javafx
javabeans
java-stream
java-script
java-8
java.util.scanner
java-avascript
JAVA-SCRIPTING
javacarpet

tapete:

javascript
javascript-events
facebook-javascript-sdk
javajavascript
jquery
python
rx-java
java-api-for-javascript
not-java
JAVASCRIPTING

Notas

• A correspondência de entrada não diferencia maiúsculas de minúsculas
• Somente as possibilidades de saída devem ser caroucarpet
• Pontos de bônus imaginários se sua resposta usar Java, JavaScript ou Regex
• Título alternativo: Java é para JavaScript como ham é para hamster

Poliglota Java / JavaScript, 108 107 106 bytes

//\u000As->s.matches("(?i)(?!.*javascript)java.*"/*
a=>/(?!.*javascript)^java/i.test(a/**/)?"car":"carpet"

Executar como Java

//\u000As->s.matches("(?i)(?!.*javascript)java.*"/*
a=>/(?!.*javascript)^java/i.test(a/**/)?"car":"carpet"

Experimente online!

Nota: não confie no destaque, pois está incorreto. O Java real, corretamente interpretado, se parece com o abaixo, porque \u000Aé interpretado na primeira etapa da compilação como \n, de fato, encerrando o comentário iniciado com a linha comment ( //).

//
s->s.matches("(?i)(?!.*javascript)java.*"/*
a=>/(?!.*javascript)^java/i.test(a/**/)?"car":"carpet"

Executar como JavaScript

//\u000As->s.matches("(?i)(?!.*javascript)java.*"/*
a=>/(?!.*javascript)^java/i.test(a/**/)?"car":"carpet"

Créditos para @CowsQuak para a versão JS.

let f=

//\u000As->s.matches("(?i)(?!.*javascript)java.*"/*
a=>/(?!.*javascript)^java/i.test(a/**/)?"car":"carpet"

var a=["java","javafx","javabeans","java-stream","java-script","java-8","java.util.scanner","javascript","java-avascript","javascript-events","facebook-javascript-sdk","javajavascript","jquery","python","rx-java","java-api-for-javascript","not-java"];

for(var s of a) console.log(s.padStart(a.reduce((x,y)=>x.length>y.length?x:y).length) + "=>" + f(s));

Quantos pontos de bônus imaginários para esta resposta?

-1 byte graças a @Nevay na resposta Java.

JavaScript, 50 49 bytes

Economize 1 byte graças a @ValueInk reorganizando a regex

a=>/javascript|^(?!java)/i.test(a)?"car":"carpet"

Snippet de teste

let f=

a=>/javascript|^(?!java)/i.test(a)?"carpet":"car"

var a=["java","javafx","javabeans","java-stream","java-script","java-8","java.util.scanner","java-avascript","javascript","javascript-events","facebook-javascript-sdk","javajavascript","jquery","python","rx-java","java-api-for-javascript","not-java"];

for(var s of a) console.log(s.padStart(a.reduce((x,y)=>x.length>y.length?x:y).length) + "=>" + f(s));

Java (OpenJDK 8) , 92 82 72 58 57 bytes

s->s.matches("(?i)(?!.*javascript)java.*")?"car":"carpet"

Experimente online!

1 byte salvo graças ao @Nevay !

C (apenas chamadas a serem colocadas), 131 bytes

f(int*s){char r[]="carpet";~*s&'AVAJ'||(r[3]=0);for(;*s&255;*(int*)&s+=1)~*s&'AVAJ'||~s[1]&'IRCS'||~s[2]&'TP'||(r[3]='p');puts(r);}

Ele tem seus problemas, mas passa em todos os casos de teste fornecidos :)

g(int* s)
{
  char r[] = "carpet";
  ~*s&'AVAJ' || (r[3]=0);
  for(;*s & 255; *(int*)&s +=1)
    ~*s&'AVAJ' || ~s[1]&'IRCS' || ~s[2]&'TP' || (r[3]='p');
  puts(r);
}

Pontos de bônus imaginários se sua resposta usar Java, Javascript ou Regex

bem ... não, obrigado

05AB1E , 21 bytes

lD'¦‚å≠sη'îáå*„¾„ƒ´#è

Experimente online!

Python 2 , 68 bytes

k=input().lower();print'car'+'pet'*(k[:4]!='java'or'javascript'in k)

Experimente online!

-11 bytes graças a notjagan
-2 bytes graças a Dennis

C #, 80 78 bytes

s=>(s=s.ToLower()).StartsWith("java")&!s.Contains("javascript")?"car":"carpet"

EXCEL Planilhas Google, 89 86 bytes

Economizou 3 bytes graças a Taylor Scott

=LEFT("carpet",6-3*ISERR(SEARCH("javascript",A1))+3*ISERR(IF(SEARCH("java",A1)=1,1,1/0

Recebe uma entrada em A1

Explicação

=LEFT("carpet",6-3*ISERR(SEARCH("javascript",A1))+3*ISERR(IF(SEARCH("java",A1)=1,1,1/0)))

 SEARCH("javascript",A1)        #Case-Insensitive Find, returns error if not found  
 ISERR(                         #Returns string true if error, False if not
 3*ISERR(                       #Forces TRUE/False as integer, multiplies by 3
 IF(SEARCH("java",A1)=1,1,1/0)  #If java found, returns integer. if 1, java begins string
                                #so returns 1, which will be turned into 0 by iserr.
                                #Else returns 1/0, which will be turned into 1 by iserr.
 LEFT(                          #Returns digits from the left, based upon count.

vim, 58 bytes

gUU:s/.*JAVASCRIPT.*/Q/g
:s/^JAVA.*/car
:s/[A-Z].*/carpet

Experimente online!

Gelatina , 27 bytes

,“Ẋṣ“®Ẓȷ»ŒlwЀ/Ḅn2‘×3“¢Ẹị»ḣ

Experimente online!

Ruby , 42 + 1 = 43 bytes

Usa a -pbandeira.

$_="car#{"pet"if~/javascript|^(?!java)/i}"

Experimente online!

Retina ,  44  37 bytes

Ai`^(?!.*javascript)java
.+
pet
^
car

Obrigado a @MartinEnder por jogar fora 7 bytes!

Experimente online!

Lisp comum, 131 125 bytes

(lambda(s)(format()"car~@[pet~]"(or(<(length s)4)(not(#1=string-equal"java"(subseq s 0 4)))(search"javascript"s :test'#1#))))

Experimente online!

Tamanho reduzido graças ao # n = "truque" do Common Lisp.

Explicação

(lambda (s)                 ; anonymous function
  (format                   ; use of format string to produce the result
    ()                      ; the result is a string
    "car~@[pet~]"           ; print "car", then print "pet" when:
    (or (< (length s) 4)    ; the string is less then 4 characters or
        (not (string-equal "java" (subseq s 0 4)))     ; does not start with java or
        (search "javascript" s :test 'string-equal)))) ; contains javascript

C (tcc), 144 136 bytes

a;f(s){char*t=s;for(;*t;a=!strncmp(s,"java",4))*t=tolower(*t++);for(t=s;*t;)s=strncmp(t++,"javascript",10)&&s;puts(a*s?"car":"carpet");}

Experimente online!

Desenrolado:

a;
f(s)
{
    char *t = s;
    for (; *t; a = !strncmp(s, "java", 4))
        *t = tolower(*t++);
    for (t=s; *t;)
        s = strncmp(t++, "javascript", 10) && s;
    puts(a*s ? "car"  :"carpet");
}

Excel, 84 bytes

="car"&IF(AND(ISERR(SEARCH("javascript",A1)),IFERROR(SEARCH("java",A1),2)=1),,"pet")

Excel VBA, 76 bytes

A função de janela imediata anônima do VBE que leva a entrada do intervalo [A1]e das saídas é car/ carpetstatus para a janela imediata do VBE

Não usa RegExp

?"car"IIf(InStr(1,[A1],"Java",1)*(InStr(1,[A1],"JavaScript",1)=0),"","pet")

Python 3 , 95 bytes

g=lambda s:(lambda r:'car' if r[:4]=='java' and 'javascript' not in r else 'carpet')(s.lower())

Experimente online!

Sim, poderia ser mais curto, mas eu queria tentar usar uma lambda aninhada!

Perl , 42 bytes

Eu acredito que a resposta por stevieb tem uma saída incorreta (tentei isso sozinho - ele retorna carro para 'javajavascript'). Isso deve funcionar:

say/^java/i&&!/javascript/i?'car':'carpet'

Mathematica, 82 bytes

regex

If[#~StringMatchQ~RegularExpression@"(?i)(?!.*javascript)^java.*","Car","Carpet"]&

JAISBaL , 36 bytes

℠℘(?!.*javascript)^java.*}͵Ucar½Upet

Detalhado / explicação:

# \# enable verbose parsing #\
tolower                           \# [0] convert the top value of the stack to lowercase #\
split (?!.*javascript)^java.*}    \# [1] split the top value of the stack by (?!.*javascript)^java.*} #\
arraylength                       \# [2] push the length of the array onto the stack #\
print3 car                        \# [3] print car #\
!if                               \# [4] if the top value on the stack is falsy, skip the next statement #\
print3 pet                        \# [5] print pet #\

JAISBaL foi minha primeira tentativa de projetar uma linguagem de golfe, por isso é bastante peculiar ... não há correspondências ou contém, regex ou outra coisa; portanto, temos que dividir e verificar o comprimento do array resultante ... porque JAISBaL tem uma divisão por -regex ... mas nenhum outro suporte a regex .... por razões.

O Regex roubou emprestado da resposta do @Cows Quack .

Python 2 , 69 bytes

f=input().lower().find
print'car'+'pet'*(f('java')!=~f('javascript'))

Atualmente, 1 byte a mais que a solução mais curta do Python 2.

Experimente online!

Perl , 36 bytes

say/^java(?!script)/i?"car":"carpet"

Execute-o da seguinte maneira:

perl -nE 'say/^java(?!script)/i?"car":"carpet"' java.txt

Lote, 91 bytes

@set/ps=
@set t=%s:~0,4%
@if "%t:java=%%s:javascript=%"=="%s%" (echo car)else echo carpet

Recebe entrada em STDIN. O lote não possui um operador de comparação sem distinção entre maiúsculas e minúsculas, mas possui substituição de sequência sem distinção entre maiúsculas e minúsculas, para que eu possa atribuir um temporário aos quatro primeiros caracteres e depois substituir sem maiúsculas e minúsculas java, o que resultará na sequência vazia. Enquanto isso, caso insensível, substitua o javascript na string original, o que deve mantê-lo inalterado.

Lua, 96 bytes

function(x)return x:lower():match"^java"and not x:lower():match"javascript"and"car"or"carpet"end

Perl, 98 84 62 bytes

sub a{"car".($_[0]=~/javascript/i||$_[0]!~/^java/i?'pet':'');}

Experimente online!

Graças a bytepusher

VM de dardo, 104 bytes 102 bytes

main(p){p=p[0].toLowerCase();print("car${p.indexOf('java')==0&&p.indexOf('javascript')<0?'':'pet'}");}

Explicação :

Degolfado:

main(p)
{
    p = p[0].toLowerCase();
    print("car${p.indexOf('java') == 0 && p.indexOf('javascript') < 0 ? '' : 'pet'}");
}

Temos nossa função principal usual

Substituímos ppor p[0].toLowerCase();para não precisarmos declarar uma nova variável ( varmais um espaço seria de 4 bytes extras)

Em seguida, procedemos à impressão real

Imprimimos carincondicionalmente e usamos instruções em linha para verificar se é para imprimir petdepois ou não. Se tiver a string 'java' no índice 0 e não tiver 'javascript', não faremos nada (na verdade acrescentamos uma string vazia, mas não tem nenhum efeito) e, caso contrário, acrescentamos pet.

Ferrugem, 97 bytes

let s=if Regex::new(r"^javascript|^!java$").unwrap().is_match("javascript"){"carpet"}else{"car"};

Tenho certeza de que existe uma solução mais curta, mas é a minha primeira tentativa :)

Bracmat , 66 bytes

(f=.pet:?b&@(low$!arg:(? javascript ?|java ?&:?b|?))&str$(car !b))

Experimente online!