40
\$\begingroup\$

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.

\$\endgroup\$

closed as off-topic by cat, CalculatorFeline, Blue, Alex A. Apr 28 '16 at 5:49

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "Questions without an objective primary winning criterion are off-topic, as they make it impossible to indisputably decide which entry should win." – cat, CalculatorFeline, Blue, Alex A.
If this question can be reworded to fit the rules in the help center, please edit the question.

  • 1
    \$\begingroup\$ so using Java reflection API is not OK? \$\endgroup\$ – Ming-Tang Feb 21 '11 at 1:15
  • \$\begingroup\$ I didn't think of that, but that's okay too. \$\endgroup\$ – Ty Auvil Feb 21 '11 at 12:20
  • \$\begingroup\$ @George: Huh? Is that now a code-golf? Why? It wasn't before ... \$\endgroup\$ – Joey Feb 21 '11 at 19:03
  • \$\begingroup\$ @Joey: No it wasn't before, but it seemed like a code golf question, so I edited it and someone approved the edit. \$\endgroup\$ – Nathan Osman Feb 21 '11 at 19:35
  • \$\begingroup\$ @Joey: Code Golf is the tie breaker. I didn't put that TAG on originally, but George suggested it and I agreed. \$\endgroup\$ – Ty Auvil Feb 21 '11 at 23:11

86 Answers 86

18
\$\begingroup\$

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.

\$\endgroup\$
  • \$\begingroup\$ It's only dash-prefixed if it's a login shell and it's not a login shell if it's the one that runs your program. \$\endgroup\$ – J B Feb 22 '11 at 20:02
  • \$\begingroup\$ @JB: thanks for pointing that out. I was using "s where I should have 's \$\endgroup\$ – Eelvex Feb 22 '11 at 20:10
  • \$\begingroup\$ Looks like this is the winner. :) \$\endgroup\$ – Ty Auvil Feb 28 '11 at 23:59
  • \$\begingroup\$ echo ${SHELL:5} \$\endgroup\$ – Fish Monitor May 18 '12 at 9:27
30
\$\begingroup\$

Whitespace

|  	 	 			
	
    		 	   
	
    		 	  	
	
    			 	  
	
    		  	 	
	
    			  		
	
    			    
	
    		    	
	
    		   		
	
    		  	 	
	


|
\$\endgroup\$
  • \$\begingroup\$ Not a real language, whitespace. \$\endgroup\$ – Alexandru Jul 2 '11 at 0:11
  • 22
    \$\begingroup\$ @Alexandru: compsoc.dur.ac.uk/whitespace \$\endgroup\$ – dmckee Jul 2 '11 at 0:57
  • \$\begingroup\$ Argh. Sorry Anthony, SE doesn't let me upvote you now. \$\endgroup\$ – Alexandru Jul 2 '11 at 14:10
  • \$\begingroup\$ That's all right. I myself have recently learned about this language. \$\endgroup\$ – Anthony Jul 2 '11 at 19:49
  • 1
    \$\begingroup\$ If I'm not mistaken, your program has two fatal errors: (1) Letting S,T,L denote Space,Tab,Linefeed repsectively, the first instruction is at present SSTSTSTTTL, but should be SSSTSTSTTTL (3 S's on the left) -- the 3rd S is needed to indicate the positive sign of the binary number following it (i.e. the ascii code for 'W' = 85 = 1010111 in binary, coded as the L-terminated string TSTSTTTL), and so on for the other ascii codes. (2) The prog's final TLLL should be TLSSLLL, where the TLSS is needed to output the final character from the stack, and LLL marks the end-of-program. \$\endgroup\$ – r.e.s. Mar 29 '12 at 0:56
26
\$\begingroup\$

C

#define d(x) x(#x[3])
void main(){d(putchar);}
\$\endgroup\$
  • \$\begingroup\$ putchar((int)(putchar)+3); \$\endgroup\$ – Mateen Ulhaq Mar 12 '11 at 23:04
  • 23
    \$\begingroup\$ putchar("putchar"[3]); I must have been an idiot an year ago. \$\endgroup\$ – Mateen Ulhaq Apr 1 '12 at 1:50
  • \$\begingroup\$ Use the main parameter. main(a){putchar(a+66);} \$\endgroup\$ – A _ Nov 16 at 12:54
