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

それじゃ俺が知っている C からだ。
皆も知ってる言語・スクリプトで続けてくれ！


#include <stdio.h>
int main()
{
printf("Hello World\n");
return (0);
}

% awk -v RS='{.*}' -v ORS="" 1
{楠田}こんにちは{楠田枝里子デ〜ス
　愛川　司会の愛川欽也です
　（略）
　両者　な〜るほど、ザ、}ワールド！{
　愛川　春の祭典スペッシャ〜ル}
CTRL-D

Oracle iDevelop 2000 で講師曰く，Oracle Portal 用 Portlet で Hello World
プログラムを書くと 300 行以上になるが，おそらく世界最長の Hello World だろう
だそうな。

実際にソース見たら，ほとんどイベント処理。VC++ のスケルトンよりも長い。

Sub Main()
Dim a As Variant
Dim c As Integer
Dim i As Integer

a = Array(72, 29, 7, 0, 3, -79, 55, 24, 3, -6, -8, -87, -3)
For i = 0 To UBound(a)
c = IIf(i, c + a(i), a(0))
Debug.Print Chr(c);
Next
End Sub

↑の For 分の次は
c = a(i) - (c <> 0) * c
という手もあるな。

ウゲ，字間違えた。
For 分→For 文。
鬱だ志乃う。

12345678901234567890
Hello World

11文字より短く出来るんだろうか？

program hello(output);

begin
　writeln( "Hello World." )
end.

あってるよな？

display dialog "Hello World!"

put "Hello World!"

　H,Es,La,Li,O,W,Os,Ra,Lu,Dy

（水素、アインスタニウム、ランタン、リチウム、酸素、
　タングステン、オスミウム、ラジウム、ルテチウム、
　ジスブロシウム）

　このカンマ区切りの元素記号を記号単位に解釈し、最終的に
Hello! World を導くスクリプトを示せ。

などとイテミル。（←弱気）

echo 'H,Es,La,Li,O,W,Os,Ra,Lu,Dy' | tr -cd A-Z

2ch% gst

"Major GC flip... done, used space = 62%"
GNU Smalltalk Ready

"Hello World" printNl!
st> stdin:1: Undefined variable printNl referenced
'Hello World' printNl!
st>
Execution begins...
'Hello World'
returned value is nil
1155 byte codes executed
which took 0.001 seconds, giving 1155000 bytecodes/sec
90 primitives, percent 7.79
self returns 5, inst var returns 2, literal returns 6
101 method cache lookups since last cleanup, percent 8.74
45 method cache hits, 56 misses, 44.55 percent hits
2ch%

Sub HelloWorld()
ActivePresentation.Slides(1).Shapes.AddLabel(msoTextOrientationHorizontal, 100, 100, 60, 150).TextFrame.TextRange.Text = "Hello World"
End Sub

insert "Hello World";

Sub HelloWorld()
Dim a As Variant
Dim p As Long
Dim i As Integer
Dim n As Integer

p = 1625176704
n = 112
a = Array(0, 2, 5, 8, 11, 15, 16, 8)
While p > 0
p = Int(p / 8)
n = n + a(p Mod 8) - 8
Debug.Print Chr(n + (((n - 104) Mod 15) = 0) * 32 + ((p Mod 8) = 7) * 79);
Wend
End Sub

>>194
case sensitiveで頼むよ。

ORG 0100H
SYSTEM EQU 0005H
STROUT EQU 09H
CR EQU 0DH
LF EQU 0AH

ORG 0100H
LD DE,MSG
LD C,STROUT
CALL SYSTEM
RET

MSG: DEFM 'Hello World'
DEFB CR,LF,'$'

しまった。 >>29 で激しくガイシュツであった…
しかも system-reset で CP/M に戻ってるし。

あ，13 行目と 14 行目を
n = n + (c Mod 16 ^ (q + 1) - c Mod 16 ^ (q - (q = 0))) / 16 ^ q - 8
とまとめれば，変数 a は不要でした。

(q - (q = 0)) は Sgn(q + 1) * q にすることも可。
>>203 の (q = 6) は (-Int(q / 6)) にすることも可。
比較演算子っていんちきくさいじゃん。なんとなく。
スレ違いかも。

>>200
ムチャゆーな。
そういうキミには >>183 を英語で出力するよう修正願おう。

PC-8801
VRAMの先頭アドレスってC000Hからで合ってたっけ？

LD HL,0C000H
LD BC,#MSG

LD B,11

LOOP:
LD A,(BC)
LD (HL),A
INC HL
INC BC
DJNZ LOOP

.data
MSG: DC "HELLO WORLD"

スマソ。LINUX板だった。

>>208
いいんじゃね〜の
10 print "Hello World"
20 goto 20
っていうのも出てるし（藁

