What's my name? Produce the name of the language indirectly

Question

Produce only the name of a programming language using only the facilities of the language itself. The name of the language can only be invoked indirectly, i.e., from non custom environment variables, built-in functions or methods or the interpreter/compiler of the language. Output should be the name of the language only.

One example would be:

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

The answer I select will be the one with the most up votes. In case of a tie, the shortest golfed version (separate or the only given answer), will be the tie breaker.

Answer 1

BASH, 17 7

bash -c 'echo $0'

or even

echo ${0#-}

if you already run bash :D

update: "echo $0" gets $0 expanded first so 'echo $0' is the correct answer.

Answer 2

Whitespace

|  	 	 			
	
    		 	   
	
    		 	  	
	
    			 	  
	
    		  	 	
	
    			  		
	
    			    
	
    		    	
	
    		   		
	
    		  	 	
	


|

Answer 3

C

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

Answer 4

J,4

u:74

Having a short language name does kind of help.

Answer 5

Python - 23 22

print`credits`[97:103]

Answer 6

Python (win32) - abuse of the random module

I'm not sure whether this actually works. Depends on the implementation.

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

Answer 7

BrainFuck

Just for fun (I know this isn't related to the purpose of the task.), I wrote this code...

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

And when I replaced <,>,[,],. with space...

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

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


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

 - 
---
 - 

Answer 8

Piet, 47x2 pixels

Using 5x5 codels:

Answer 9

Python

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

This also works for me (sys.executable is '/usr/bin/python')

import sys;print sys.executable[9:]

Answer 10

brainfuck 101

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

could probably be golfed slightly further, but it's 6am and I should get some sleep...

Answer 11

C

In the spirit of Anon's answer in C (considering a C file always has the extension .c). I'd suggest :

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

Answer 12

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

Answer 13

C

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

Slightly shorter version (with compiler warnings)

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

Answer 14

Ruby - 27

puts RUBY_DESCRIPTION[0..3]

Update from Chris Jester-Young's comment:

Ruby - 24

puts RUBY_COPYRIGHT[0,4]

Updated from Hauleth:

Ruby - 15

p`ruby -v`[0,4]

Answer 15

cat 3

Create a file with the following content (source code)

cat

And run it like (execute the file):

$ cat filename

Answer 16

Clojure - 16 chars

(subs(str =)0 7)

Answer 17

Bash/Brainfuck/C

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

Answer 18

Haskell, 47

data H=Haskell deriving Show
main=print Haskell

Answer 19

Ruby

Not short, but very indirectly.

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

Answer 20

Ruby (17)

p 1299022.to_s 36

Outputs "ruby"

Answer 21

Brainfuck

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

Answer 22

Perl

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

Answer 23

Scala — 42

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

Update — 39 chars

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

Answer 24

C - 34

I don't have enough reputation to add this as a comment to the previous C entry. Same idea as above, but the filename can be anything.c

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

Answer 25

><> (Fish) (11)

Even better:

'>'::o2-oo;

Answer 26

Visual Basic (version 6.0)

MsgBox Right(Error(458), 12)

VBScript

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

Both VB6 and VBScript

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

Answer 27

QBasic (37)

I am using version 1.1 of the QBasic interpreter.

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

Answer 28

Mathematica 39

This makes use of the FullForm name of the Mathematica icon.

StringTake[ToString[FullForm[\[MathematicaIcon]]],{3,13}]

Answer 29

Lua 25 Chars

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

Or, analogue to the J B's J solution 17 chars:

print"\76\117\97"

Answer 30

GolfScript (13)

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

Answer 31

Racket (45)

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

Answer 32

D(52)

using the extension of the source file

import std.stdio;void main(){write(__FILE__[$-1]);}

Answer 33

Windows PowerShell

$ShellId -replace '.*\.'

Answer 34

PHP

php -v|php -r'echo fread(STDIN,3);'

Answer 35

Assembler

Assembled using A86, generates a Windows .COM (tested on XP)

inc cx
push bx
push bx
inc bp
dec bp
inc dx
dec sp
inc bp
push dx
and al,72
mov ah,9
mov dx,si
inc sp
pop si
pop cx
int 21h
ret

Answer 36

Java

import java.util.Random;
public class J {
    public static void main(String[] args) {
        Random r = new Random(-2134197984);
        String s = "";
        while (true) {
            int k = r.nextInt(27);
            if (k == 26) break;
            s += (char)('a' + k);
        }
        System.out.println(s);
    }
}

Inspired by this stackoverflow question.

Answer 37

Groovy - 34

print "${''.metaClass.name}"[0..5]

Answer 38

shell (Linux)

basename `readlink /proc/$$/exe`

Answer 39

Ruby (36)

# ruby -v|ruby -e"puts gets.split[0]"

Answer 40

BASH (39)

bash --version | head -1 | cut -d, -f1
GNU bash

if bash is required output then its 55 chars

bash --version | head -1 | cut -d, -f1 | cut -d" " -f2
bash

Answer 41

JavaScript

Both of these include the "Script" part of JavaScript as a string literal. Could someone suggest a way to derive that part from the DOM when no script elements exist in the document?

JavaScript was named after Java (77)

for(i in navigator)i[4]=='E'&&alert(i[0].toUpperCase()+i.slice(1,4)+'Script')

Script elements have a "language" attribute (218, works in Chrome/Safari only)

u=123;for(w=l=97;w<u;++w)for(x=l;x<u;++x)for(y=l;y<u;++y)for(z=l;z<u;document.write('<script language="'+n+'script">this._?alert(n[_=0].toUpperCase()+n.slice(1)+"Script"):_=1</script>'))n=String.fromCharCode(w,x,y,z++)

Answer 42

VBScript

set fso = CreateObject("Scripting.FileSystemObject")
msgbox split(fso.GetFile(Wscript.ScriptFullName).Type," ")(0)

Answer 43

Smalltalk Squeak/Pharo flavour 16 chars

self environment

In Smalltalk, the name of global name space is Smalltalk

Answer 44

C, 25

The following should be in a file named c.c

main(){puts(__FILE__+2);}

alternate version, 27 chars:

main(){putchar(*__FILE__);}

Answer 45

dc

Noticed this was missing so here's

Od*dP1-P

Answer 46

JavaScript/ECMAScript – 31, 35, 57

for(i in{ECMAScript:0})alert(i)

_{located in JavaScript.html, or ECMAScript.html:}

alert(location.href.substr(-15,10))

document.write(window.location.pathname.substr(-15, 10));

Answer 47

Python (27)

print str(copyright)[24:30]

Answer 48

php

Very late but php have more way to show itself.

ob_start();
phpcredits();
$c=ob_get_clean();
echo substr($c,0,3);

Answer 49

Javascript

Fiddle : http://jsfiddle.net/RU2kA/1/

Code should be run from a html page enclosed within the script tag that has a type attribute

var x = document.querySelector("script");alert(x.type.split("/")[1]); 

Answer 50

Node.js: 29 characters

console.log(process.argv[0])

Answer 51

Java

class j {
    public static void main(String a[]){
        System.out.print(Character.UnicodeBlock.of(43392).toString().substring(0,4));
    }
}

The Character constant referenced is the Unicode block of Javanese, which contains the aksara Jawa characters traditionally used for writing the Javanese language. :)

Answer 52

Python (win32)

68 characters

>>> import sys;print str.upper(sys.executable[12])+sys.executable[13:18]
'Python'

41 characters

>>> print __import__('sys').executable[12:18]
'python'

Answer 53

Groovy ( JVM language )

def a =  Closure.class.name​​​​​​​​​
6.times { print a[it] }

Which prints groovy as output :D

Answer 54

R, 11 chars

LETTERS[18]

Alternatively 54 characters, using a non custom environment variable:

strsplit(packageDescription("base")$Author,"")[[1]][1]

Answer 55

C, 25

main(){printf("%X",12);}

Answer 56

C#

        Console.WriteLine(typeof(CSharpCodeProvider).Name.Substring(0,6));

Answer 57

Ruby(35)

Using the RUBY_DESCRIPTION variable may be cheating a little, but I'm not using the string "ruby" at least.

puts RUBY_DESCRIPTION.split(' ')[0]

Answer 58

Common Lisp, 36 characters

(subseq(package-name *package*)0 11)
=> "COMMON-LISP"

Answer 59

Perl

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

Answer 60

Rebol

copy/part at system/license 16 5

For Rebol 2 use:

copy/part at system/license 1 5

Answer 61

Perl, 28

print @a=(a..z)[15,4,17,11];

Answer 62

PHP (24-25)

25 with Bash:

a=`php -v`&&echo ${a:0:3}

24 if we can omit <?php:

echo substr(__FILE__,-3)

Answer 63

Haskell, 52

main=putStr$map(enumFrom 'G'!!)[1,26,44,36,30,37,37]

Could be shorter if the answer can be case insensitive. I chose to start at 'G' because Haskell has no G's in its name, and 'G' comes before 'H' using enumFrom. This solution does not define anything other than main.

Answer 64

Java

public class Me {
    public static void main(String[] args) {
            System.out.println(System.class.toString().substring(6, 7).toUpperCase() + System.class.toString().substring(7, 10));
    }
}

Answer 65

Erlang, 21 chars

[H|_]=pre_loaded(),H.

Run in the interactive shell. This works in R14B02 but I don't know if the Erlang module will always be first in the list.

Answer 66

Objective-C - 151 Chars

Little bit of trickery by taking the class name of NSObject, and chopping off the 'NS'

id s=[NSMutableString stringWithFormat:@"%@",[NSObject class]];
[s deleteCharactersInRange:NSMakeRange(0,2)];NSLog(@"%@%c%c%c%c%c",s,105,118,101,45,67);

Answer 67

Element, 30 characters

2'116 110[2:1-+'101"]7'69[,#`]

Element is a language of my own design. For some limited documentation, you can look here. For the source to an Element interpreter written in Perl, you can look here.

Here is a walkthrough of how it works:

2` stores a 2 onto the control stack for later use
116 110 push those values (t and n) onto the stack
[ start a for loop that is repeated twice
   2: duplicate the 110
   1-+ adds a negative one to the top copy of 110
   ' move the top copy to the control stack as temporary storage
   101 add the code for an e onto the stack
   " move the copy from the control stack back on top of the 101 
] end the for loop, this loops takes advantage of the fact that n m l are in consecutive order and both have an e in between 
7' push a 7 onto the control stack
69 push the code for an E onto the stack
[ start a for loop that executes 7 times
   , perform ->char / ->num conversion
   # throws away the top item on the stack since this is the item->num conversion
   ` pop and output the top item on the stack, since this is the needed item->char conversion
] end the for loop, which prints out the numbers in character form in reverse order, to spell "Element".

