トップページ⇒linux
634コメント146KB

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

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


#include <stdio.h>
int main()
{
printf("Hello World\n");
return (0);
}
0166名無しさん＠お腹いっぱい。NGNG
WScript.Echo("Hello World!");
0167名無しさん＠お腹いっぱい。NGNG
>>159
> >>157 それをいうなら「キシュツ」だろ。
２ちゃんねる用語で"キシュツ"ってあるんだよ。
まー、最初は読み間違いから始まったんだけどな。
ＦＡＱ読んでみろ。 http://www.2ch.net/guide/faq.html
0168１６７NGNG
>>167
> ２ちゃんねる用語で"キシュツ"ってあるんだよ。
ガイシュツ だ。鬱死。
0169これ以上さむくしないでNGNG
>>167
0170さらなる活用形NGNG
既出 → ガイシュツ → 外出 → 帰宅 → キタク

てことで、これからは「キタク」と言いましょう。
0171login:PenguinNGNG
>>17
ｲﾔﾃﾞｽ｡｡
0172login:PenguinNGNG

メインとは
"Hello world."を 表示し
スタック検査。
0173名無しさん＠こんにちは世界NGNG
$ su
Password:
# cd /sys/i386/conf
# cp GENERIC HOGE
# vi HOGE
# grep ident HOGE
ident Hello_World
# config HOGE
# cd ../../compile/HOGE
# make depend && make && make install && reboot
-----------------------------------------------------
(login)
FreeBSD/i386(hoge)(ttyv1)

login:hoge
Password:
Last login: Thu Jun 14 01:09:42 from 10.20.774.3
Copyright (c) 1980, 1983, 1986, 1988, 1990, 1991, 1993, 1994
The Regents of the University of California. All rights reserved.

FreeBSD 4.3-RELEASE (Hello_World) #0: Sat Apr 21 10:54:49 GMT 2001
bash-2.05$
0174login:PenguinNGNG
disp "Hello world.".
0175TeraTermLanguageNGNG
connect 'sunsite.sut.ac.jp:80'
sendln 'GET /java/tutorial/getStarted/application/index.html'

Hello World Applicationというページだから、どっかに表示されてると思う。
0176login:PenguinNGNG
org 100h
mov dx,offset msg
mov ah,09h
int 21h
mov ax,4c00h
int 21h
:msg
db 'Hello World'
0177176NGNG
おっと、>>80でがいしゅつだった
0178AnonymousNGNG
>>176-177
dosの.asm(masm?)とは燻し銀じゃ
0179台本スクリプトNGNG
｛｝の間を削除せよ

｛楠田｝こんにちは｛楠田枝里子デ〜ス
　愛川　司会の愛川欽也です
　（略）
　両者　な〜るほど、ザ、｝ワールド！｛
　愛川　春の祭典スペッシャ〜ル｝
0180Graffitti(R)NGNG
メモ帳(Memo)ボタンを押す
[h][逆向きの3][L][L][o][.][/(上から)][−(左から)]
[w][o][R(一筆書きで)][L][o(下から始め時計回り)][.][↑(上へ線を引く)]
0181sageNGNG
最後に
[/(上から)]
0182携帯電話メール(J-phone)NGNG
大文字英字モードにする
4433555右555666################右右96667775553

「!」が長いゾ
0183>>179NGNG
% awk -v RS='{.*}' -v ORS="" 1
{楠田}こんにちは{楠田枝里子デ〜ス
　愛川　司会の愛川欽也です
　（略）
　両者　な〜るほど、ザ、}ワールド！{
　愛川　春の祭典スペッシャ〜ル}
CTRL-D
0184login:PenguinNGNG
Oracle iDevelop 2000 で講師曰く，Oracle Portal 用 Portlet で Hello World
プログラムを書くと 300 行以上になるが，おそらく世界最長の Hello World だろう
だそうな。

実際にソース見たら，ほとんどイベント処理。VC++ のスケルトンよりも長い。
0185login:PenguinNGNG
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
0186login:PenguinNGNG
↑の For 分の次は
c = a(i) - (c <> 0) * c
という手もあるな。
0187login:PenguinNGNG
ウゲ，字間違えた。
For 分→For 文。
鬱だ志乃う。
0188login:PenguinNGNG
12345678901234567890
Hello World

11文字より短く出来るんだろうか？
0189standard pascalNGNG
program hello(output);

begin
　writeln( "Hello World." )
end.

あってるよな？
0190AppleScriptNGNG
display dialog "Hello World!"
0191HyperCardNGNG
put "Hello World!"
0192ありがとう183NGNG
　H,Es,La,Li,O,W,Os,Ra,Lu,Dy

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

