探検

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

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


#include <stdio.h>
int main()
{
printf("Hello World\n");
return (0);
}
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
1258086
垢版 |
NGNG
mov ah, 9
mov dx, msg
int 21h
ret
msg db 'Hello World!$'
126PL/SQL block
垢版 |
NGNG
begin
dbms_output.put_line('Hello World!');
end;
/
127訂正
垢版 |
NGNG
>>125
8086 + MS-DOS
128http
垢版 |
NGNG
% telnet webserver 80
GET /helloworld.txt HTTP/1.0

以下略
129秀丸
垢版 |
NGNG
message "Hello World!";
130Tcl/Tk
垢版 |
NGNG
% puts "Hello World"
Hello World
% button .a -text "Hello World" -command {puts "Hello World"}
.a
% pack .a

＃好きなだけ押してくれ。
131login:Penguin
垢版 |
NGNG
echo "uryyb, jbeyq" | /usr/games/rot13
132login:Penguin
垢版 |
NGNG
navigator http://www.seri.sakura.ne.jp/~panda/ecg/ecg056.jpg
1331行野郎
垢版 |
NGNG
wget -q -O - http://cocoa.2ch.net/linux/dat/986981055.dat | awk -F, '{$0=$4;gsub(/<[^>]*|&[a-z]+;/,"");gsub(/[^A-Za-z ]/,"\n");gsub(/\<\w\>/,"");print}' | grep '\w' | sort | uniq -c | sort -nr | awk 'NR==1{$1="";print}'
134133
垢版 |
NGNG
w3mの方が簡単だった。read.cgiってwgetのアクセスを拒否するのね。
w3m -dump 'http://cocoa.2ch.net/test/read.cgi?bbs=linux&key=986981055' | awk -F\[\"\'\] '{print $2}' | sort | uniq -c | sort -nr | awk 'NR==2{$1="";print}'
NGNG
# 事前に尻尾のスイッチを引いてBluetoothを活性化しておくこと
% tmtp doraemon.cat.robo 2173
Connected to tmtp.doraemon.cat.robo in year 2173.
220 tmtp.doraemon.cat.robo Time Machine Server (Version 1.5) Ready.
User (tmtp.doraemon.cat.robo(sewashi)): nobita
Password:
230 Konnichiwa, boku doraemon desu.
tmtp> set lang=en
200 SET command successful.
tmtp> HELO World
200 Hello World!
tmtp>
136HTML
垢版 |
NGNG
<FORM method=POST action="hoge/bbs.cgi">
<input type=submit value="書き込む" name="submit">
名前：<INPUT TYPE=text NAME=FROM SIZE=19 VALUE=名無しさん＠お腹いっぱい。>
E-mail（省略可）：<INPUT TYPE=text NAME=mail SIZE=19 VALUE=sage>
<TEXTAREA rows=5 cols=70 wrap=OFF name=MESSAGE value="Hello! World"></TEXTAREA>
<INPUT type=hidden name=bbs value=linux>
</FORM>
137名無しさん＠お腹いっぱい。
垢版 |
NGNG
sa
NGNG
// helloworld.asmx
<%@ WebService Language="C#" class="HelloWorld" %>
using System;
using System.Web.Services;

public class HelloWorld {
　　[WebMethod]
　　public String HelloService() {
　　　　return "Hello World";
　　}
}
139あなたも億万長者をめざしませんか?
垢版 |
NGNG
http://www2.csc.ne.jp/~cym10262/
NGNG
１３９　は　　ブラクラです
141汎用機マンセー
垢版 |
NGNG
//JOB
/*MESSAGE HELLO WORLD
//DUMMY EXEC PGM=JDJDUMMY
//
NGNG
>>141
おまえ●立 汎用機か？
143141
垢版 |
NGNG
>>142
日●汎用機だが、何か？
ってかそれがわかる時点でｵﾏｴﾓﾅｰ
144Winおばさん厨
垢版 |
NGNG
>>143
おばさんにはそんなのわかんないよ。
SHなら少しはわかるけど。すうぱぁＨだべ？
145scripter
垢版 |
NGNG
#!/bin/csh -f
echo "Hello World"
146ドラえもん
垢版 |
NGNG
本当のscripterならこれだろ

#!/bin/sh
echo "Hello World"
147login:Penguin
垢版 |
NGNG
FCB 3F,??
FCB 'H','E','L','L','O',' ','W','O','R','L','D',00
??のところは覚えなし
NGNG
>>146
おしい！ >>4で既出
149名無しさん＠Ｅｍａｃｓ
垢版 |
NGNG
% emacs -f view-hello-file
150ひねくれもの
垢版 |
NGNG
% vi hello.c
% cc -c hello.c
% strings hello.o
151Makefile
垢版 |
NGNG
ALL:
@echo "Hello, World!"
152scripter
垢版 |
NGNG
hoge@root[~](1036)>cat aa.awk
{
printf("Hello World \n");
}
hoge@root[~](1037)>echo |awk -f aa.awk
Hello World
　　…かなり無理が…
NGNG
>>152 root を常用するのはやめれ(w

/var/qmail/control/me に World と書いてメールを出すと、
相手方のメールサーバに

HELO World

と名乗るかもしれんが確かめてない。

postfix なら myhostname = World
sendmail ならばこうかな？（自信なし）
DwWorld
Dj$w

# あ、でも HELO じゃなくて EHLO だな。
154おく
垢版 |
NGNG
>>152

% cat bb.awk
BEGIN{printf("Hello World\n");}

% awk -f bb.awk
Hello World
155bash
垢版 |
NGNG
$ PS1="Hello World"
Hello World
156scripter(152)
垢版 |
NGNG
>>154
うまい。１本とられた。。。
NGNG
>>156 サブぅ
とっくのガイシュツ >>93
NGNG
echo Hello | awk -v ORS=" World\n" 1
159おまえもな
垢版 |
NGNG
>>157 それをいうなら「キシュツ」だろ。
NGNG
ただ今外出中。
NGNG
>>159
新鮮だな・・・
NGNG
>>159 「おまえもな」それをいうなら。
　　　　 ∧＿∧
　　　　（　´∀｀） おまえもな → オマエモナー → モナー
　　　　（　　　　）
　　　　｜ ｜　|
　　　　（_＿）＿）

http://www.2ch.net/faq.html#D4
http://shake-hip.com/niwatori/#gaisyutu
http://shake-hip.com/niwatori/#mona
NGNG
>>159
うん。いいね。

164login:Penguin
垢版 |
NGNG
Linuxのアセンブラで
Hello,world!
って画面の左上に表示させるのってどうするの？
■ このスレッドは過去ログ倉庫に格納されています
ニューススポーツなんでも実況