探検

いろんな言語で「Hello World」だ。ゴラァ

■ このスレッドは過去ログ倉庫に格納されています
1名無しさん＠お腹いっぱい。
垢版 |
NGNG
それじゃ俺が知っている C からだ。
皆も知ってる言語・スクリプトで続けてくれ！


#include <stdio.h>
int main()
{
printf("Hello World\n");
return (0);
}
25名無しさん＠お腹いっぱい。
垢版 |
NGNG
#include <gtk/gtk.h>
void quit (GtkWidget *widget, gpointer data)
{
gtk_main_quit ();
}
int main(int argc, char *argv[])
{
GtkWidget *window;
GtkWidget *button;

gtk_set_locale();
gtk_init(&argc, &argv);
window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
gtk_signal_connect(GTK_OBJECT(window), "destroy",
GTK_SIGNAL_FUNC(gtk_main_quit), NULL);
button = gtk_button_new_with_label("厨房は逝ってよし");
gtk_signal_connect(GTK_OBJECT(button), "clicked",
GTK_SIGNAL_FUNC(quit), NULL);
gtk_container_add(GTK_CONTAINER(window), button);
gtk_widget_show(button);
gtk_widget_show(window);
gtk_main();
return 0;
}
NGNG
#import <stdio.h>

@interface HelloWorld: Object
{
}
-say;
@end

@implementation HelloWorld
-say
{
　　printf("hello world\n");
　　return self;
}
@end

int main()
{
　　id obj = [HelloWorld new];
　　[obj say];
　　[obj free];
　　return 0;
}
NGNG
#include <iostream>

int main()
{
　　std::cout << "hello world" << std::endl;
}
NGNG
>>26
ObjectiveCじゃないか？。見たの久しぶりだな。

むかーしむかし、NeXTって会社があってだな。
Canonが代理店やっていた頃があるんだなぁ。

29名無しさん＠お腹いっぱい。
垢版 |
NGNG
　　　　　LD　DE, HELLO
　　　　　LD　C, 09H
　　　　　CALL　0005H
　　　　　LD　C, 00H
　　　　　CALL　0005H
HELLO:　DB　'Hello World', 0DH, 0AH, '$'
NGNG
#!/bin/sh
echo 'Hello World'

31名無しさん＠お腹いっぱい。
垢版 |
NGNG
#!/usr/bin/perl
print "Hello, World";
exit;
32Be名無しさん
垢版 |
NGNG
#include <Be.h>

class HelloWindow : public BWindow {
public:
　　HelloWindow() : BWindow(BRect(100,100,250,100),
　　　　"Hello World", B_TITLED_WINDOW, 0)
　　{ BStringView *view = new BStringView(Bounds(),
　　　　　"Hello World", "Hello World");
　　　view->SetFont(be_bold_font);
　　　view->SetFontSize(25.0);
　　　AddChild(view); }
　　bool QuitRequested()
　　{ be_app->PostMessage(B_QUIT_REQUESTED);
　　　return BWindow::QuitRequested(); }
};

class HelloWorld : public BApplication {
public:
　　HelloWorld() : BApplication("application/x-vnd.hello.world")
　　{ (new HelloWindow())->Show(); }
};

int main() { (new HelloWorld())->Run(); return 0; }
33名無しさん＠お腹いっぱい。
垢版 |
NGNG
VB。他の知ってるヤツはがいしゅつだった…
鬱だ…
sub Form_Load()
　　print "Hello World"
end sub

3433
垢版 |
NGNG
しまった、private sub Form_Load() だ。
あまりに久しぶりだからな…
鬱だ氏脳
NGNG
class HelloWorld {
public static void main(String[] args) {
System.out.println("Hello World");
}
}

スマソ、マイナーな言語で・・・

