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

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


#include <stdio.h>
int main()
{
printf("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/

「Hello World」と、表示

byひまわり

簡単で悪かったな。でもこれで出来るんだよ。
日本語だぜ。日本人だもん。

section .text
global _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

あげ

i=0
for i=1 to 100
i=i+1
print "Hollow"
next i
stop : end

BASICです。

age

age:$ cat /etc/lilo.conf
delay = 50
vga = extended
message = /boot/msg.txt
image = /vmlinuz
root = /dev/hda3
label = plamo
read-only

age:$ cat /boot/msg.txt
Hello! World

age:$

>>287
Hollow Werld
ですか？

age

在宅勤務とやら、訳がわからんものが始まったとたんにこれだ。
お前らちゃんとコード書けよ！ そのためのネットワークだろが。
ageとくからな。

(with-temp-buffer
(insert "Uryyb jbeyq!")
(mule-caesar-region (point-min) (point-max))
(message (buffer-string))
)

hello!

#!/bin/nice sh

TBL='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

10 cls 3
20 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@使うの久しぶりだからなー

<<< hello.txt for MS-DOS ( use ish ) [ 8 lines ] >>>
!!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) ---

CASIO ポケコン FX-702P BASIC です

10 PRN "HELLO WORLD":END

% cat hello
#!/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.

msgbox "Hello World!"

#include">>1"

<h1>Hello World!<h1>

こんにちは、世界。
アンニョンハセヨ、世界。
とかは既出？

"Hello World"

say　'Hello, world'

<%
out.println("Hello World");
%>

#!/bin/sh
for I in H e l l o , W o r l d
do
echo $I
done

echo 'Hello World!' | shutdown - -h now

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝終了＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

>>308

echo -n $l

英語 Hello World
日本語 こんにちは、世界
フランス語 Bonjour Monde
ドイツ語 Guten Tag Welt
イタリア語 Ciao Mondo
ポルトガル語 Oi Mundo
スペイン語 Hola mundo
韓国語 ？？？？ ？？

まさか化けるとはおもわなんだ

-n わすれた。
縦になるのぅ。
訂正さんくす。

on openStack
　answer "Hello World"
　doMenu "Quit HyperCard"
end openStack

on closeStack
　doMenu "Compact Stack"
end closeStack

Xdialog --msgbox "Hello World" 0 0

とか

dialog --msgbox "Hello World" 20 40

とか

echo "Hello World" |banner -w 40

とかは既出でしょうか？

function hello
disp('hello world');

AfxMessageBox("Hello, World.",MB_OK|MB_APPLMODAL|MB_ICONINFORMATION);

age

\documentclass[12pt]{jsarticle}
\usepackage[dvipdfm]{color}
\pagestyle{empty}
\special{pdf: pagesize width 8in height 4.6in}

\special{pdf: docview
<<
/ViewerPreferences
<<
/HideToolbar false /HideMenubar false /FitWindow true /CenterWindow true
>>
>>
}
\special{pdf: bgcolor [1.0,1.0,0.0]}%
\begin{center}
Hello,World!
\end{center}
以上をfoobarbaz.tex として保存し、
platex foobarbaz
dvipdfm foobarbaz
して、Acroread で見るだけ。うまくいくかなぁ。

#include <iostream.h>
int main()
{
cout << "Hello World";
}

gdialog --msgbox "Hello World" 10 10

% 既出？
/Times-Roman findfont
20 scalefont
serfont
25 800 moveto
(Hello World) show
showpage

Windows 2000 のコマンドプロンプトで
net send 相手のIP Hello World
てどうよ？

echo Hello world

DATA HELLO;
INPUT H $ W $;
CARDS;
Hello World
;

PROC PRINT;
RUN;

#include <iostream>
using namespace std;
int main(int argc, char **argv)
{
cout << "ハロー！モーニング。" << endl;
return 0;
}

お前ら、詰まらん事書いてないで、先人のページ見ろ。
http://www2.latech.edu/~acm/HelloWorld.shtml
分ったか。こんなことで、サーバー重くすんのよせよな。

★★★★★★★★★★★★終了★★★★★★★★★★★

>327
なんかすごくえらくなった気分？

>>327のページのBrainf*ckすごすぎ。

main = do putStrLn "hellowold"

echo HelloWorld > hw.txt
nkf -j hw.txt | Mail -s hello [email protected]
telnet pop.vinnakinkyrooligt.ne.jp 110
user hogeyarou
pass jorojoro
retr 1

HelloWorld

create table HelloWorld (
hello varchar2(100)
)
tablespace users
pctused 70 pctfree 20
storage (
init 1M
next 1M
pctincrease 0
)
/
insert into Hello values ("Hello World");
commit;

select * from Hello;

-------------
Hello World
-------------

× HelloWorld
○ Hello
まちがった･･･

× insert into Hello values ("Hello World");
○ insert into Hello values ('Hello World');

もう一つ間違い･･･鬱

>>327
PERLの項見た？
while(1)って…涙も止まらねえよ…

>>327
G,K,W,Y,Zの項目がねーな
うめなきゃ！

>>358
すまん、それらの頭文字の言語、どんなのがある？
Gは(少々苦しいが)Gawkあたりでお茶を濁すとしてもだ、
YやZは辛そうだ。

>>339
プロフェッショナルC言語(だっけな？)ってお気楽プログラミング本に、
AからZまでかいてあったはず。今手もとにないんだけど、
だれかフォロープリーズ

#VRML V1.0 ascii

AsciiText {
string "Hello, world !"
justification LEFT
}

>>339
yacc (無理か)
ZPL
漏れは厨なので、どんな言語かは知らない

HELLO: PROCEDURE OPTIONS (MAIN);

/* A PROGRAM TO OUTPUT HELLO WORLD */
FLAG = 0;

LOOP: DO WHILE (FLAG = 0);
PUT SKIP DATA('HELLO WORLD!');
END LOOP;

END HELLO;

Gはguileがあるな

import java.io.*;
import javax.servlet.*;
import javax.servlet.http.*;

public class HelloWorld extends HttpServlet {
public void doGet(HttpServletRequest request,HttpServletResponse response)
throws IOException,ServletException{
response.setContentType("text/html");
PrintWriter out = response.getWriter();
out.println("<html><body>");
out.println("hello world");
out.println("</body></html>");
}
}

(defrule sine
(initial-fact)
=>
(printout t "Hello World" crlf))


このげんごなんだかわかる？

>>346
CLIPS? その言語見た事無かったのでちょこっと調べた。
検索したら NASA とか出て来て微妙にビビったよ。

>>347
ピンポーン。
授業の関係で勉強しています。LISPに少し似ています。

http://www.ghg.net/clips/CLIPS.html

ガイシュツ？

「こんにちは」と、言え。
おわり。

echo "Good bye world" | rm -rf /

-- Hello world program for april

program
{
run () {
"Hello world\n" >> stdout;
};

main () {
h = spawn run () as handle%%"run";
waitfor (h);
}
} execute main;

dnl hello world program for m4
divert(-1)
changequote([, ])
define([h], [Hello World!])
divert(0)dnl
h

(* Hello world program for ocaml *)

let main () =
let rec loop = function
[] -> print_newline()
| x::xs -> print_char (Char.chr x); loop xs
in loop [72; 101; 108; 108; 111; 32; 87; 111; 114; 108; 100; 33]
let _ = Printexc.catch main ()

10　print "Hello World!"

/* Hello world for yacc */
%token HELLO

%%
hello: HELLO
{ printf ("Hello world!\n"); }

%%
int yylex ()
{
static int count = 0;
return count++ ? 0 : HELLO;
}

void yyerror (char* s) {}

int main ()
{
yyparse ();
}

コンパイルできないのがいくつもあるよ・・・