Chỉ sản xuất tên của ngôn ngữ lập trình chỉ sử dụng các phương tiện của chính ngôn ngữ đó. Tên của ngôn ngữ chỉ có thể được gọi một cách gián tiếp, tức là, từ các biến môi trường không tùy chỉnh, các hàm hoặc phương thức tích hợp hoặc trình thông dịch / trình biên dịch của ngôn ngữ. Đầu ra chỉ nên là tên của ngôn ngữ.

Một ví dụ sẽ là:

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

Câu trả lời tôi chọn sẽ là câu trả lời nhiều nhất. Trong trường hợp hòa, phiên bản golf ngắn nhất (riêng biệt hoặc câu trả lời duy nhất), sẽ là bộ ngắt kết nối.

BASH, 17 7

bash -c 'echo $0'

hoặc thậm chí

echo ${0#-}

nếu bạn đã chạy bash: D

cập nhật : "echo $0"được $0mở rộng đầu tiên vì vậy 'echo $0'là câu trả lời chính xác.

Khoảng trắng

|  	 	 			
	
    		 	   
	
    		 	  	
	
    			 	  
	
    		  	 	
	
    			  		
	
    			    
	
    		    	
	
    		   		
	
    		  	 	
	


|

C

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

Con trăn - 23 22

print`credits`[97:103]

J, 4

u:74

Có một tên ngôn ngữ ngắn làm loại trợ giúp.

Python (win32) - lạm dụng mô-đun ngẫu nhiên

Tôi không chắc liệu điều này thực sự hoạt động. Phụ thuộc vào việc thực hiện.

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

Chỉ để cho vui (tôi biết điều này không liên quan đến mục đích của nhiệm vụ.), Tôi đã viết mã này ...

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

Và khi tôi thay thế <, >, [, ], .với không gian ...

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

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


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

 - 
---
 - 

Piet, 47x2 pixel

Sử dụng bảng mã 5x5:

Con trăn

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

Điều này cũng hoạt động với tôi (sys.executable là '/ usr / bin / python')

import sys;print sys.executable[9:]

cân não 101

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

có lẽ có thể chơi gôn xa hơn một chút, nhưng đã 6 giờ sáng và tôi nên ngủ một chút ...

C

Theo tinh thần câu trả lời của Anon trong C (xem xét tệp C luôn có phần mở rộng .c). Tôi muốn đề xuất:

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

Java

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

Được xây dựng bằng 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));
}

Phiên bản ngắn hơn một chút (có cảnh báo trình biên dịch)

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

Hồng ngọc - 27

puts RUBY_DESCRIPTION[0..3]

Cập nhật từ bình luận của Chris Jester-Young:

Hồng ngọc - 24

puts RUBY_COPYRIGHT[0,4]

Cập nhật từ Hauleth:

Hồng ngọc - 15

p`ruby -v`[0,4]

mèo 3

Tạo một tệp có nội dung sau (mã nguồn)

cat

Và chạy nó như thế nào (thực hiện tệp):

$ cat filename

Clojure - 16 ký tự

(subs(str =)0 7)

Haskell, 47

data H=Haskell deriving Show
main=print Haskell

Hồng ngọc

Không ngắn, nhưng rất gián tiếp.

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

Hồng ngọc (17)

p 1299022.to_s 36

Đầu ra "ruby"

Bash / 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,$/

Scala - 42

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

Cập nhật - 39 ký tự

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

C - 34

Tôi không có đủ danh tiếng để thêm nhận xét này vào mục C trước đó. Cùng một ý tưởng như trên, nhưng tên tệp có thể là bất cứ thứ gì.c

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

> <> (Cá) (11)

Thậm chí còn tốt hơn:

'>'::o2-oo;

Visual Basic (phiên bản 6.0)

MsgBox Right(Error(458), 12)

VBScript

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

Cả VB6 và VBScript

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

QBasic (37)

Tôi đang sử dụng phiên bản 1.1 của trình thông dịch QBasic.

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

Lua 25 Chars

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

Hoặc, tương tự như giải pháp J của JB 17 ký tự:

print"\76\117\97"

GolfScript (13)

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

Vợt (45)

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