23
\$\begingroup\$

Python - 23 22

print`credits`[97:103]
\$\endgroup\$
  • 2
    \$\begingroup\$ you should leave out the space after print \$\endgroup\$ – gnibbler Jul 5 '11 at 6:25
  • \$\begingroup\$ What does the ` do? I've never seen that. \$\endgroup\$ – Kazark Jan 1 '12 at 4:13
  • 4
    \$\begingroup\$ Backticks are a deprecated alias for repr(). Backticks are gone in Python 3.x. \$\endgroup\$ – 0xKirill Jan 4 '12 at 9:49
  • 2
    \$\begingroup\$ @0xKir So? Use them in code golf 'till they're gone. \$\endgroup\$ – Riking May 24 '13 at 14:34
23
\$\begingroup\$

J,4

u:74

Having a short language name does kind of help.

\$\endgroup\$
  • \$\begingroup\$ Can be even shorter : u:74 \$\endgroup\$ – jpjacobs Feb 24 '14 at 12:13
19
\$\begingroup\$

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)])
\$\endgroup\$
  • \$\begingroup\$ How did you find that? It also works for me in Python 2.6.6 on linux. \$\endgroup\$ – Mechanical snail Aug 5 '11 at 2:42
  • 5
    \$\begingroup\$ Good to hear! I wrote a small bruteforcing tool to determine how you need to seed the random module to get a certain sequence. With a three-character sequence, this doesn't take too long - this script joins together two three-letter sequences to get "PYTHON" :) \$\endgroup\$ – zhazam Aug 15 '11 at 13:24
  • \$\begingroup\$ The rest is using list comprehensions and other dirty tricks to get it to fit it in one line. You can find the bruteforcing tool here :) \$\endgroup\$ – zhazam Aug 15 '11 at 13:30
  • \$\begingroup\$ And it works on my Python 3.1.2 (adding parentheses after print, of course). \$\endgroup\$ – Mechanical snail Aug 16 '11 at 20:18
  • 1
    \$\begingroup\$ Almost there: generateSentence(50613, 73)[66:] gives 'PYTHOCN'. \$\endgroup\$ – Mechanical snail Aug 16 '11 at 20:45
17
\$\begingroup\$

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...

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

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


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

 - 
---
 - 
\$\endgroup\$
13
\$\begingroup\$

Piet, 47x2 pixels

Using 5x5 codels: Piet program to print "Piet"

\$\endgroup\$
12
\$\begingroup\$

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:]
\$\endgroup\$
  • 1
    \$\begingroup\$ Here is what i get from these: Active and 25\Lib\site-packages\pythonwin\Pythonwin.exe, so... no good \$\endgroup\$ – Nas Banov Mar 7 '11 at 8:12
  • \$\begingroup\$ import sys;print sys.subversion[0][1:] works though \$\endgroup\$ – Nas Banov Mar 7 '11 at 8:19
  • 6
    \$\begingroup\$ that's cheating... But I can cheat better: eval.__doc__[144:150] \$\endgroup\$ – JBernardo Jul 5 '11 at 5:53
11
\$\begingroup\$

brainfuck 101

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

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

\$\endgroup\$
11
\$\begingroup\$

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);}
\$\endgroup\$
  • 5
    \$\begingroup\$ Much shorter, 25 chars, single line, main(){puts(__FILE__+2);}, assuming filename is a single letter, eg. a.c \$\endgroup\$ – Hasturkun Feb 24 '11 at 15:09
7
\$\begingroup\$

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);
    }
}
\$\endgroup\$
  • \$\begingroup\$ anon: Just submit another answer. This isn't a golf, so no need to keep it short. \$\endgroup\$ – Joey Jul 1 '11 at 7:44
6
\$\begingroup\$

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));
\$\endgroup\$
  • \$\begingroup\$ first one will produce warning about main not being of type int using gcc. \$\endgroup\$ – oenone Aug 16 '11 at 7:28
  • 1
    \$\begingroup\$ You are not allowed to use the letter 'c'. \$\endgroup\$ – kinokijuf Dec 25 '11 at 11:29
6
\$\begingroup\$

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]
\$\endgroup\$
  • \$\begingroup\$ 1. RUBY_COPYRIGHT is shorter than RUBY_DESCRIPTION. 2. [0,4] is shorter than [0..3]. \$\endgroup\$ – Chris Jester-Young Mar 11 '11 at 8:56
  • \$\begingroup\$ Even shorter ```ruby -v`[0,4]`` \$\endgroup\$ – Hauleth Mar 27 '12 at 21:30
5
\$\begingroup\$

cat 3

Create a file with the following content (source code)

cat

And run it like (execute the file):

$ cat filename
\$\endgroup\$
  • 7
    \$\begingroup\$ Neither indirect nor a language? \$\endgroup\$ – eternalmatt Jul 22 '11 at 22:35
  • 4
    \$\begingroup\$ Cat isn't a real language, because it isn't Turing-complete. \$\endgroup\$ – kinokijuf Dec 25 '11 at 11:36
  • 3
    \$\begingroup\$ @kinokijuf There are plenty of useful languages which are not Turing-complete. See stackoverflow.com/q/8412741/20713 for a partial list. \$\endgroup\$ – ephemient Mar 27 '12 at 6:43
  • 5
    \$\begingroup\$ @ephemient: Cat is not only not turing complete, it isn't a language at all. It has no syntax, no grammer, no keywords. I don't know where bitmask got his definition - I don't follow it. \$\endgroup\$ – user unknown Mar 27 '12 at 10:55
  • 6
    \$\begingroup\$ @userunknown It's hard to imagine cat being a language, and besides this violates the spirit of the question (uses the language name directly). My comment was to refute the idea that "Cat isn't a real language, because it isn't Turing-complete". It isn't a language for other reasons, but Turing-completeness isn't a good deciding factor. \$\endgroup\$ – ephemient Mar 28 '12 at 4:08
5
\$\begingroup\$

Clojure - 16 chars

(subs(str =)0 7)
\$\endgroup\$
5
\$\begingroup\$

Haskell, 47

data H=Haskell deriving Show
main=print Haskell
\$\endgroup\$
5
\$\begingroup\$

Ruby

Not short, but very indirectly.

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

Ruby (17)

p 1299022.to_s 36

Outputs "ruby"

\$\endgroup\$
5
\$\begingroup\$

Bash/Brainfuck/C

//bin/bash -c 'echo ${0##*/}'
#define p putchar
#define exit main(){p(p+67);p(10);}
exit
//++++++++[->++++++++++++>+>>++>+++<<<<<]>[->+>+>+>+<<<<]
//>+>++.>++.<-.<.>>----.<<---.>>>---.<<++.>---.
\$\endgroup\$
  • \$\begingroup\$ Wow! A polyglot! Next step: add Whitespace. \$\endgroup\$ – tbodt Feb 24 '14 at 22:39
4
\$\begingroup\$

Brainfuck

>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
++++++++++++++++++++++++++++++++++++++++++++++++.
-----------------.
++++++++.
+++++.
--------.
+++++++++++++++.
------------------.
++++++++.
\$\endgroup\$
  • \$\begingroup\$ Br**n ! (five more to go ...) \$\endgroup\$ – Dr. belisarius Feb 21 '11 at 18:38
  • \$\begingroup\$ @belisarius: Hm? \$\endgroup\$ – Joey Feb 21 '11 at 19:02
  • \$\begingroup\$ Br**n you. \$\endgroup\$ – Mateen Ulhaq Mar 10 '11 at 4:46
  • 1
    \$\begingroup\$ you can make smaller with [...]: ++++++++++[>++++++>++++++++++>+++++++++++>++++<<<<-]>++++++.>>++++.<---.++++++++.+++++.--------.>>++.*<<---.++++++++. \$\endgroup\$ – JBernardo Jul 7 '11 at 0:27
  • 12
    \$\begingroup\$ This looks like typical Git output. \$\endgroup\$ – Joey Adams Jul 7 '11 at 3:34
4
\$\begingroup\$

Perl

$^X=~/([a-z]+)[^\/]+$/;print$1,$/
\$\endgroup\$
  • \$\begingroup\$ I get only per as output (missing the final l). \$\endgroup\$ – BioGeek Jul 2 '11 at 22:49
  • 1
    \$\begingroup\$ @BioGeek: Is your Perl binary called per? \$\endgroup\$ – ninjalj Jul 3 '11 at 6:42
  • 2
    \$\begingroup\$ I also get per. (My $^X says /usr/bin/perl. The [^\/]+ swallows the l.) \$\endgroup\$ – Ilmari Karonen Dec 12 '11 at 22:35
  • \$\begingroup\$ fixed: $^X=~/([^\/]+)$/;print$1, run with -l command line switch \$\endgroup\$ – ardnew Apr 30 '12 at 21:34
4
\$\begingroup\$

Scala — 42

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

Update — 39 chars

print(('a.getClass+"").substring(6,11))
\$\endgroup\$
  • \$\begingroup\$ Nice! A variant, same size: print((""+'a.getClass).split("\\b")(3)) \$\endgroup\$ – PhiLho Jul 27 '11 at 16:00
  • \$\begingroup\$ I prefer it capitalized, but of course, it isn't golf anymore. So, for the pleasure of making variants: print(classOf[App].toString.split("\\W").map(_.capitalize).apply(1)) \$\endgroup\$ – PhiLho Jul 28 '11 at 8:23
  • \$\begingroup\$ Same trick in 23 chars: (""+Map).patch(5,"",99) \$\endgroup\$ – deadsven Oct 25 '11 at 11:51
  • \$\begingroup\$ And 16: (""+Map).take(5) \$\endgroup\$ – deadsven Oct 25 '11 at 12:04
  • \$\begingroup\$ Or 13: ""+Map take 5 \$\endgroup\$ – Régis Jean-Gilles Jan 26 '13 at 1:14
4
\$\begingroup\$

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);}
\$\endgroup\$
  • 2
    \$\begingroup\$ Gah, but now I can't name my files "&raquo;\0<3ASCII.c" \$\endgroup\$ – walpen Jun 13 '12 at 0:50
4
\$\begingroup\$

><> (Fish) (11)

Even better:

'>'::o2-oo;
\$\endgroup\$
3
\$\begingroup\$

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"))
\$\endgroup\$
  • \$\begingroup\$ The VBScript one produces "Bscript." on my computer. \$\endgroup\$ – kinokijuf Dec 25 '11 at 11:32
  • \$\begingroup\$ You're a bad man. \$\endgroup\$ – Riking May 24 '13 at 14:39
3
\$\begingroup\$

QBasic (37)

I am using version 1.1 of the QBasic interpreter.

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

Lua 25 Chars

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

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

print"\76\117\97"
\$\endgroup\$
  • 1
    \$\begingroup\$ _VERSION:sub(1,3) \$\endgroup\$ – mniip May 17 '13 at 15:59
3
\$\begingroup\$

GolfScript (13)

"#{$0[0..9]}"
\$\endgroup\$
  • \$\begingroup\$ +1 Clever... very clever. Of course, this doesn't work if you've renamed the interpreter, or if you're, say, running it from a different directory. \$\endgroup\$ – Ilmari Karonen Mar 30 '12 at 11:13
  • \$\begingroup\$ Ps. "#{$0}"10< is three chars shorter. :) \$\endgroup\$ – Ilmari Karonen Mar 30 '12 at 11:20
3
\$\begingroup\$

Racket (45)

racket -e "(display(substring(banner)10 17))"
\$\endgroup\$

Not the answer you're looking for? Browse other questions tagged or ask your own question.