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

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

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


#include <stdio.h>
int main()
{
printf("Hello World\n");
return (0);
}
0149名無しさん＠ＥｍａｃｓNGNG
% emacs -f view-hello-file
0150ひねくれものNGNG
% vi hello.c
% cc -c hello.c
% strings hello.o
0151MakefileNGNG
ALL:
@echo "Hello, World!"
0152scripterNGNG
hoge@root[~](1036)>cat aa.awk
{
printf("Hello World \n");
}
hoge@root[~](1037)>echo |awk -f aa.awk
Hello World
　　…かなり無理が…
0153login:Penguin NGNG
>>152 root を常用するのはやめれ(w

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

HELO World

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

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

# あ、でも HELO じゃなくて EHLO だな。
0154おくNGNG
>>152

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

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

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

0164login:Penguin NGNG
Linuxのアセンブラで
Hello,world!
って画面の左上に表示させるのってどうするの？
0165名無しさん＠お腹いっぱい。NGNG
MsgBox　"Hello World!"
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
ぼんじゅーる。るもんど。
■ このスレッドは過去ログ倉庫に格納されています