Sadece bir dilin kendi imkanlarını kullanarak bir programlama dilinin adını üretin. Dilin adı yalnızca dolaylı olarak, yani özel olmayan ortam değişkenlerinden, yerleşik işlevlerden veya yöntemlerden veya dilin tercüman / derleyicisinden çağrılabilir. Çıktı sadece dilin adı olmalıdır.

Bir örnek şöyle olurdu:

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

Seçtiğim cevap en fazla oyu alan cevap olacak. Beraberlik durumunda, en kısa golf oyunu (ayrı veya sadece verilen cevap), kravat kırıcı olacaktır.

BASH, 17 7

bash -c 'echo $0'

ya da

echo ${0#-}

eğer zaten bash kullanıyorsanız: D

güncelleme : "echo $0"önce $0genişleyen olur 'echo $0'doğru cevap budur.

Beyaz boşluk

|  	 	 			
	
    		 	   
	
    		 	  	
	
    			 	  
	
    		  	 	
	
    			  		
	
    			    
	
    		    	
	
    		   		
	
    		  	 	
	


|

C

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

Python - 23 22

print`credits`[97:103]

J, 4

u:74

Kısa bir dil ismine sahip olmak biraz yardımcı olur.

Python (win32) - rastgele modülün kötüye kullanılması

Bunun gerçekten işe yarayıp yaramadığından emin değilim . Uygulamaya bağlıdır.

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

Sadece eğlence için (bunun görevin amacı ile ilgili olmadığını biliyorum.), Bu kodu yazdım ...

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

Ve yerini ne zaman <, >, [, ], .boşluk ...

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

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


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

 - 
---
 - 

Piet, 47x2 piksel

5x5 kodelin kullanılması:

piton

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

Bu da benim için çalışıyor (sys.executable is '/ usr / bin / python')

import sys;print sys.executable[9:]

brainfuck 101

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

muhtemelen biraz daha golf olabilirdi, ama sabah 6'da ve biraz uyumam gerek

C

Anon'un C cevabına göre (bir C dosyasının göz önünde bulundurulması her zaman .c uzantısına sahiptir). Ben öneririm:

#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

DevStudio 2005 kullanılarak hazırlandı

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

Biraz daha kısa versiyon (derleyici uyarıları ile)

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

Yakut - 27

puts RUBY_DESCRIPTION[0..3]

Chris Jester-Young'un yorumundan güncelleme:

Yakut - 24

puts RUBY_COPYRIGHT[0,4]

Hauleth'ten güncellendi:

Yakut - 15

p`ruby -v`[0,4]

kedi 3

Aşağıdaki içeriğe sahip bir dosya oluşturun (kaynak kodu)

cat

Ve şöyle çalıştırın (dosyayı çalıştırın):

$ cat filename

Clojure - 16 karakter

(subs(str =)0 7)

Haskell, 47

data H=Haskell deriving Show
main=print Haskell

Yakut

Kısa değil, ama dolaylı olarak.

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

Yakut (17)

p 1299022.to_s 36

çıktılar "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))

Güncelleme - 39 karakter

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

C - 34

Bunu önceki C girişine yorum olarak eklemek için yeterli saygınlığım yok. Yukarıdaki ile aynı fikir, ancak dosya adı her şey olabilir.

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

> <> (Balık) (11)

Daha iyi:

'>'::o2-oo;

Visual Basic (sürüm 6.0)

MsgBox Right(Error(458), 12)

VBScript

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

Hem VB6 hem de VBScript

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

QBasic (37)

QBasic yorumlayıcısının 1.1 sürümünü kullanıyorum.

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

Lua 25 Karakterler

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

Veya JB'in J çözümü 17 karakterine benzer:

print"\76\117\97"

GolfScript (13)

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

Raket (45)

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