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

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

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


#include <stdio.h>
int main()
{
printf("Hello World\n");
return (0);
}
0132login:Penguin NGNG
navigator http://www.seri.sakura.ne.jp/~panda/ecg/ecg056.jpg
01331行野郎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}'
0134133NGNG
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}'
0135ドラえもん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>
0136HTMLNGNG
<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>
0137名無しさん＠お腹いっぱい。 NGNG
sa
0138C# (Web Service)NGNG
// helloworld.asmx
<%@ WebService Language="C#" class="HelloWorld" %>
using System;
using System.Web.Services;

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

#!/bin/sh
echo "Hello World"
0147login:Penguin NGNG
FCB 3F,??
FCB 'H','E','L','L','O',' ','W','O','R','L','D',00
??のところは覚えなし
0148login:Penguin NGNG
>>146
おしい！ >>4で既出
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
既に出ているが、何か？
■ このスレッドは過去ログ倉庫に格納されています