>>207
だせっ、バグバグじゃん。そのプログラムは何番地に格納されんだよ。
LDIRぐらい使えよ。

hello:-write('Hello World'),nl.

>>212
そのProlog、おもいっきりガイシュツです

to hello
cs hideturtle home penup
lt 90 fd 100 rt 90
pendown fd 40 bk 20
repeat 2 [rt 90 fd 20]
penup lt 90 fd 30 lt 180
pendown fd 20 rt 90 fd 40 repeat 3 [rt 90 fd 20]
penup bk 30 rt 90 bk 20
pendown fd 40
penup rt 90 fd 30 lt 90
pendown bk 40
penup rt 90 fd 30 lt 90
pendown repeat 4 [fd 20 rt 90]
penup rt 90 fd 30 lt 90
pendown repeat 2 [fd 40 bk 40 rt 90 fd 20 lt 90] fd 40 bk 40
penup rt 90 fd 30 lt 90
pendown repeat 4 [fd 20 rt 90]
penup rt 90 fd 30 lt 90
pendown fd 20 rt 90 fd 20
penup fd 30
pendown repeat 4 [fd 20 rt 90] fd 20 lt 90 fd 20
end

>>207
Bレジスター破壊しまくり藁


LD DE,0C000H
LD HL,#MSG

LOOP:
LD A,(HL)
OR A
RET Z
LDI
JR LOOP

.data
MSG: DC "HELLO WORLD",0

って感じかな？

>>209
それっておもいっきりLinuxねた。
"Just for Fun "(P.31)

>>215
おーい、だからさ
>>210 氏が指摘してるようにブロック転送命令使えってばよぅ。

あ、すまん、使ってたな。しかも不定長に対応だな
一滴マス

>>218
いやいや、不定長つうたって文字列なら結局は固定長でしょ。
で、何も文字列の最後にターミネタ（0）じゃなくとも、文字列の頭に文字数でもいいわけでさ。
PASCALなんてそうだっけ？（オレはターパスしかしらんけど）
で、文字数があればちゃんとLDIRが使えるわけ。
Z80なんて速度遅いわメモリ少ないわで、さまざまなノウハウがあるわけよ。
ま、>>207は何よりBレジが痛いんだけどね。
全然LINUX板ネタじゃないんで、もう逝くよ。

かえってきました

>>219
あ、なるほど。PASCAL文字列なら(そう、それはPASCAL文字列です)、文字数をBCに入
れてLDIRでおしまい、ですね。

誰か自己書き換えとかスタックポインタいじるとかして処理してーん(とかいってみる)。
また一滴マス。

>>222
これＰＡＳＣＡＬ？

set label "Hello World" at screen 0.5,screen 0.5
set border 0
set noxtics
set noytics
set xrange [0:1]
set yrange [0:1]
plot -1 notitle

>>218
同じようなことを N88-BASIC の DRAW 命令でやろうとしたけどリファレンスが
なくて断念。ダセッ<俺。

'# hello.vbs で保存してダブルクリック
dim EXL
set EXL=WScript.CreateObject("Excel.Application")
EXL.Workbooks.Add
EXL.Cells(1,1).Value="Hello World"
EXL.Visible=True

間違えた，スマソ。
>218 は >214 が正解。

>>223
おそらくAdaではないかと思われ。
ロートル国防省からの刺客?

dialog "Hello world",0,"hogehoge"

Basic09 きぼーーんぬ

アセンブラでお願いします

>>231
既に出ているが、何か？

import com.nttdocomo.ui.*;
public class HelloIJava extends IApplication implements SoftKeyListener
{
private Panel panel;
public HelloIJava(){}
public void start()
{
panel=new Panel();
panel.add(new Label("Hello !!",Label.CENTER));
panel.setSoftLabel(Panel.SOFT_KEY_1,"Quit");
panel.setSoftKeyListener(this);

Display.setCurrent(panel);
}
public void softKeyPressed(int softKey)
{
if (softKey==Frame.SOFT_KEY_1)
{
terminate();
}
}
public void softKeyReleased(int softKey){}
}
第1のポイントのゴールはイワツバメが彼が行ったことを行ってはならなかったと
単に強調すること次のとおりです:これは受理可能ではありません。なんちゃって

10 "Hellow world" /
20 #=10

$ cat Hello\ World
echo $0

色々問題があるが。

MODULE Hello;

FROM InOut IMPORT WriteString, WriteLn;

BEGIN
　WriteString('Hello, world.');
　WriteLn();
END Hello.

PROCEDURE Hello
(* This is a sample of Basic09 *)
(* usage: RunB("Hello") *)

　print #1, "Hello, world"
end