　このカンマ区切りの元素記号を記号単位に解釈し、最終的に
Hello! World を導くスクリプトを示せ。
0193192NGNG
などとイテミル。（←弱気）
0194>>192NGNG
echo 'H,Es,La,Li,O,W,Os,Ra,Lu,Dy' | tr -cd A-Z
0195login:PenguinNGNG
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%
0196パワポNGNG
Sub HelloWorld()
ActivePresentation.Slides(1).Shapes.AddLabel(msoTextOrientationHorizontal, 100, 100, 60, 150).TextFrame.TextRange.Text = "Hello World"
End Sub
0197秀まろNGNG
insert "Hello World";
0198login:PenguinNGNG
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
0199Human68kNGNG
　pea　　msg
　.dc.w　$ff09
　addq.l　#4,sp
　.dc.w　$ff00
msg:
　.dc.b　"Hello, World",0
0200login:PenguinNGNG
>>194
case sensitiveで頼むよ。
0201zilog insideNGNG
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,'$'
0202zilog insideNGNG
しまった。 >>29 で激しくガイシュツであった…
しかも system-reset で CP/M に戻ってるし。
0203login:PenguinNGNG
>>198 の改訂版。

Sub HelloWorld()
　　Const c As Long = 167478560
　　Dim a As Long
　　Dim p As Long
　　Dim q As Integer
　　Dim n As Integer

　　p = 1622817408
　　n = 112
　　While p > 0
　　　　p = Int(p / 8)
　　　　q = p Mod 8
　　　　a = c Mod 16 ^ (q + 1)
　　　　n = n + (a - c Mod 16 ^ (q - (q = 0))) / 16 ^ q - 8
　　　　Debug.Print Chr(n + (((n - 104) Mod 15) = 0) * 32 + (q = 6) * 80);
　　Wend
End Sub
0204203NGNG
あ，13 行目と 14 行目を
n = n + (c Mod 16 ^ (q + 1) - c Mod 16 ^ (q - (q = 0))) / 16 ^ q - 8
とまとめれば，変数 a は不要でした。
0205login:PenguinNGNG
(q - (q = 0)) は Sgn(q + 1) * q にすることも可。
>>203 の (q = 6) は (-Int(q / 6)) にすることも可。
比較演算子っていんちきくさいじゃん。なんとなく。
スレ違いかも。
0206194=183NGNG
>>200
ムチャゆーな。
そういうキミには >>183 を英語で出力するよう修正願おう。
0207login:PenguinNGNG
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"
0208207NGNG
スマソ。LINUX板だった。
0209いいんじゃねぇ〜のNGNG
>>208
いいんじゃね〜の
10 print "Hello World"
20 goto 20
っていうのも出てるし（藁
0210login:PenguinNGNG
>>207
だせっ、バグバグじゃん。そのプログラムは何番地に格納されんだよ。
LDIRぐらい使えよ。
0211ルーク、forthだ、forthを使えNGNG
: MAIN
　　　　"Hello World" SPRINT ;
0212login:PenguinNGNG
hello:-write('Hello World'),nl.
0213login:PenguinNGNG
>>212
そのProlog、おもいっきりガイシュツです
0214login:PenguinNGNG
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
0215login:PenguinNGNG
>>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

って感じかな？
0216nanashiNGNG
>>209
それっておもいっきりLinuxねた。
"Just for Fun "(P.31)
0217login:PenguinNGNG
>>215
おーい、だからさ
>>210 氏が指摘してるようにブロック転送命令使えってばよぅ。
0218217NGNG
あ、すまん、使ってたな。しかも不定長に対応だな
一滴マス
0219210NGNG
>>218
いやいや、不定長つうたって文字列なら結局は固定長でしょ。
で、何も文字列の最後にターミネタ（0）じゃなくとも、文字列の頭に文字数でもいいわけでさ。
PASCALなんてそうだっけ？（オレはターパスしかしらんけど）
で、文字数があればちゃんとLDIRが使えるわけ。
Z80なんて速度遅いわメモリ少ないわで、さまざまなノウハウがあるわけよ。
ま、>>207は何よりBレジが痛いんだけどね。
全然LINUX板ネタじゃないんで、もう逝くよ。
0220218NGNG
かえってきました

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

誰か自己書き換えとかスタックポインタいじるとかして処理してーん(とかいってみる)。
また一滴マス。
0221名無しNGNG
変数使ってみました。ちょいインデントが不安。
public class Hello
{
　　public static void Main(string[]args)
　　{
　　　　string a="Hello World";
　　　　System.Console.WriteLine(a);
　　}
}
0222login:PenguinNGNG
with io;
package body helloworld is

use io;

begin -- main
　　put("Hello World");
　　new_line;
end helloworld;
0223login:PenguinNGNG
>>222
これＰＡＳＣＡＬ？
0224login:PenguinNGNG
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
0225login:PenguinNGNG
>>218
同じようなことを N88-BASIC の DRAW 命令でやろうとしたけどリファレンスが
なくて断念。ダセッ<俺。
0226login:PenguinNGNG
'# hello.vbs で保存してダブルクリック
dim EXL
set EXL=WScript.CreateObject("Excel.Application")
EXL.Workbooks.Add
EXL.Cells(1,1).Value="Hello World"
EXL.Visible=True
0227225NGNG
間違えた，スマソ。
>218 は >214 が正解。
0228login:PenguinNGNG
>>223
おそらくAdaではないかと思われ。
ロートル国防省からの刺客?
0229login:PenguinNGNG
dialog "Hello world",0,"hogehoge"
0230login:PenguinNGNG
Basic09 きぼーーんぬ
0231名無しさん＠お腹いっぱい。NGNG
アセンブラでお願いします
0232login:PenguinNGNG
>>231
既に出ているが、何か？
0233login:PenguinNGNG
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のポイントのゴールはイワツバメが彼が行ったことを行ってはならなかったと
単に強調すること次のとおりです:これは受理可能ではありません。なんちゃって
0234login:PenguinNGNG
10 "Hellow world" /
20 #=10
0235login:PenguinNGNG
$ cat Hello\ World
echo $0

