_{ชื่อที่ถูกขโมยซึ่งได้แรงบันดาลใจจากคำตอบของ Greg Hewgillต่อJavaScript และ Java แตกต่างกันอย่างไร?}

บทนำ

Java และ JavaScript เป็นภาษาที่ใช้กันโดยทั่วไปในหมู่โปรแกรมเมอร์และปัจจุบันเป็นแท็กยอดนิยมใน Stack Overflow แต่อย่างที่เราทุกคนรู้นอกจากชื่อที่คล้ายกันแล้วทั้งสองไม่มีอะไรเหมือนกัน

เพื่อเป็นเกียรติแก่หนึ่งในการอภิปรายที่น่าอับอายที่สุดของการเขียนโปรแกรมและได้รับแรงบันดาลใจจากความผิดหวังครั้งล่าสุดของฉันในการค้นหาแท็กฉันขอเสนอสิ่งต่อไปนี้:

ท้าทาย

เขียนโปรแกรมที่รับสตริงเป็นอินพุต ส่งคืนcarถ้าสตริงขึ้นต้นด้วย "Java" และไม่มี "JavaScript" carpetมิฉะนั้นกลับ

ตัวอย่างอินพุตและเอาต์พุต

รถ:

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

พรม:

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

หมายเหตุ

• การจับคู่อินพุตควรคำนึงถึงขนาดตัวพิมพ์
• ความเป็นไปได้เท่านั้นสำหรับผลลัพธ์ควรเป็นcarหรือcarpet
• คะแนนโบนัสจินตภาพถ้าคำตอบของคุณใช้ Java, JavaScript หรือ Regex
• ชื่อสำรอง: Java คือ JavaScript เนื่องจากแฮมคือแฮมสเตอร์

Java / JavaScript Polyglot, 108 107 106 ไบต์

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

เรียกใช้เป็น Java

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

ลองออนไลน์!

หมายเหตุ: อย่าเชื่อถือไฮไลต์เนื่องจากไม่ถูกต้อง Java จริงการตีความอย่างถูกต้องดูเหมือนว่าด้านล่างเพราะ\u000Aถูกตีความในขั้นตอนแรกของการรวบรวมเป็นความ\nจริงสิ้นสุดความคิดเห็นที่เริ่มต้นด้วยความคิดเห็นบรรทัด ( //)

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

เรียกใช้เป็น JavaScript

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

เครดิตให้กับ @CowsQuak สำหรับเวอร์ชัน 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));

จำนวนโบนัสจินตนาการสำหรับคำตอบนี้มีเท่าไหร่?

-1 ไบต์ขอบคุณ@Nevayในคำตอบ Java

JavaScript, 50 49 ไบต์

บันทึก 1 ไบต์ขอบคุณ @ValueInk โดยจัดเรียง regex ใหม่

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

ตัวอย่างการทดสอบ

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 ไบต์

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

ลองออนไลน์!

บันทึก 1 ไบต์ขอบคุณ@Nevay !

C (การโทรเท่านั้น), 131 ไบต์

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);}

มันมีปัญหา แต่มันผ่านการทดสอบทั้งหมดที่มีให้ :)

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);
}

คะแนนโบนัสจินตภาพถ้าคำตอบของคุณใช้ Java, Javascript หรือ Regex

ดี ... ไม่เป็นไร

05AB1E , 21 ไบต์

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

ลองออนไลน์!

Python 2 , 68 ไบต์

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

ลองออนไลน์!

-11 ไบต์ขอบคุณnotjagan
-2 ไบต์ขอบคุณDennis

C #, 80 78 ไบต์

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

EXCEL Google ชีต, 89 86 ไบต์

บันทึก 3 ไบต์ขอบคุณ Taylor Scott

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

รับอินพุตบน A1

คำอธิบาย

=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.

เป็นกลุ่ม, 58 ไบต์

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

ลองออนไลน์!

เยลลี่ , 27 ไบต์

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

ลองออนไลน์!

Ruby , 42 + 1 = 43 ไบต์

ใช้-pธง

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

ลองออนไลน์!

เรติน่า 44 44 ไบต์

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

ขอบคุณ @MartinEnder สำหรับการเล่นกอล์ฟขนาด 7 ไบต์!

ลองออนไลน์!

เสียงกระเพื่อมสามัญ, 131 125 ไบต์

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