wm title . "Hello, world"
label .l -relief sunken -border 2 -text "Hello, world."
button .b -text "Bye, world." -command {exit}
pack .l -side top -padx 10 -pady 5
pack .b -side right

module main();
initial begin
$display("Hello,world");
$finish;
end
endmodule

倉庫入りしそうじゃねーか、ゴルァ age

倉庫入りは下げでﾚｽしても阻止できるぞ

age

>>11
これのどこがまずいの？

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
begin
write('Hello,World!');
end.

<HTML>
<B>Hello,world</B>
</HTML>

#include <stdio.h>

long lMsg[ 6][ 2] = {
0x00012024L, 0x00420015L,
0x00712724L, 0x0072D395L,
0x00892fBCL, 0x004A3455L,
0x068920A4L, 0x004A1455L,
0x02712724L, 0x0072138AL,
0x00000000L, 0x00000000L
};

int main( void)
{
int iLine;
int iBank;
int iBit;

long lTest = 0;

for(iLine = 0;iLine < 5;iLine++){
for(iBank = 0;iBank < 2;iBank++){
for(iBit = 0;iBit < 32;iBit++){
lTest = 1 << iBit;
if( (lMsg[iLine][iBank] & lTest) != 0){
printf( "*");
}
else{
printf( " ");
}
}
}
printf( "\n");
}
getchar();
return 0;
}

age

ぼんじゅーる。るもんど。

long lMsg[ 6][ 2] = {
0x00012024L, 0x00420015L,
0x00712724L, 0x0072D395L,
0x00892fBCL, 0x004A3455L,
0x068920A4L, 0x004A1455L,
0x02712724L, 0x0072138AL,
0x00000000L, 0x00000000L
};

why2次元。

(setq msg "Hello World")
(message msg)

echo "既出だったらごめんね"

48 65 6C 6C 6F 20 57 6F 72 6C 64

これじゃ駄目？

\documentstyle[a4j]{jarticle}
\begin{document}
\noindent
Hello World.
\end{document}

GLOBAL DRAWING MODULE hello();

BEGINMODULE