Answer 68

Q (6 chars)

10h$81

Answer 69

bc

ipv4=$(ipmaddr show lo ipv4 | tail -n1 | awk '{print $2}') && echo "ibase=10;obase=16;"$(echo "ibase=6;$((2**${#ipv4}))" | bc) | bc 

Let's deconstruct it:

ipmaddr show lo ipv4
1:  lo
    inet  224.0.0.1

result is unexpected, I expected 127.0.0.1, but 224.0.0.1 is sufficient.

• tail -n1 takes the last line.
• awk '{print $2}' only the ip, so ipv4=224.0.0.1 now.
• ${#ipv4} is the length of this String which is 9 (our magic number :) )
• $((2**${#ipv4})) 2^9 is 512 as we all know.
• echo "ibase=6;$((2**${#ipv4})) | bc interprets 512 as a number to the base 6, which is 188 in decimal
• echo "ibase=10;obase=16;"188 | bc converts it to hexadecimal, which is - surprise:

bc

Note: A shorter solution should be

 echo "ibase=6;obase=16;512" | bc

for the right part of the &&, but somehow it doesn't work as expected.

Answer 70

C, 39 chars

main(){putchar(2[(char*)strerror(0)]);}

Answer 71

F♯ - 187 Char

I had some fun with this - even if it's not really golfed. I should come up with a cleverer way to obscure the 72 and 2 though

let a="It's like OCaml... But .net!"|>Seq.sumBy(fun a->System.Convert.ToInt32(a))
System.Console.Write(System.Convert.ToChar(a%72*2))
System.Console.Write(System.Convert.ToChar(a%72))

Answer 72

C, obvious golfed solution

main(){putchar(67);}

Of course, it's not quite as short as the J version.

Answer 73

SQL 33 32

print substring(@@version,11, 3)

(tested with SQL Server 2008 R2 SP1)

Answer 74

Perl - 19

Less perlish than the other perl answer, but shorter.

print substr $^X,-4

Answer 75

Haskell 137

This uses a fairly interesting method of encoding strings. Thought I'd share it.

import Data.Char
main=
  (print. map chr . reverse . map last . takeWhile (not . null) . iterate (\x->zipWith subtract x$tail x))[50,-14,-31,-20,-7,0,108]

Bonus points to anyone who can explain why this works.

Answer 76

PHP

<?php 
//first option use something that probably isn't available in windows installs
print substr($_SERVER['_'],-3) . "\n";

// this should work everywhere
print strtolower(substr(array_pop(array_filter(array_keys($_SERVER),'filterSELF')),0,3)) . "\n";
// uses the following function to filter out only 'PHP_SELF'
function filterSELF($toCheck){
    return (strlen($toCheck) == 8 && substr($toCheck,-5) == '_SELF');
}

both return php

Answer 77

Nemerle, 57

Nemerle.IO.print(typeof(Option).FullName.Substring(0,7));

Answer 78

Molecule, 2 bytes

;M

Pre-defined variables are awesome.

Answer 79

Factor

Works always:

version-info " " split first print

The hacky way:

(command-line) first "." split >title print

All Factor source files end in .factor, so this just gets that and titlecases it. Won't work for compiled executables, probably.

Answer 80

Python

import sys
try: from StringIO import StringIO
except: from io import StringIO # py3
stdout = sys.stdout
sys.stdout = s = StringIO()
import this # yeah
sys.stdout = stdout
print(s.getvalue()[11:17])

Answer 81

C#, lots of characters

class g
{
    static void Main()
    {
        var r = new System.Diagnostics.StackTrace(new System.Diagnostics.StackFrame(true)).GetFrame(0).GetFileName();
        System.Console.WriteLine(Microsoft.CSharp.CSharpCodeProvider.GetLanguageFromExtension(r.Substring(r.Length - 2, 2)).ToUpper());
    }
}

That's probably closer to the spirit of the problem, but this will also work, hard coding the file extension, and is probably still effectively following the guidelines:

class g
{
    static void Main()
    {
        System.Console.WriteLine(Microsoft.CSharp.CSharpCodeProvider.GetLanguageFromExtension(".cs").ToUpper());
    }
}

Answer 82

iX2Web

**iX2001C3 934238Mwlp WDJXZWJ8Xz AJMA0K=*

Answer 83

Go

This generates an indirect language name, i.e. Issue 9 (hey, it's not directly said - you need to know what this refers to). I think it's a valid name for Go, considering it has redirect on Wikipedia. For more information why Issue 9 is a valid name, please see https://code.google.com/p/go/issues/detail?id=9.

package main

import "fmt"

func main() {
    fmt.Println("Issue 9")
}

Answer 84

Java

System.out.println("".getClass().getName().substring(0, 4));

:D

Answer 85

PHP - 22/14

(assumes a file named 'php')

<?php echo __FILE__;?>

Down to 14 with short tags

<?=__FILE__;?>

And then

php ./php

Answer 86

Javascript : 48

alert((function Javascript(){}+"").substr(9,10))