สร้างเฉพาะชื่อภาษาการเขียนโปรแกรมโดยใช้เฉพาะสิ่งอำนวยความสะดวกของภาษานั้น ๆ ชื่อของภาษาสามารถเรียกใช้โดยทางอ้อมเท่านั้นเช่นจากตัวแปรสภาพแวดล้อมที่ไม่ได้กำหนดเองฟังก์ชันในตัวหรือวิธีการหรือล่าม / คอมไพเลอร์ของภาษา ผลลัพธ์ควรเป็นชื่อของภาษาเท่านั้น

ตัวอย่างหนึ่งคือ:

$ awk --v | awk 'NR<2 { print $2}'  # GNU Awk 3.1.8
Awk

คำตอบที่ฉันเลือกจะเป็นคำตอบที่ได้คะแนนมากที่สุด ในกรณีที่เสมอกันเวอร์ชันที่สั้นที่สุดของกอล์ฟ (แยกหรือตอบเพียงคำตอบเดียว) จะเป็นตัวแบ่งไทเบรก

BASH, 17 7

bash -c 'echo $0'

หรือแม้กระทั่ง

echo ${0#-}

ถ้าคุณใช้ bash แล้ว: D

update : "echo $0"ได้รับการ$0ขยายก่อนดังนั้นจึง'echo $0'เป็นคำตอบที่ถูกต้อง

ช่องว่าง

|  	 	 			
	
    		 	   
	
    		 	  	
	
    			 	  
	
    		  	 	
	
    			  		
	
    			    
	
    		    	
	
    		   		
	
    		  	 	
	


|

C

#define d(x) x(#x[3])
void main(){d(putchar);}

Python - 23 22

print`credits`[97:103]

J 4

u:74

การมีชื่อภาษาสั้น ๆ ช่วยได้บ้าง

Python (win32) - ใช้โมดุลสุ่ม

ฉันไม่แน่ใจว่ามันใช้งานได้จริงหรือไม่ ขึ้นอยู่กับการนำไปใช้งาน

print ''.join([(random.seed(835)==None)and'']+[chr(random.randint(64,90)) for x in range(3)]+[(random.seed(53281)==None)and'']+[chr(random.randint(64,90)) for x in range(3)])

brainfuck

เพื่อความสนุก (ฉันรู้ว่านี่ไม่เกี่ยวข้องกับวัตถุประสงค์ของงาน) ฉันเขียนโค้ดนี้ ...

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

และเมื่อฉันแทนที่<, >, [, ], .ที่มีพื้นที่ ...

+++++   -+-+-     ++    +++++  +     +
+    +  +    +   -  +     +    ++    -   
+    +  +    -  +    +    +    - -   - 
+++++   +++++   ------    +    -  +  - 
+    +  +    +  +    -    -    -   + -  
+    +  +    -  -    -    -    -    -+ 
++---   +    +  +    -  +++++  +     - 

+++  + +  +++  + + 
-    + +  +    ++ 
+++  + +  +    + 
+    + -  +    ++
+    ++-  -+-  + +


---  
---
---
---

 - 
---
 - 

Piet, 47x2 พิกเซล

ใช้ cod5 5x5:

หลาม

import sys;print sys.copyright[24:30]

สิ่งนี้ใช้ได้สำหรับฉันด้วย (sys.executable คือ '/ usr / bin / python')

import sys;print sys.executable[9:]

brainfuck 101

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

อาจจะเล่นกอล์ฟต่อไปอีกเล็กน้อย แต่เป็นเวลา 6 โมงเช้าและฉันควรนอนหลับ ...

C

ด้วยจิตวิญญาณของคำตอบของอานนท์ใน C (การพิจารณาไฟล์ C มักจะมีนามสกุล. c) ฉันขอแนะนำ:

#include <stdio.h>
void main(){puts(__FILE__+sizeof(__FILE__)-2);}

ชวา

public class Name {
    public static void main(String[] args) {
        String s = "";
        s = s.getClass().getName();
        s = s.substring(0, 1).toUpperCase() + s.substring(1, 4);
        System.out.println(s);
    }
}

C

สร้างโดยใช้ DevStudio 2005

#include <stdio.h>
void main ()
{
  int i,j,i2;
  for (i=j=0,i2=200;i2<=200;i2-=19,j==putchar(32|(i2<'Q'&&i2>'+'&&(j<20||i<12||i>28))*3)+8?j=0,i2+=i,i+=putchar('\n')-8:(i2+=j,j+=2));
}

รุ่นที่สั้นกว่าเล็กน้อย (พร้อมคำเตือนผู้แปล)

int i,j,k;
for (i=j=k=0;k<=0;k-=19,j==putchar(32|(k<-119&&k>-157&&j<20|i<12|i>28)*3)+8?j=0,k+=i,i+=putchar('\n')-8:(k+=j,j+=2));

ทับทิม - 27

puts RUBY_DESCRIPTION[0..3]

อัพเดทจากความคิดเห็นของ Chris Jester-Young:

ทับทิม - 24

puts RUBY_COPYRIGHT[0,4]

อัปเดตจาก Hauleth:

ทับทิม - 15

p`ruby -v`[0,4]

แมว 3

สร้างไฟล์ที่มีเนื้อหาดังต่อไปนี้ (ซอร์สโค้ด)

cat

และเรียกใช้เช่น (รันไฟล์):

$ cat filename

Clojure - 16 ตัวอักษร

(subs(str =)0 7)

Haskell, 47

data H=Haskell deriving Show
main=print Haskell

ทับทิม

ไม่สั้น แต่ทางอ้อมมาก

4.times{|x|print((82+11.24*x+8.231*Math.tan(111.2*x)).floor.chr)}

ทับทิม (17)

p 1299022.to_s 36

เอาท์พุท "ruby"

ทุบตี / brainfuck / C

//bin/bash -c 'echo ${0##*/}'
#define p putchar
#define exit main(){p(p+67);p(10);}
exit
//++++++++[->++++++++++++>+>>++>+++<<<<<]>[->+>+>+>+<<<<]
//>+>++.>++.<-.<.>>----.<<---.>>>---.<<++.>---.

brainfuck

>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
++++++++++++++++++++++++++++++++++++++++++++++++.
-----------------.
++++++++.
+++++.
--------.
+++++++++++++++.
------------------.
++++++++.

Perl

$^X=~/([a-z]+)[^\/]+$/;print$1,$/

สกาลา - 42

print(((1,1).getClass+"").substring(6,11))

อัพเดท - 39 ตัวอักษร

print(('a.getClass+"").substring(6,11))

C - 34

ฉันไม่มีชื่อเสียงพอที่จะเพิ่มสิ่งนี้เป็นความคิดเห็นในรายการ C ก่อนหน้า แนวคิดเดียวกันกับข้างต้น แต่ชื่อไฟล์สามารถเป็นอะไรก็ได้

main(){puts(index(__FILE__,0)-1);}

> <> (ปลา) (11)

ดียิ่งขึ้น:

'>'::o2-oo;

Visual Basic (รุ่น 6.0)

MsgBox Right(Error(458), 12)

VBScript

On Error Resume Next
Err.Raise 458
MsgBox Right(Err.Description, 8)

ทั้ง VB6 และ VBScript

On Error Resume Next
Err.Raise 458
D = Err.Description
MsgBox Mid(D, InStr(2, D, "V"))

QBasic (37)

ฉันใช้ล่าม QBasic รุ่น 1.1

FOR x=0TO 5:?CHR$(PEEK(2588+x));:NEXT

ลัวะ 25 ตัวอักษร

print(arg[-1]:match"%w+")

หรืออะนาล็อกกับโซลูชัน Jของ JB 17 ตัว:

print"\76\117\97"

GolfScript (13)

"#{$0[0..9]}"

แร็กเก็ต (45)

racket -e "(display(substring(banner)10 17))"