NGNG
<marquee>Hello World</marquee>
37名無しさん＠お腹いっぱい。
垢版 |
NGNG
$ touch Hellow\ World
$ ls Hellow\ World
Hellow World
38sql
垢版 |
NGNG
create table hello (hello char(16));
insert into hello values('hello world');
select * from hello;
39m4
垢版 |
NGNG
define(hello,`Hello, World')dnl
hello
40PostScript
垢版 |
NGNG
%!PS
/Times-Roman findfont 36 scalefont setfont 100 100 moveto (Hello, World) show
41名無しさん＠お腹いっぱい。
垢版 |
NGNG
while (1) :
　　　　print "Hello World";
あるいは
# python -c "print 'Hello World'"

でどうよ
42Ｏ越＠COBOL
垢版 |
NGNG
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
AUTHOR. O.

ENVIRONMENT DIVISION.
CONFUGURATION SECTION.

DATA DIVISION.
WORKING-STORAGE SECTION.

01 HELLO-WORLD PIC X(11) VALUE "Hello World".

PROCEDURE DIVISION.
DISPLAY-001.
DISPLAY HELLO-WORLD ON CONSOLE.
STOP RUN.
NGNG
CONFIGURATION SECTIONを間違えた。鬱だ氏脳。
44emacs-lisp
垢版 |
NGNG
(message "Hello, World")
45MSX BASIC
垢版 |
NGNG
10 ? "Hello World"
20 GOTO 10
46Scheme
垢版 |
NGNG
(display (list->string (reverse (string->list "\ndlroW, olleH"))))
47もいっちょScheme
垢版 |
NGNG
(display (list->string (map (lambda (x) (integer->char (-1+ (char->integer x)))) (string->list "Ifmmp-!Xpsme"))))
NGNG
これからもっとも人口の多い言語になるC#です。
>>35 に似てるのは気のせいよ。

using System;

class HelloWorld
{
　　public static void Main(String[] args)
　　{
　　　　Console.WriteLine("Hello World");
　　}
}
NGNG
>>48
似過ぎだって・・・
50名無しさん＠お腹いっぱい。
垢版 |
NGNG
>>42
DISPLAY HOGE ON CONSOLE. じゃなくて
DISPLAY HOGE UPON CONSOLE. じゃないかな

いくら偽者だといってもちみのソース汚すぎ。
私が清書してあげましょう。

目盛行 ---1----+----2----+----3----+----4----+----5----+----6----+----7----+---
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. HELLO.
000300 *
000400 ENVIRONMENT DIVISION.
000500 CONFIGURATION SECTION.
000600 SOURCE-COMPUTER. MAKER-A.
000700 OBJECT-COMPUTER. MAKER-A.
000800 /
000900 DATA DIVISION.
001000 /
001100 WORKING-STORAGE SECTION.
001200 01 HELLO-WORLD PIC X(11) VALUE 'Hello World'.
001300 /
001400 PROCEDURE DIVISION.
001500 DISPLAY HELLO-WORLD UPON CONSOLE.
001600 STOP RUN.
51５０
垢版 |
NGNG
げげ空白がなくなってる。ずれてるじゃんかー
結局汚いままか。
52５０
垢版 |
NGNG
よしできた。こんなのが書きたかったの。

IDENTIFICATION DIVISION.
　PROGRAM-ID. HELLO.
　　*
　　　ENVIRONMENT DIVISION.
　　　　CONFIGURATION SECTION.
　　　　　SOURCE-COMPUTER. MAKER-A.
　　　　　　OBJECT-COMPUTER. MAKER-A.
　　　　　　　/
　　　　　　　　DATA DIVISION.
　　　　　　　　　/
　　　　　　　　　　WORKING-STORAGE SECTION.
　　　　　　　　　　　01 HELLO-WORLD PIC X(11) VALUE 'Hello World'.
　　　　　　　　　　　　/
　　　　　　　　　　　　　PROCEDURE DIVISION.
　　　　　　　　　　　　　　DISPLAY HELLO-WORLD UPON CONSOLE.
　　　　　　　　　　　　　　　STOP RUN.
NGNG
結構大変だったでしょう>>50(偽５０)
54５３
垢版 |
NGNG
訂正
結構大変だったでしょう>>52(偽５０)
55名無しさん＠Ｅｍａｃｓ
垢版 |
NGNG
PROGRAM HELLO
WRITE(6,610) ' HELLO WORLD '
610 FORMAT(A20)
END
56名無しさん＠お腹いっぱい。
垢版 |
NGNG
emacs lisp

(print "Hello World")
5756
垢版 |
NGNG
>>44
で既出だった。しかも message の方が洗練されてる。打つだし脳
NGNG
ふと思ったが、このスレ板違いのような…(ｗ
59名無しさん＠お腹いっぱい。
垢版 |
NGNG
proc options(maon);
.
.
60名無しさん＠お腹いっぱい。
垢版 |
NGNG
<?php
　　echo "Hello, World.";
?>
61名無しさん＠お腹いっぱい。
垢版 |
NGNG
>>33

Windows プログラム的には

Private Sub Form_Paint()
　　Print "Hello World"
End Sub

のほうがよくない？　フォームの AutoRedraw プロパティも
デフォルトでは False だし。
NGNG
　┌─────────┐
　│ 　　　　　　　　　　 　 　.|
　│　 Hello World!　　　　│
　│ 　　　　　　　　　　 　 　.|
　└―――──――――┘
　　　　　　ヽ(´ー｀)ﾉ
　　 　 　　　 (　 へ)
　 　 　 　 　　く
63U-名無しさん
垢版 |
NGNG
K&R.
これからはじまった。
（これがプログラマーに永遠にHello Worldを書かせつづける原点）
64PDF
垢版 |
NGNG
%PDF-1.4
1 0 obj
<< /Type /Catalog /Pages 2 0 R >>
endobj
2 0 obj
<< /Type /Pages /Kids [3 0 R] /Count 1 >>
endobj
3 0 obj
<< /Type /Page /Parent 2 0 R /MediaBox [0 0 200 150]
/Resources << /Font << /F1 4 0 R >> >> /Contents 5 0 R >>
endobj
4 0 obj
<< /Type /Font /Subtype /Type1 /BaseFont /Helvetica >>
endobj
5 0 obj
<< /Length 39 >>
stream
BT /F1 20 Tf 10 100 Td (Hello World) Tj ET
endstream
endobj
xref
0 6
0000000000 65535 f
0000000009 00000 n
0000000058 00000 n
0000000115 00000 n
0000000241 00000 n
0000000311 00000 n
trailer
<<
/Size 6
/Root 1 0 R
>>
startxref
403
%%EOF
NGNG
xfontsel -sample "hello world"
NGNG
10 PRINT "HELLO WORLD"

20 END

NGNG
program Hello(input, output)

begin
writeln('Hello World')

end.

NGNG
(defun hello

(print

(cons 'Hello (list 'World))))

NGNG
#include <stdio.h>
void main(void)

{

　char *message[] = {"Hello ", "World"};

　int i;
for(i = 0; i < 2; ++i)

　printf("%s", message[i]);

　printf("\n");

}

70名無しさん＠お腹いっぱい。
垢版 |
NGNG
C:\>echo Hello World
Hello World

C:\>

逝ってきます。
NGNG
#include <iostream.h> #include <string.h> class string
{
private:
int size;
char *ptr;
public:
string() : size(0), ptr(new char('\0')) {}
string(const string &s) : size(s.size)
{
ptr = new char[size + 1];
strcpy(ptr, s.ptr);
}
~string()
{
delete [] ptr;
}
friend ostream &operator <<(ostream &, const string &);
string &operator=(const char *);
};

ostream &operator<<(ostream &stream, const string &s)
{
return(stream << s.ptr);
}
string &string::operator=(const char *chrs)
{
if (this != &chrs)
{
delete [] ptr;
size = strlen(chrs);
ptr = new char[size + 1];
strcpy(ptr, chrs);
}
return(*this);
}
int main()
{
string str;
str = "Hello World";
cout << str << endl;
return(0);
}

NGNG
#!/usr/local/bin/perl
$msg="Hello, world.\n";
if ($#ARGV >= 0) {
while(defined($arg=shift(@ARGV))) {
$outfilename = $arg;
open(FILE, ">" . $outfilename) || die "Can't write $arg: $!\n";
print (FILE $msg);
close(FILE) || die "Can't close $arg: $!\n";
}
} else {
print ($msg);
}
1;
NGNG
PROGRAM HELLO
PRINT *, 'Hello World'
END
NGNG
どれがいいと思う？
ヲレ的には いにしえのRPG言語が良いのじゃ
75Z80
垢版 |
NGNG
　LD　　HL,MSGTBL
　CALL　PRINTOUT

サブルーチンの中は考えてません（ダメ？）。
NGNG
#include <syslog.h>
int main()
{
syslog(LOG_INFO|LOG_USER, "ALL YOUR BASE ARE BELONG TO US.");
return 0;
}
NGNG
>>76
それ、「Hello World」なのか？
78名無しさん＠お腹いっぱい。
垢版 |
NGNG
>>29
最後の CALL は JP にしとこうよ。

OS-9 + MC680x0 きぼん。
79名無しさん＠お腹いっぱい。
垢版 |
NGNG
#!/usr/local/bin/ruby
print [72, 101, 108, 108, 111, 32, 87, 111, 114, 108, 100, 10].pack("C*")

# Just Another Perl Hacker みたいだね
80x86 ASM
垢版 |
NGNG
x86+MS-DOS+Debug.exe (tested on Win98)

-a cs:0
24E1:0000 0E PUSH CS
24E1:0001 1F POP DS
24E1:0002 BA0E00 MOV DX,000E
24E1:0005 B409 MOV AH,09
24E1:0007 CD21 INT 21
24E1:0009 B8014C MOV AX,4C01
24E1:000C CD21 INT 21

-e cs:e
24E1:000E 54.48 68.65
24E1:0010 69.6c 73.6c 20.6f 70.2c 72.20 6F.57 67.6f 72.72
24E1:0018 61.6c 6D.64 20.0d 63.0a 61.0a 6E.24 6E.0
-g
Hello, World


プログラムは正常に終了しました.
-
81名無しさん＠お腹いっぱい。
垢版 |
NGNG
as(FreeBSD+x86) maybe required i386 or later.

.text
　　　　pushl　 $0x0c
　　　　pushl　 $msg
　　　　pushl　 $0x1
　　　　pushl　 $0x4
　　　　movl　　$0x4,%eax
　　　　int　　 $0x80
　　　　subl　　$-0x10,%esp

　　　　xorl　　%ebx,%ebx
　　　　xorl　　%eax,%eax
　　　　incl　　%eax

　　　　pushl　 %ebx
　　　　pushl　 %eax
　　　　int　　 $0x80

msg:　　.asciz　"Hello, World\n"
NGNG
$ echo vaka | sed -e 's/vaka/Hello World/'
83名無しさん＠お腹いっぱい。
垢版 |
NGNG
% wget ftp://ftp.gnu.org/gnu/hello/hello-1.3.tar.gz
% tar zxfv hello-1.3.tar.gz ; cd hello-1.3
% ./configure ; make ; make install ; rehash
% hello
NGNG
>>83
むぅ冗談かと思ったら。一体何をするプログラムだ??
NGNG
>>84
Hello Worldはプログラムを習い始めてまず作らされます。
毎年、数百万ステップものHello Worldプログラムが作られ
再利用することも無く捨てられていきます。
まったく、資源の無駄としか言いようが無く、GNUの精神にも
真っ向から挑戦しています。
この不毛な人的リソース消費に終止符を打つため、より正しい
Hello Worldプログラムのソースをフリーソフトとして公開します。
86名無しさん＠お腹いっぱい。
垢版 |
NGNG
>>81
もっと短くなるよ
コンパイラが吐いたソースそのままじゃoもろくない
NGNG
>>86
それは、
　　　　movl　　$0x4,%eax
　　　　pushl　 %eax
とした方がバイト数減らせるとか？
ちなみに、これはコンパイラが吐いたソースではないよ。
普通にhello.Sでかいてま。教えてplease.
88名無しさん＠お腹いっぱい。
垢版 |
NGNG
printk(KERN_EMERG "Hello, World!\n");
machine_halt();
do_exit(0);
89名無しさん＠お腹いっぱい。
垢版 |
NGNG
(message-box (mapconcat 'char-to-string '(72 101 108 108 111 32 87 111 114 108 100) ""))

(message-box (prin1-to-string '(Hello Wold)))
90名無しさん＠お腹いっぱい。
垢版 |
NGNG
>>84
ttp://www.gnu.org/software/hello/hello.html

# apt-get install hello
# hello
Hello, world!
91名無しさん＠お腹いっぱい。
垢版 |
NGNG
# auto-apt run
# hello
92CCルリたん。
垢版 |
NGNG
<HTML>
<TITLE>
Hello World
</TITLE>
<BODY>
Hello World
</BODY>
</HTML>
93awk
垢版 |
NGNG
ちがう >>21
#!/usr/bin/awk
BEGIN{
　print "Hello World";
}
94WRD
垢版 |
NGNG
@STARTUP(400)@WMODE(5)@TON(2);
@LOCATE(3;29)@COLOR(37)@WAIT(8);
Hello World.
NGNG
# /ver/qmail/bin/qmail-inject
to: [email protected]
hello world
ctrl + d

ををっ！なぜか師匠に差出人不明のメールが...
NGNG
>>95
クン・・・
まぁ、Ｌｉｎｕｘって便利なようね。。。

# /ver/qmail/bin/qmail-inject
to:[email protected]
"hello world"
ctrl + d
"give_me_UPS_to_use_AS/400"
ctrl + d
ctrl + z

クーン，クンクン
97CCルリたん。
垢版 |
NGNG

ruri% wall Hello World
NGNG
\documentclass{jarticle}
\begin{document}
Hello World
\end{document}
99VAX DCL
垢版 |
NGNG
$ WRITE SYS$OUTPUT "Hello World"
$ EXIT

100名無しさん＠お腹いっぱい。
垢版 |
NGNG
<TITLE>
Hello World in JavaScript
</TITLE>
<SCRIPT>
document.write ("Hello, world!")
</SCRIPT>
101てーぎふ
垢版 |
NGNG
%TGIF 4.1.16
state(0,37,100.000,0,0,0,16,1,9,1,1,0,0,1,0,1,0,'Courier',0,80640,0,0,0,10,0,0,1,1,0,16,0,0,1,1,1,1,1088,1408,1,0,2880,0).
%
% @(#)$Header$
% %W%
%
unit("1 pixel/pixel").
script_frac("0.6").
fg_bg_colors('black','white').
page(1,"",1,'').
text('black',16,3,1,0,1,99,16,0,13,3,0,0,0,0,2,99,16,0,0,"",0,0,0,0,16,'',[
minilines(99,16,0,0,0,0,0,[
mini_line(99,13,3,0,0,0,[
str_block(0,99,13,3,0,-1,0,0,0,[
str_seg('black','Courier',0,80640,99,13,3,0,-1,0,0,0,0,0,
"Hello World")])
])
])]).
102Y2k
垢版 |
NGNG
#include<stdio.h>
void main()
int a=0;
{
while(1)
{
printf("%d\n",a);
a++;
}
}
103名無しさん＠お腹いっぱい。
垢版 |
NGNG
>>102
ハァ?
NGNG
>>102はあほです。
ゆるいしてやってください。
void
105PL/I
垢版 |
NGNG
HW: PROC OPTIONS (MAIN);
　　　PUT SKIP LIST ('Hello World');
END HW;
106???????????????B
垢版 |
NGNG
test
\
107PostScript
垢版 |
NGNG
%!PS-Adobe-3.0 EPSF-3.0
%%Creator: 2ch-net
%%Pages: 1
%%DocumentFonts: Times-Roman
%%LanguageLevel: 2
%%EndComments

%%BeginProlog
/Hello {
　/Times-Roman findfont 10 scalefont setfont
　moveto
　(Hello, World) show
} def
%%EndProlog

[{
%%BeginFeature: *PageSize A4
　　mark { statusdict /a4tray get exec } stopped pop
　　userdict /a4 get exec cleartomark
%%EndFeature
} stopped cleartomark

%%Page: 1 1
200 200 Hello
showpage

%%Trailer
%%Pages: 1
%%EOF
108Prolog
垢版 |
NGNG
main:-write('Hello, World.'),nl.
109韓国語
垢版 |
NGNG
あにょはせよ
NGNG
>>102
void ､ﾊ､ﾎ､ﾏ､ｭ､ﾟ､ﾎﾆｬ､ﾀ
111Smalltalk
垢版 |
NGNG
Transcript show:'Hello World';cr
NGNG
「日本語Mind」って、↓こんな感じでしたっけ

メインとは、
　"Hello, world!"を表示し、
　終了する。
すること。
113初心者です
垢版 |
NGNG
/* HelloWorld.java */
import java.awt.*;

public class HelloWorld extends Frame {
public static void main( String argv[] ) {
HelloWorld helloWorld = new HelloWorld("4月30日版　");
helloWorld.show();
}

HelloWorld(String title){
super(title);
setSize(400, 200);
setLayout(null);
this.setBackground(Color.magenta);

Label label = new Label("アンニョンハセヨ セゲー");
label.setLocation(20, 50);
label.setSize(200, 50);
label.setBackground(Color.yellow);
this.add(label);
}
}
114名無しさん＠お腹いっぱい。
垢版 |
NGNG
echo "Hello World" > /etc/motd

115名無しさん＠お腹いっぱい。
垢版 |
NGNG
>>114
ガイシュツ
NGNG
>>115 どこ？
NGNG
とりあえず、ソースに「Hello, World」を直接書くのは反則にしない？
118login:Penguin
垢版 |
NGNG
優良！
NGNG
>>117
了解！
NGNG
>>117 を踏まえて。。。

C:\>copy con a.txt
Hello World!
^Z
1 個のファイルをコピーしました。

C:\>type a.txt
Hello World!

C:\>

逝ってきます。。。
NGNG

$ smbclient -M YOUR_WINDOWS_CLIENT_NAME
(snip)
Connected. Type your message, ending it with a Control-D
Hello! World
(Ctrl-D)
sent 14 bytes
$

122sed
垢版 |
NGNG

$ sed -r 'a\
Hello! World
'

リターンキーがポイント
NGNG

誰かAppleScriptお願い・・・
124age
垢版 |
NGNG
age
■ このスレッドは過去ログ倉庫に格納されています
ニューススポーツなんでも実況