いろんな言語で「Hello World」だ。ゴラァ
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん@お腹いっぱい。
NGNG皆も知ってる言語・スクリプトで続けてくれ!
#include <stdio.h>
int main()
{
printf("Hello World\n");
return (0);
}
0208207
NGNG0210login:Penguin
NGNGだせっ、バグバグじゃん。そのプログラムは何番地に格納されんだよ。
LDIRぐらい使えよ。
0211ルーク、forthだ、forthを使え
NGNG"Hello World" SPRINT ;
0212login:Penguin
NGNG0213login:Penguin
NGNGそのProlog、おもいっきりガイシュツです
0214login:Penguin
NGNGcs 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:Penguin
NGNGBレジスター破壊しまくり藁
LD DE,0C000H
LD HL,#MSG
LOOP:
LD A,(HL)
OR A
RET Z
LDI
JR LOOP
.data
MSG: DC "HELLO WORLD",0
って感じかな?
0216nanashi
NGNGそれっておもいっきりLinuxねた。
"Just for Fun "(P.31)
0218217
NGNG一滴マス
0219210
NGNGいやいや、不定長つうたって文字列なら結局は固定長でしょ。
で、何も文字列の最後にターミネタ(0)じゃなくとも、文字列の頭に文字数でもいいわけでさ。
PASCALなんてそうだっけ?(オレはターパスしかしらんけど)
で、文字数があればちゃんとLDIRが使えるわけ。
Z80なんて速度遅いわメモリ少ないわで、さまざまなノウハウがあるわけよ。
ま、>>207は何よりBレジが痛いんだけどね。
全然LINUX板ネタじゃないんで、もう逝くよ。
0220218
NGNG>>219
あ、なるほど。PASCAL文字列なら(そう、それはPASCAL文字列です)、文字数をBCに入
れてLDIRでおしまい、ですね。
誰か自己書き換えとかスタックポインタいじるとかして処理してーん(とかいってみる)。
また一滴マス。
0221名無し
NGNGpublic class Hello
{
public static void Main(string[]args)
{
string a="Hello World";
System.Console.WriteLine(a);
}
}
0222login:Penguin
NGNGpackage body helloworld is
use io;
begin -- main
put("Hello World");
new_line;
end helloworld;
0223login:Penguin
NGNGこれPASCAL?
0224login:Penguin
NGNGset border 0
set noxtics
set noytics
set xrange [0:1]
set yrange [0:1]
plot -1 notitle
0225login:Penguin
NGNG同じようなことを N88-BASIC の DRAW 命令でやろうとしたけどリファレンスが
なくて断念。ダセッ<俺。
0226login:Penguin
NGNGdim EXL
set EXL=WScript.CreateObject("Excel.Application")
EXL.Workbooks.Add
EXL.Cells(1,1).Value="Hello World"
EXL.Visible=True
0227225
NGNG>218 は >214 が正解。
0228login:Penguin
NGNGおそらくAdaではないかと思われ。
ロートル国防省からの刺客?
0229login:Penguin
NGNG0230login:Penguin
NGNG0231名無しさん@お腹いっぱい。
NGNG0232login:Penguin
NGNG既に出ているが、何か?
0233login:Penguin
NGNGpublic 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:Penguin
NGNG20 #=10
0235login:Penguin
NGNGecho $0
色々問題があるが。
0236Modula-2
NGNGFROM InOut IMPORT WriteString, WriteLn;
BEGIN
WriteString('Hello, world.');
WriteLn();
END Hello.
0237Basic-09 >>230
NGNG(* This is a sample of Basic09 *)
(* usage: RunB("Hello") *)
print #1, "Hello, world"
end
0238hello.tcl
NGNGlabel .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.vl
NGNGinitial begin
$display("Hello,world");
$finish;
end
endmodule
0240login:Penguin
NGNG0241login:Penguin
NGNG0242login:Penguin
NGNG0243login:Penguin
NGNGこれのどこがまずいの?
0244login:Penguin
NGNG{$APPTYPE CONSOLE}
uses SysUtils;
begin
write('Hello,World!');
end.
0245login:Penguin
NGNG<B>Hello,world</B>
</HTML>
0246login:Penguin
NGNGlong 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:Penguin
01/08/28 12:50ID:1oArpc0c0248login:Penguin
01/08/28 16:13ID:jaPRCAI60249login:Penguin
01/08/29 01:24ID:ZjU6i9ug0x00012024L, 0x00420015L,
0x00712724L, 0x0072D395L,
0x00892fBCL, 0x004A3455L,
0x068920A4L, 0x004A1455L,
0x02712724L, 0x0072138AL,
0x00000000L, 0x00000000L
};
why2次元。
0250login:Penguin
01/08/29 01:32ID:ZjU6i9ug(message msg)
echo "既出だったらごめんね"
0251login:Penguin
01/08/29 07:02ID:uBl.KZOoこれじゃ駄目?
0252既出か?
01/08/29 07:27ID:c59II4ig\begin{document}
\noindent
Hello World.
\end{document}
0253login:Penguin
01/08/29 12:31ID:SDRDaKDcBEGINMODULE
text (#1, vec (0, 0), 0, "Hello World": tsize=50, tslant=0);
ENDMODULE
0254login:Penguin
01/08/29 12:58ID:fnFRaVHc0255login:Penguin
01/08/29 13:53ID:SmuEce8k{
printk("<1>Hello World\n");
return 0;
}
0256コブラ
01/08/31 01:33ID:Ihpm/akI(if (null msg) 'nil
(princ msg)))
(hw '(Hello World))
(defun hw2()
(princ '(Hello World)))
(hw2)
Makefile
--------------
all:Hello
Hello:
echo "HelloWorld"
-------------
make
0258login:Penguin
01/08/31 02:28ID:kzmx.r22initial $display("Hello, World!!");
endmodule
0259日本語
01/08/31 03:21ID:k4XBpcQ60261既出ならすんまそん。
01/08/31 06:43ID:200uXQHQ/*オラクルのPL/SQLだ。*/
BEGIN
DBMS_OUTPUT.PUTLINE("Hello World !!");
END;
/
0262各無しさん@Emacs
01/09/01 00:36ID:/qbYDcAI0263各無しさん@Emacs
01/09/02 23:05ID:tNGvVpZM(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:Penguin
01/09/03 02:07ID:jDGRRFRMあのことは誰にもいいません。そのかわり、わがままかも
しれませんが、お願いがあるのです。本番中に3回まわって、
「Hello World」
と絶叫していただきたいのです。今月中に実行してください。
ご無理なようでしたら結構です。奥様にすべて打ち明ける
覚悟はしております。
かしこ。
EOF
0265login:Penguin
01/09/03 10:21ID:5UuSjmvg20 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
かっこ悪いですか?
0266ABAP
NGNGwrite 'Hello, World'.
0267CASLII
NGNGOUT BUF,LEN
BUF DC "Hello World!"
LEN DC 11
RET
END
0268元 TeXnician
NGNGメタフォントでHello, world!
なる図形を表示させる奴書いてくれよ。
それをネタに日本語によるオリジナルなメタフォントの教科書書いてくれよ。
いま、メタフォントはなあ、
「はろーワールドすら書けないろくでなし言語」として蔑まれているんだよ。
それを救うためにはメタフォントでハローワールドしかないんだよ。
0269login:Penguin
01/09/14 12:45ID:kahe/Yro0270login:Penguin
01/09/14 12:47ID:hpMFThis0271デフォルトの名無しさん
01/09/14 12:54ID:RxM/qzygshowpageが抜けとるの
0272login:Penguin
01/09/14 21:38ID:DnAyJxV20273login:Penguin
01/09/23 23:52ID:akzhrDq6今更だが、>>76は"ALL YOUR BASE ARE BELONG TO US."でウケを狙ったのでは
ないだろーか?
ってゆーか、このネタを知っている人は多いのだろうか?
hattenやwasabiよりは少ないような気がする。
0274Smalltalk-72
01/09/24 12:01ID:R4t.M4XYってSmalltalk-80以降も同じか (藁
0275login:Penguin
01/09/30 21:55ID:Ymabq/h.0276いやー
01/09/30 23:44ID:3EetH5nkMS-DOS 1987 Ver1.0
A:\>DATE
09-11-1987 11:32
A:\>ECHO Hello!
Hello!
A:\>run word
→あなたは不正な処理をしました。再起動します。
ゴルァ!(`へ /
0277Oracle
01/10/01 01:17ID:7ZxH9NKcSQL*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との接続が切断されました。
$
0278login:Penguin
01/10/01 01:28ID:GBmwHvVAHi, Mark.
I need the "Hello world" program.
Please send immediately.
.
%exit
0279いやー
01/10/01 01:37ID:iFlw4rCAMSX-BASIC 1989
LOAD "TEST.DAT"
list[RET]
10 CLS
20 LOCATE 10 10
30 PRINT "Hello!"
He...→メインメモリが不足しております。再起動します。
ゴルァ!(`へ /
0280login:Penguin
01/10/01 10:12ID:VCOUIYL2今、一応全部見たつもりなんですがネットワーク系はまだの気が?
0281login:Penguin
01/10/01 12:24ID:XVJTd5fU0282login:Penguin
01/10/01 22:59ID:VCOUIYL20283login:Penguin
01/10/02 03:10ID:Q3YDZ.Ck0284海老塩
01/10/06 00:52ID:Y76.IDOcbyひまわり
簡単で悪かったな。でもこれで出来るんだよ。
日本語だぜ。日本人だもん。
0285NASM
01/10/06 18:41ID:ifhTHbDYglobal _start
msg db 'hello, world', 0x0A
msglen equ $ - msg
_start:
mov ecx, msg
mov edx, msglen
mov eax, 4
mov ebx, 1
int 0x80
mov eax, 1
mov ebx, 0
int 0x80
0286login:Penguin
01/10/08 21:50ID:xEU6d7hs0287login:Penguin
01/10/08 22:54ID:Pb1MUUygfor i=1 to 100
i=i+1
print "Hollow"
next i
stop : end
BASICです。
0288login:Penguin
01/10/27 08:01ID:i+fZmFso0289login:Penguin
01/10/27 10:16ID:xSKauLzEdelay = 50
vga = extended
message = /boot/msg.txt
image = /vmlinuz
root = /dev/hda3
label = plamo
read-only
age:$ cat /boot/msg.txt
Hello! World
age:$
0290login:Penguin
01/10/27 10:19ID:xSKauLzEHollow Werld
ですか?
0291login:Penguin
01/10/27 16:18ID:LklSfNVx0292課長
01/11/04 07:34ID:egcekF+kお前らちゃんとコード書けよ! そのためのネットワークだろが。
ageとくからな。
0293login:Penguin
01/11/05 13:47ID:xmx282/P(insert "Uryyb jbeyq!")
(mule-caesar-region (point-min) (point-max))
(message (buffer-string))
)
0294login:Penguin
01/11/16 05:01ID:L78f4K5Y0295各無しさん@Emacs
01/11/16 05:22ID:lb+o8fJvTBL='Hello World00112233'
TRL='abcdefghijklmnopqrs'
COL=80; SPD=0; OFF=0
RANDOM=$(date +%s)
LEN=$( echo -n "$TBL" | wc -c | sed 's/ //g' )
ROW=$( I=0; while [ $I -lt $COL ]; do
echo -n $TRL; let I+=$LEN; done | cut -b1-$COL )
STATUS=0; while [ $STATUS -eq 0 ]; do
RND=$[$RANDOM&7]
if [ $RND -eq 0 ]; then let SPD-=1
elif [ $RND -eq 7 ]; then let SPD+=1; fi
if [ $SPD -lt -3 ]; then SPD=-3
elif [ $SPD -gt 3 ]; then SPD=3; fi
let OFF+=$SPD
while [ $OFF -lt 0 ]; do let OFF=+$LEN; done
if [ $OFF -gt $LEN ]; then let OFF=$OFF%$LEN; fi
echo -n $ROW | tr $TRL "$(
echo -n "$TBL$TBL" | cut -b$[$OFF+1]-$[$OFF+$LEN])" |
(if [ $SPD -gt 0 ]; then tr 0-$[$SPD-1] '!'
elif [ $SPD -lt 0 ]; then tr $[4+$SPD]-3 '!'
else cat ;fi) | tr 0-3 ' ' || STATUS=1
echo -ne "\r"
done
0296login:Penguin
01/11/16 17:18ID:fWh4bGWW20 moji$="Hello World" '全角で書け
30 for i=1 to klen(moji$)
40 put@(16*i,0),,val("&h"+kanji(kmid$(moji$,i,1)))
50 next
N88-BASICで実行すれば多分表示される...と思う。
put@使うの久しぶりだからなー
0297login:Penguin
01/11/16 23:29ID:1+GjOyGd!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
"C7<Ez+la<0c6(PV:)$o$,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![;I\
aC^I\u/l@Lu|=,Psr8{T!d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!rjn!
c_cAz84M3e1MF=Ac:AnQoM/x_DO+w/HiYar"}^M;iT>QKI[-8OvZGBexre,w{fnNr@{4m'}W{u9LLG
--- hello.txt (8/8) ---
0298login:Penguin
01/11/17 03:39ID:YquQPBDI10 PRN "HELLO WORLD":END
0299login:Penguin
01/11/19 12:43ID:ctHVVaXo#!/bin/sh
echo Hello World!
% tcpserver 0 10000 ./hello &
% telnet localhost 10000
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
Hello World!
Connection closed by foreign host.
0300login:Penguin
01/11/19 20:07ID:5iJ+kKF00301login:Penguin
01/11/19 20:33ID:Va57rtBm0302な
01/11/19 22:19ID:FPRstUm90303login:Penguin
01/11/19 23:25ID:JFqR1Kqdアンニョンハセヨ、世界。
とかは既出?
0304login:Penguin
01/11/20 20:59ID:WPoPbZ0Oimport stdio;
int main()
{
printf ("Hello, world\n") ;
return 0;
}
詳しくはこちら
http://www.digitalmars.com/d/index.html
参考スレ
http://pc.2ch.net/test/read.cgi/tech/1003674814/
0305K Compiler
01/11/21 01:11ID:b65FJIzg0306REXX
01/11/27 23:57ID:gaJcOLrLsay 'Hello, world'
0307jsp
01/11/28 10:05ID:gAGkcKBAout.println("Hello World");
%>
0308(._.)
01/11/28 13:52ID:lwwLdjVmfor I in H e l l o , W o r l d
do
echo $I
done
■ このスレッドは過去ログ倉庫に格納されています