ลองออนไลน์!

ขนาดลดลงขอบคุณ# n = “ เคล็ดลับ” ของ Common LISP

คำอธิบาย

(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 ไบต์

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");}

ลองออนไลน์!

คลี่:

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 ไบต์

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

Excel VBA, 76 ไบต์

ฟังก์ชันหน้าต่าง VBE แบบไม่ระบุชื่อทันทีที่รับอินพุตจากช่วง[A1]และเอาต์พุตคือcar/ carpetสถานะไปยังหน้าต่างทันที VBE

ไม่ใช้ RegExp

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

Python 3 , 95 ไบต์

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

ลองออนไลน์!

ใช่มันอาจสั้นกว่านี้ แต่ฉันต้องการลองใช้แลมบ์ดาที่ซ้อนกัน

Perl , 42 ไบต์

ฉันเชื่อว่าคำตอบของ stevieb มีเอาต์พุตที่ไม่ถูกต้อง (ลองด้วยตัวเอง - ส่งคืนรถยนต์สำหรับ 'javajavascript') สิ่งนี้น่าจะใช้ได้:

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

Mathematica, 82 ไบต์

regex

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

JAISBaL ขนาด 36 ไบต์

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

ละเอียด / คำอธิบาย:

# \# 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 เป็นความพยายามครั้งแรกของฉันในการออกแบบภาษากอล์ฟดังนั้นจึงค่อนข้างแปลก ... ไม่มีการแข่งขันหรือมี regex หรืออย่างอื่นดังนั้นเราจึงต้องแยกและตรวจสอบความยาวอาร์เรย์ที่เกิดขึ้น ... เพราะ JAISBaL มีการแบ่งโดย -regex ... แต่ไม่มี regex อื่นรองรับ .... เพราะเหตุผล

regex ถูกขโมยที่ยืมมาจากคำตอบ @Cows กำมะลอของ

Python 2 , 69 ไบต์

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

ปัจจุบัน 1 ไบต์ยาวกว่าโซลูชัน Python 2 ที่สั้นที่สุด

ลองออนไลน์!

Perl , 36 ไบต์

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

เรียกใช้เป็นเช่น:

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

แบตช์ 91 ไบต์

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

ใช้อินพุตบน STDIN แบทช์ไม่มีตัวดำเนินการเปรียบเทียบแบบไม่คำนึงถึงขนาดตัวพิมพ์ แต่มีการแทนที่สตริงแบบตัวพิมพ์เล็กและตัวพิมพ์ใหญ่ดังนั้นฉันจึงสามารถกำหนดชั่วคราวให้กับอักขระสี่ตัวแรกจากนั้นตัวพิมพ์เล็กและใหญ่จะแทนจาวา ในขณะที่ฉันกรณีแทนจาวาสคริปต์ในสตริงเดิมซึ่งควรปล่อยไว้ไม่เปลี่ยนแปลง

Lua, 96 ไบต์

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

Perl, 98 84 62 ไบต์

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

ลองออนไลน์!

ขอบคุณ bytepusher

Dart VM, 104 ไบต์ 102 ไบต์

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

คำอธิบาย :

Degolfed:

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

เรามีฟังก์ชั่นหลักตามปกติของเรา

เราแทนที่pด้วยp[0].toLowerCase();เพื่อที่เราจะได้ไม่ต้องประกาศตัวแปรใหม่ ( varบวกช่องว่างจะเป็น 4 ไบต์พิเศษ)

จากนั้นเราจะทำการพิมพ์ต่อไป

เราพิมพ์carโดยไม่มีเงื่อนไขและเราใช้ข้อความสั่งแบบอินไลน์เพื่อตรวจสอบว่าจะพิมพ์petหลังจากนั้นหรือไม่ หากมีสตริงจาวา 'ที่ดัชนี 0 และไม่ได้มี 'JavaScript' ในนั้นเราไม่ทำอะไรเลย (เราจริงผนวกสตริงที่ว่างเปล่า แต่มันไม่ได้มีผลกระทบใด ๆ ) petและมิฉะนั้นเราผนวก

สนิม 97 ไบต์

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

ฉันค่อนข้างแน่ใจว่ามีวิธีแก้ปัญหาที่สั้นกว่า แต่นี่เป็นครั้งแรกที่ฉันลอง :)

Bracmat , 66 ไบต์

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

ลองออนไลน์!