Produzca solo el nombre de un lenguaje de programación utilizando solo las facilidades del lenguaje en sí. El nombre del idioma solo puede invocarse indirectamente, es decir, a partir de variables de entorno no personalizadas, funciones o métodos integrados o el intérprete / compilador del lenguaje. La salida debe ser solo el nombre del idioma.

Un ejemplo sería:

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

La respuesta que seleccione será la que tenga más votos. En caso de empate, la versión más corta de golf (separada o la única respuesta dada), será el desempate.

BASH, 17 7

bash -c 'echo $0'

o incluso

echo ${0#-}

si ya ejecutas bash: D

actualización : "echo $0"se $0expande primero, así que 'echo $0'es la respuesta correcta.

Espacio en blanco

El |  	 	 			
	
    		 	   
	
    		 	  	
	
    			 	  
	
    		  	 	
	
    			  		
	
    			    
	
    		    	
	
    		   		
	
    		  	 	
	


El |

do

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

Python - 23 22

print`credits`[97:103]

J, 4

u:74

Tener un nombre corto en el idioma ayuda.

Python (win32) - abuso del módulo aleatorio

No estoy seguro de si esto realmente funciona. Depende de la implementació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

Solo por diversión (sé que esto no está relacionado con el propósito de la tarea), escribí este código ...

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

Y cuando reemplacé <, >, [, ], .con espacio ...

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

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


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

 - 
---
 - 

Piet, 47x2 píxeles

Usando códecs 5x5:

Pitón

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

Esto también funciona para mí (sys.executable es '/ usr / bin / python')

import sys;print sys.executable[9:]

brainfuck 101

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

probablemente podría jugar un poco más de golf, pero son las 6 am y debería dormir un poco ...

do

En el espíritu de la respuesta de Anon en C (considerando que un archivo C siempre tiene la extensión .c). Sugeriría:

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

do

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

Versión ligeramente más corta (con advertencias del compilador)

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

Rubí - 27

puts RUBY_DESCRIPTION[0..3]

Actualización del comentario de Chris Jester-Young:

Rubí - 24

puts RUBY_COPYRIGHT[0,4]

Actualizado de Hauleth:

Rubí - 15

p`ruby -v`[0,4]

gato 3

Cree un archivo con el siguiente contenido (código fuente)

cat

Y ejecútelo como (ejecute el archivo):

$ cat filename

Clojure - 16 caracteres

(subs(str =)0 7)

Haskell, 47

data H=Haskell deriving Show
main=print Haskell

Rubí

No corto, pero muy indirectamente.

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

Rubí (17)

p 1299022.to_s 36

Salidas "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))

Actualización - 39 caracteres

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

C - 34

No tengo suficiente reputación para agregar esto como un comentario a la entrada anterior de C. La misma idea que la anterior, pero el nombre del archivo puede ser cualquier cosa.

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

> <> (Pez) (11)

Aun mejor:

'>'::o2-oo;

Visual Basic (versión 6.0)

MsgBox Right(Error(458), 12)

VBScript

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

Tanto VB6 como VBScript

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

QBasic (37)

Estoy usando la versión 1.1 del intérprete QBasic.

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

Lua 25 Chars

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

O, análogo a los caracteres de la solución J de JB 17:

print"\76\117\97"

GolfScript (13)

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

Raqueta (45)

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