Obscure...

[francisstokes]

Whats the most obscure language you've ever programmed in?

I used to code in a language called ASL. Its a languag that you use to create text adventure games. Not really too odd. Anyone else?

[sevenhalo]

Malbolge

I never got anything to work in it... But it is a head trip.
http://en.wikipedia.org/wiki/Malbolg...mming_language

[Static]

perl... once u get used to it.. its cool but at first it looks like someone just banged on the keyboard and said.. this is my program. LOL

[Cander]

perl... once u get used to it.. its cool but at first it looks like someone just banged on the keyboard and said.. this is my program. LOL

You consider Perl obscure?

[kfcSmitty]

COBOL

OY! It wont let me keep the whole word in caps!

wewt, that worked

[francisstokes]

You consider Perl obscure?

lol mainstream, obscure...same thing lol

[francisstokes]

(=<`:9876Z4321UT.-Q+*)M'&%$H"!~}|Bzy?=|{z]KwZY44Eq0/{mlk**
hKs_dG5[m_BA{?-Y;;Vb'rR5431M}/.zHGwEDCBA@98\6543W10/.R,+O<

And you thought that cout >> "Hello World\n"; was difficult lol

[kfcSmitty]

And you thought that cout >> "Hello World\n"; was difficult lol

Isnt it cout << "Hello World\n";
??

[Static]

hey.. it said most obscure language you have USED.....

so...

LOL

[francisstokes]

Isnt it cout << "Hello World\n";
??

You could be right lol

[sevenhalo]

LogoWriter looks pretty foreign nowadays

to setup
rg 
cc 
ef 
ht 
pu 
getshapes
setpos [-145 50]
rt 90
end 

to ef
if not front? [flip]
ct
end
to instructions
type [Type any word to be translated into hieroglyphics.
Hit spacebar for a space, enter for a new line,
and esc to stop.]
type char 13
end 

to stamper
pd stamp pu 
fd 20
end 

to stamper.small
pd stamp pu 
fd 10 
end 

to translate :letter
if equal? :letter "a [setsh 62 stamper]
if equal? :letter "b [setsh 63 stamper]
if equal? :letter "c [setsh 64 stamper]
if equal? :letter "d [setsh 67 stamper]
if equal? :letter "e [setsh 61 stamper]
if equal? :letter "f [setsh 69 stamper]
if equal? :letter "g [setsh 70 stamper]
if equal? :letter "h [setsh 72 stamper]
if equal? :letter "i [setsh 84 stamper]
if equal? :letter "j [setsh 71 stamper]
if equal? :letter "k [setsh 83 stamper]
if equal? :letter "l [setsh 73 stamper]
if equal? :letter "m [setsh 74 stamper]
if equal? :letter "n [setsh 75 stamper]
if equal? :letter "o [setsh 76 stamper]
if equal? :letter "p [setsh 77 stamper]
if equal? :letter "q [setsh 64 stamper.small 
setsh 84 stamper.small 
setsh 76 stamper]
if equal? :letter "r [setsh 73 stamper]
if equal? :letter "s [setsh 65 stamper]
if equal? :letter "t [setsh 79 stamper]
if equal? :letter "u [setsh 84 stamper.small 
setsh 76 stamper]
if equal? :letter "v [setsh 69 stamper]
if equal? :letter "w [setsh 76 stamper]
if equal? :letter "x [setsh 64 stamper.small
setsh 65 stamper]
if equal? :letter "y [setsh 68 stamper]
if equal? :letter "z [setsh 82 stamper]
if equal? :letter char 32 [fd 30]
if equal? :letter char 13 [setx -150 sety ycor - 20]
if equal? :letter char 27 [cc stop]
translate readchar
end

[francisstokes]

LogoWriter looks pretty foreign nowadays

to setup
rg 
cc 
ef 
ht 
pu 
getshapes
setpos [-145 50]
rt 90
end 

to ef
if not front? [flip]
ct
end
to instructions
type [Type any word to be translated into hieroglyphics.
Hit spacebar for a space, enter for a new line,
and esc to stop.]
type char 13
end 

to stamper
pd stamp pu 
fd 20
end 

to stamper.small
pd stamp pu 
fd 10 
end 

to translate :letter
if equal? :letter "a [setsh 62 stamper]
if equal? :letter "b [setsh 63 stamper]
if equal? :letter "c [setsh 64 stamper]
if equal? :letter "d [setsh 67 stamper]
if equal? :letter "e [setsh 61 stamper]
if equal? :letter "f [setsh 69 stamper]
if equal? :letter "g [setsh 70 stamper]
if equal? :letter "h [setsh 72 stamper]
if equal? :letter "i [setsh 84 stamper]
if equal? :letter "j [setsh 71 stamper]
if equal? :letter "k [setsh 83 stamper]
if equal? :letter "l [setsh 73 stamper]
if equal? :letter "m [setsh 74 stamper]
if equal? :letter "n [setsh 75 stamper]
if equal? :letter "o [setsh 76 stamper]
if equal? :letter "p [setsh 77 stamper]
if equal? :letter "q [setsh 64 stamper.small 
setsh 84 stamper.small 
setsh 76 stamper]
if equal? :letter "r [setsh 73 stamper]
if equal? :letter "s [setsh 65 stamper]
if equal? :letter "t [setsh 79 stamper]
if equal? :letter "u [setsh 84 stamper.small 
setsh 76 stamper]
if equal? :letter "v [setsh 69 stamper]
if equal? :letter "w [setsh 76 stamper]
if equal? :letter "x [setsh 64 stamper.small
setsh 65 stamper]
if equal? :letter "y [setsh 68 stamper]
if equal? :letter "z [setsh 82 stamper]
if equal? :letter char 32 [fd 30]
if equal? :letter char 13 [setx -150 sety ycor - 20]
if equal? :letter char 27 [cc stop]
translate readchar
end

i dont even know what that is lol

[sevenhalo]

You move a turtle around the screen and it draws things. It was the first language I learned back in elementary school.

[francisstokes]

You move a turtle around the screen and it draws things. It was the first language I learned back in elementary school.

Oh yeah! I remember that! I never thought of it as a programming language though....but then again, i was 9 and quite stupid then lol

[mendhak]

Whats the most obscure language you've ever programmed in?

C# 2.0

[si_the_geek]

FreeCell.

I couldn't do much with it tho, just move a few cards around

[mendhak]

FreeCell.

I couldn't do much with it tho, just move a few cards around

Those cards hold the question of life, the universe and everything!

[si_the_geek]

Ah... I'm afraid I never managed to find it

I'll take another look... if I get it this time, where do I find the answer(s)?

[mendhak]

You cannot find the answer in this universe. Perhaps if you travelled to an alternate universe, but that is possible and impossible too.

Sorry to burst your quantum bubble.

[sevenhalo]

In another reality, the quantum bubble burst you.

[si_the_geek]

Darn it.

Perhaps I'll try Character Map next, I reckon I could make some great programs with that.

[Shaggy Hiker]

I did a little programming in the CR10 datalogger language. Very limitted, but then again, it a CR10 was a silver brick with a 9-pin port on one end, so it wasn't like I was going to play Doom on it or anything.

My boss asked me to write a program for it. I took the manual on the language, sat down, and within ten minutes I was fast asleep. When I woke up that afternoon, I decided it was late, and went home. The next day I set the manual (worthless piece of crap, except as a sleep aide) aside, and just wrote.

[penagate]

The turtle was awesome

[si_the_geek]

On a serious note, the most obscure language I think I've used is ZPL2 - which was essentially just formatting codes to send to a printer.

It was a bit like RTF, but each formatting code (which you needed lots of) started with ^ and was followed by a seemingly random sequence of 2+ characters.


The annoying thing was that after spending days writing a few simple printouts, it turned out that Windows 2000 (which we got a couple of months later) could print to it just as well as writing all those strange codes.

[wossname]

Isnt it cout << "Hello World\n";
??

Welcome back.

Anyway, I have used Befunge once, that was peculiar and slightly nauseating. There is a 3D and a 4D version of it as well for those with a severe over-abundance of attention span.

BrainF*** is also (as its name implies) a bit of a headache.

[vbcode1980]

Asp.net

[Juan Carlos Rey]

Does Assembly count as a language?

[penagate]

APL, it's not overly complex but the symbols are all little buggers.

[francisstokes]

Does Assembly count as a language?

Indeed

[NoteMe]

Maybe Prolog:

% deriv(Polynomial, variable, derivative)
% dc/dx = 0
deriv(C,X,0) :- number(C). 
% dx/dx} = 1
deriv(X,X,1).
% d(cv)/dx = c(dv/dx)
deriv(C*U,X,C*DU) :- number(C), deriv(U,X,DU).
% d(u v)/dx = u(dv/dx) + v(du/dx)
deriv(U*V,X,U*DV + V*DU) :- deriv(U,X,DU), deriv(V,X,DV).
% d(u ± v)/dx = du/dx ± dv/dx
deriv(U+V,X,DU+DV) :- deriv(U,X,DU), deriv(V,X,DV).
deriv(U-V,X,DU-DV) :- deriv(U,X,DU), deriv(V,X,DV).
% du^n/dx = nu^{n-1}(du/dx)
deriv(U^+N,X,N*U^+N1*DU) :- N1 is N-1, deriv(U,X,DU).

Or EL or Root, which is both made and more or less only used here at CERN...

[kfcSmitty]

This thread is truly making me appreciate COBOL.

P.S. Thanks for the welcome wossy

[francisstokes]

Maybe Prolog:

% deriv(Polynomial, variable, derivative)
% dc/dx = 0
deriv(C,X,0) :- number(C). 
% dx/dx} = 1
deriv(X,X,1).
% d(cv)/dx = c(dv/dx)
deriv(C*U,X,C*DU) :- number(C), deriv(U,X,DU).
% d(u v)/dx = u(dv/dx) + v(du/dx)
deriv(U*V,X,U*DV + V*DU) :- deriv(U,X,DU), deriv(V,X,DV).
% d(u ± v)/dx = du/dx ± dv/dx
deriv(U+V,X,DU+DV) :- deriv(U,X,DU), deriv(V,X,DV).
deriv(U-V,X,DU-DV) :- deriv(U,X,DU), deriv(V,X,DV).
% du^n/dx = nu^{n-1}(du/dx)
deriv(U^+N,X,N*U^+N1*DU) :- N1 is N-1, deriv(U,X,DU).

Or EL or Root, which is both made and more or less only used here at CERN...

lol note what is that supposed to do?

[NoteMe]

It is a simple example of pattern matching.

[kfcSmitty]

well, now we know why NoteMe is so good at math

[francisstokes]

It is a simple example of pattern matching.

i must sya ive seen simpler lol

[HellWALKER]

Most obscure programming language I've used is definitly:
BrainF**k

It's some kind of assembly language with only 8 instructions. I saw this language in an engineering competition between canadian universities called "Jeux de Génie". Every year, there is a BrainF**k challenge in this competition.

I didn't win...

Edit:
MatLab code can also be pretty weird...