色々問題があるが。
0236Modula-2NGNG
MODULE Hello;

FROM InOut IMPORT WriteString, WriteLn;

BEGIN
　WriteString('Hello, world.');
　WriteLn();
END Hello.
0237Basic-09 >>230NGNG
PROCEDURE Hello
(* This is a sample of Basic09 *)
(* usage: RunB("Hello") *)

　print #1, "Hello, world"
end
0238hello.tclNGNG
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
0239hello.vlNGNG
module main();
initial begin
$display("Hello,world");
$finish;
end
endmodule
0240login:PenguinNGNG
倉庫入りしそうじゃねーか、ゴルァ age
0241login:PenguinNGNG
倉庫入りは下げでﾚｽしても阻止できるぞ
0242login:PenguinNGNG
age
0243login:PenguinNGNG
>>11
これのどこがまずいの？
0244login:PenguinNGNG
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
begin
write('Hello,World!');
end.
0245login:PenguinNGNG
<HTML>
<B>Hello,world</B>
</HTML>
0246login:PenguinNGNG
#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;
}
0247login:Penguin01/08/28 12:50ID:1oArpc0c
age
0248login:Penguin01/08/28 16:13ID:jaPRCAI6
ぼんじゅーる。るもんど。
0249login:Penguin01/08/29 01:24ID:ZjU6i9ug
long lMsg[ 6][ 2] = {
0x00012024L, 0x00420015L,
0x00712724L, 0x0072D395L,
0x00892fBCL, 0x004A3455L,
0x068920A4L, 0x004A1455L,
0x02712724L, 0x0072138AL,
0x00000000L, 0x00000000L
};

why2次元。
0250login:Penguin01/08/29 01:32ID:ZjU6i9ug
(setq msg "Hello World")
(message msg)

echo "既出だったらごめんね"
0251login:Penguin01/08/29 07:02ID:uBl.KZOo
48 65 6C 6C 6F 20 57 6F 72 6C 64

これじゃ駄目？
0252既出か？01/08/29 07:27ID:c59II4ig
\documentstyle[a4j]{jarticle}
\begin{document}
\noindent
Hello World.
\end{document}
0253login:Penguin01/08/29 12:31ID:SDRDaKDc
GLOBAL DRAWING MODULE hello();

BEGINMODULE

text (#1, vec (0, 0), 0, "Hello World": tsize=50, tslant=0);
ENDMODULE
0254login:Penguin01/08/29 12:58ID:fnFRaVHc
SNDBRKMSG MSG('HELLO WORLD') TOMSGQ(*ALLWS)
0255login:Penguin01/08/29 13:53ID:SmuEce8k
int init_module(void)
{
printk("<1>Hello World\n");
return 0;
}
0256コブラ01/08/31 01:33ID:Ihpm/akI
(defun hw(msg)
(if (null msg) 'nil
(princ msg)))

(hw '(Hello World))

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

(hw2)
0257　01/08/31 01:44ID:p7lv3A8E
これはもう出た？

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

Hello:
echo "HelloWorld"
-------------
make
0258login:Penguin01/08/31 02:28ID:kzmx.r22
module hello;
initial $display("Hello, World!!");
endmodule
0259日本語01/08/31 03:21ID:k4XBpcQ6
こんにちは世界
0260ひまわり01/08/31 06:00ID:ZltyaOwY
ヒネリが無いぞ >>259


「こんにちは世界」と、言う。
0261既出ならすんまそん。01/08/31 06:43ID:200uXQHQ
DECLARE
/*オラクルのPL/SQLだ。*/
BEGIN
DBMS_OUTPUT.PUTLINE("Hello World !!");
END;
/
0262各無しさん＠Ｅｍａｃｓ01/09/01 00:36ID:/qbYDcAI
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
0263各無しさん＠Ｅｍａｃｓ01/09/02 23:05ID:tNGvVpZM
(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" "")
0264login:Penguin01/09/03 02:07ID:jDGRRFRM
cat <<EOF | mail -s 脅迫 [email protected]
あのことは誰にもいいません。そのかわり、わがままかも
しれませんが、お願いがあるのです。本番中に3回まわって、
「Hello World」
と絶叫していただきたいのです。今月中に実行してください。
ご無理なようでしたら結構です。奥様にすべて打ち明ける
覚悟はしております。
かしこ。
EOF
0265login:Penguin01/09/03 10:21ID:5UuSjmvg
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

かっこ悪いですか？
0266ABAPNGNG
REPORT ZSAPEDIT.

write 'Hello, World'.
■ このスレッドは過去ログ倉庫に格納されています