text (#1, vec (0, 0), 0, "Hello World": tsize=50, tslant=0);
ENDMODULE

SNDBRKMSG MSG('HELLO WORLD') TOMSGQ(*ALLWS)

int init_module(void)
{
printk("<1>Hello World\n");
return 0;
}

(defun hw(msg)
(if (null msg) 'nil
(princ msg)))

(hw '(Hello World))

(defun hw2()
(princ '(Hello World)))

(hw2)

これはもう出た？

Makefile
--------------
all:Hello

Hello:
echo "HelloWorld"
-------------
make

module hello;
initial $display("Hello, World!!");
endmodule

こんにちは世界

ヒネリが無いぞ >>259


「こんにちは世界」と、言う。

DECLARE
/*オラクルのPL/SQLだ。*/
BEGIN
DBMS_OUTPUT.PUTLINE("Hello World !!");
END;
/

while true;do E='Hello World.';N=1;while [ $N -le ${#E} ];do echo -n "$(echo $E|cut -b$N)";let N+=1;done;N=1;while [ $N -le ${#E} ];do sleep 1;echo -ne "\b \b";let N+=1;done;sleep 1;done

(define (script-fu-hello-world) (let* ((g (car (gimp-image-new 512 128 0)))
(r (car (gimp-layer-new g 512 128 0 "Hello World" 100 0)))
(w '(#(8 9 30 83 56 71 71 2 79 155 55 85 30 90 28 158)
#(98 94 119 60 84 58 88 140 122 104 103 118 90 62 108 66)
#(136 11 127 144 140 131) #(156 10 150 143 160 129)
#(171 66 170 120 195 137 213 76 177 66 202 89 195 119 178 112)
#(221 -14 226 155 271 70 287 152 343 -29 290 89 276 25 242 108)
#(330 57 310 113 339 133 356 67 330 58 347 81 336 113 324 103)
#(365 35 368 137 379 95 408 64 378 81) #(428 16 397 142 412 128)
#(458 76 422 98 454 115 458 143 478 15 453 105 437 105)
#(495 -20 476 159 472 140 517 -2))) (s (cons-array 32 'double)))
(gimp-image-undo-disable g) (gimp-image-add-layer g r 0) (gimp-edit-fill r 1)
(while (begin (set! c (car w)) (set! l (length c)) (> l 0)) (set! n 0)
(while (< n l) (aset s n (aref c n)) (set! n (+ n 1)))
(gimp-free-select g n s 0 1 1 8) (set! w (cdr w)))
(gimp-edit-fill r 0) (gimp-selection-clear g) (gimp-image-undo-enable g)
(gimp-image-clean-all g) (gimp-display-new g) (gimp-displays-flush)))
(script-fu-register "script-fu-hello-world"
"<Toolbox>/Xtns/Script-Fu/Misc/Hello World" "Beginner's instruction."
"2ch <age>" "2ch" "2001" "")

cat <<EOF | mail -s 脅迫 [email protected]
あのことは誰にもいいません。そのかわり、わがままかも
しれませんが、お願いがあるのです。本番中に3回まわって、
「Hello World」
と絶叫していただきたいのです。今月中に実行してください。
ご無理なようでしたら結構です。奥様にすべて打ち明ける
覚悟はしております。
かしこ。
EOF

10 CLS
20 Dim X,Y,Z
30
40 Data 1,0,0,0,1,0,1,1,1,1,1,0,1,0,0,0,0,0,1,0,0,0,0
50 Data 0,0,1,1,1,0,0,0,1,0,0,0,1,0,0,1,1,1,0,0,1,1,1
60 Data 1,0,0,1,0,0,0,0,0,1,1,1,1,0
70 Data 1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0
80 Data 0,1,0,0,0,1,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0
90 Data 0,1,0,1,0,0,0,0,0,1,0,0,0,1
100 Data 1,1,1,1,1,0,1,1,1,1,1,0,1,0,0,0,0,0,1,0,0,0,0
110 Data 0,1,0,0,0,1,0,0,1,0,1,0,1,0,1,0,0,0,1,0,1,1,1
120 Data 1,0,0,1,0,0,0,0,0,1,0,0,0,1
130 Data 1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0
140 Data 0,1,0,0,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0
150 Data 1,0,0,1,0,0,0,0,0,1,0,0,0,1
160 Data 1,0,0,0,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1
170 Data 0,0,1,1,1,0,0,0,0,1,0,1,0,0,0,1,1,1,0,0,1,0,0
180 Data 0,1,0,1,1,1,1,1,0,1,1,1,1,0,0
190 FOR Y=1 TO 5
200 FOR X=1 TO 60
210 Read Z
220 PSet(X+100,Y+100),Z
230 NEXT X
240 NEXT Y

かっこ悪いですか？

REPORT ZSAPEDIT.

write 'Hello, World'.

HELO START
OUT BUF,LEN
BUF DC "Hello World!"
LEN DC 11
RET
END

>>252
メタフォントでHello, world!
なる図形を表示させる奴書いてくれよ。
それをネタに日本語によるオリジナルなメタフォントの教科書書いてくれよ。
いま、メタフォントはなあ、
「はろーワールドすら書けないろくでなし言語」として蔑まれているんだよ。
それを救うためにはメタフォントでハローワールドしかないんだよ。

age

sageてもうた。今度こそage

>>40
showpageが抜けとるの

$ yes "Hello World"

>>77
今更だが、>>76は"ALL YOUR BASE ARE BELONG TO US."でウケを狙ったのでは
ないだろーか？
ってゆーか、このネタを知っている人は多いのだろうか？
hattenやwasabiよりは少ないような気がする。

'Hello World'!
ってSmalltalk-80以降も同じか (藁

<IMG SRC="http://www.nitroplus.co.jp/pc/hello_world/hello_new01.jpg">

PC-9801 NEC Cop
MS-DOS 1987 Ver1.0

A:\>DATE
09-11-1987 11:32

A:\>ECHO Hello!
Hello!

A:\>run word
→あなたは不正な処理をしました。再起動します。

　ゴルァ!(`へ /

$ sqlplus system/manager

SQL*Plus: Release 9.0.1.0.0 - Production on 月 Oct 1 01:17:47 2001

(c) Copyright 2001 Oracle Corporation. All rights reserved.



Oracle9i Enterprise Edition Release 9.0.1.0.0 - Production
With the Partitioning option
JServer Release 9.0.1.0.0 - Production
に接続されました。
SQL> select 'Hello World' from DUAL ;

'HELLOWORLD
-----------
Hello World

SQL> exit
Oracle9i Enterprise Edition Release 9.0.1.0.0 - Production
With the Partitioning option
JServer Release 9.0.1.0.0 - Productionとの接続が切断されました。
$

%mail mark
Hi, Mark.
I need the "Hello world" program.
Please send immediately.
.
%exit

MSX RAM 64kb Panasonic Cop
MSX-BASIC 1989

LOAD "TEST.DAT"


list[RET]

10 CLS
20 LOCATE 10 10
30 PRINT "Hello!"


He...→メインメモリが不足しております。再起動します。

　ゴルァ!(`へ /

>>272が好き

今、一応全部見たつもりなんですがネットワーク系はまだの気が？

% banner "Hello World"

$host 216.92.108.222

http://63.240.62.41/