探検


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

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


#include <stdio.h>
int main()
{
printf("Hello World\n");
return (0);
}
NGNG
>>48
似過ぎだって・・・
50名無しさん@お腹いっぱい。
垢版 |
NGNG
>>42
DISPLAY HOGE ON CONSOLE. じゃなくて
DISPLAY HOGE UPON CONSOLE. じゃないかな

いくら偽者だといってもちみのソース汚すぎ。
私が清書してあげましょう。

目盛行 ---1----+----2----+----3----+----4----+----5----+----6----+----7----+---
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. HELLO.
000300 *
000400 ENVIRONMENT DIVISION.
000500 CONFIGURATION SECTION.
000600 SOURCE-COMPUTER. MAKER-A.
000700 OBJECT-COMPUTER. MAKER-A.
000800 /
000900 DATA DIVISION.
001000 /
001100 WORKING-STORAGE SECTION.
001200 01 HELLO-WORLD PIC X(11) VALUE 'Hello World'.
001300 /
001400 PROCEDURE DIVISION.
001500 DISPLAY HELLO-WORLD UPON CONSOLE.
001600 STOP RUN.
5150
垢版 |
NGNG
げげ空白がなくなってる。ずれてるじゃんかー
結局汚いままか。
5250
垢版 |
NGNG
よしできた。こんなのが書きたかったの。

IDENTIFICATION DIVISION.
 PROGRAM-ID. HELLO.
  *
   ENVIRONMENT DIVISION.
    CONFIGURATION SECTION.
     SOURCE-COMPUTER. MAKER-A.
      OBJECT-COMPUTER. MAKER-A.
       /
        DATA DIVISION.
         /
          WORKING-STORAGE SECTION.
           01 HELLO-WORLD PIC X(11) VALUE 'Hello World'.
            /
             PROCEDURE DIVISION.
              DISPLAY HELLO-WORLD UPON CONSOLE.
               STOP RUN.
NGNG
結構大変だったでしょう>>50(偽50)
5453
垢版 |
NGNG
訂正
結構大変だったでしょう>>52(偽50)
55名無しさん@Emacs
垢版 |
NGNG
PROGRAM HELLO
WRITE(6,610) ' HELLO WORLD '
610 FORMAT(A20)
END
56名無しさん@お腹いっぱい。
垢版 |
NGNG
emacs lisp

(print "Hello World")
5756
垢版 |
NGNG
>>44
で既出だった。しかも message の方が洗練されてる。打つだし脳
NGNG
ふと思ったが、このスレ板違いのような…(w
59名無しさん@お腹いっぱい。
垢版 |
NGNG
proc options(maon);
.
.
60名無しさん@お腹いっぱい。
垢版 |
NGNG
<?php
  echo "Hello, World.";
?>
61名無しさん@お腹いっぱい。
垢版 |
NGNG
>>33

Windows プログラム的には

Private Sub Form_Paint()
  Print "Hello World"
End Sub

のほうがよくない? フォームの AutoRedraw プロパティも
デフォルトでは False だし。
NGNG
 ┌─────────┐
 │               .|
 │  Hello World!    │
 │               .|
 └―――──――――┘
      ヽ(´ー`)ノ
         (  へ)
          く
63U-名無しさん
垢版 |
NGNG
K&R.
これからはじまった。
(これがプログラマーに永遠にHello Worldを書かせつづける原点)
64PDF
垢版 |
NGNG
%PDF-1.4
1 0 obj
<< /Type /Catalog /Pages 2 0 R >>
endobj
2 0 obj
<< /Type /Pages /Kids [3 0 R] /Count 1 >>
endobj
3 0 obj
<< /Type /Page /Parent 2 0 R /MediaBox [0 0 200 150]
/Resources << /Font << /F1 4 0 R >> >> /Contents 5 0 R >>
endobj
4 0 obj
<< /Type /Font /Subtype /Type1 /BaseFont /Helvetica >>
endobj
5 0 obj
<< /Length 39 >>
stream
BT /F1 20 Tf 10 100 Td (Hello World) Tj ET
endstream
endobj
xref
0 6
0000000000 65535 f
0000000009 00000 n
0000000058 00000 n
0000000115 00000 n
0000000241 00000 n
0000000311 00000 n
trailer
<<
/Size 6
/Root 1 0 R
>>
startxref
403
%%EOF
NGNG
xfontsel -sample "hello world"
NGNG
10 PRINT "HELLO WORLD"

20 END

NGNG
program Hello(input, output)

begin
writeln('Hello World')

end.

NGNG
(defun hello

(print

(cons 'Hello (list 'World))))

NGNG
#include <stdio.h>
void main(void)

{

 char *message[] = {"Hello ", "World"};

 int i;
for(i = 0; i < 2; ++i)

 printf("%s", message[i]);

 printf("\n");

}

70名無しさん@お腹いっぱい。
垢版 |
NGNG
C:\>echo Hello World
Hello World

C:\>

逝ってきます。
NGNG
#include <iostream.h> #include <string.h> class string
{
private:
int size;
char *ptr;
public:
string() : size(0), ptr(new char('\0')) {}
string(const string &s) : size(s.size)
{
ptr = new char[size + 1];
strcpy(ptr, s.ptr);
}
~string()
{
delete [] ptr;
}
friend ostream &operator <<(ostream &, const string &);
string &operator=(const char *);
};

ostream &operator<<(ostream &stream, const string &s)
{
return(stream << s.ptr);
}
string &string::operator=(const char *chrs)
{
if (this != &chrs)
{
delete [] ptr;
size = strlen(chrs);
ptr = new char[size + 1];
strcpy(ptr, chrs);
}
return(*this);
}
int main()
{
string str;
str = "Hello World";
cout << str << endl;
return(0);
}

NGNG
#!/usr/local/bin/perl
$msg="Hello, world.\n";
if ($#ARGV >= 0) {
while(defined($arg=shift(@ARGV))) {
$outfilename = $arg;
open(FILE, ">" . $outfilename) || die "Can't write $arg: $!\n";
print (FILE $msg);
close(FILE) || die "Can't close $arg: $!\n";
}
} else {
print ($msg);
}
1;
NGNG
PROGRAM HELLO
PRINT *, 'Hello World'
END
NGNG
どれがいいと思う?
ヲレ的には いにしえのRPG言語が良いのじゃ
75Z80
垢版 |
NGNG
 LD  HL,MSGTBL
 CALL PRINTOUT

サブルーチンの中は考えてません(ダメ?)。
NGNG
#include <syslog.h>
int main()
{
syslog(LOG_INFO|LOG_USER, "ALL YOUR BASE ARE BELONG TO US.");
return 0;
}
NGNG
>>76
それ、「Hello World」なのか?
78名無しさん@お腹いっぱい。
垢版 |
NGNG
>>29
最後の CALL は JP にしとこうよ。

OS-9 + MC680x0 きぼん。
79名無しさん@お腹いっぱい。
垢版 |
NGNG
#!/usr/local/bin/ruby
print [72, 101, 108, 108, 111, 32, 87, 111, 114, 108, 100, 10].pack("C*")

# Just Another Perl Hacker みたいだね
80x86 ASM
垢版 |
NGNG
x86+MS-DOS+Debug.exe (tested on Win98)

-a cs:0
24E1:0000 0E PUSH CS
24E1:0001 1F POP DS
24E1:0002 BA0E00 MOV DX,000E
24E1:0005 B409 MOV AH,09
24E1:0007 CD21 INT 21
24E1:0009 B8014C MOV AX,4C01
24E1:000C CD21 INT 21

-e cs:e
24E1:000E 54.48 68.65
24E1:0010 69.6c 73.6c 20.6f 70.2c 72.20 6F.57 67.6f 72.72
24E1:0018 61.6c 6D.64 20.0d 63.0a 61.0a 6E.24 6E.0
-g
Hello, World


プログラムは正常に終了しました.
-
81名無しさん@お腹いっぱい。
垢版 |
NGNG
as(FreeBSD+x86) maybe required i386 or later.

.text
    pushl  $0x0c
    pushl  $msg
    pushl  $0x1
    pushl  $0x4
    movl  $0x4,%eax
    int   $0x80
    subl  $-0x10,%esp

    xorl  %ebx,%ebx
    xorl  %eax,%eax
    incl  %eax

    pushl  %ebx
    pushl  %eax
    int   $0x80

msg:  .asciz "Hello, World\n"
NGNG
$ echo vaka | sed -e 's/vaka/Hello World/'
83名無しさん@お腹いっぱい。
垢版 |
NGNG
% wget ftp://ftp.gnu.org/gnu/hello/hello-1.3.tar.gz
% tar zxfv hello-1.3.tar.gz ; cd hello-1.3
% ./configure ; make ; make install ; rehash
% hello
NGNG
>>83
むぅ冗談かと思ったら。一体何をするプログラムだ??
NGNG
>>84
Hello Worldはプログラムを習い始めてまず作らされます。
毎年、数百万ステップものHello Worldプログラムが作られ
再利用することも無く捨てられていきます。
まったく、資源の無駄としか言いようが無く、GNUの精神にも
真っ向から挑戦しています。
この不毛な人的リソース消費に終止符を打つため、より正しい
Hello Worldプログラムのソースをフリーソフトとして公開します。
86名無しさん@お腹いっぱい。
垢版 |
NGNG
>>81
もっと短くなるよ
コンパイラが吐いたソースそのままじゃoもろくない
NGNG
>>86
それは、
    movl  $0x4,%eax
    pushl  %eax
とした方がバイト数減らせるとか?
ちなみに、これはコンパイラが吐いたソースではないよ。
普通にhello.Sでかいてま。教えてplease.
88名無しさん@お腹いっぱい。
垢版 |
NGNG
printk(KERN_EMERG "Hello, World!\n");
machine_halt();
do_exit(0);
89名無しさん@お腹いっぱい。
垢版 |
NGNG
(message-box (mapconcat 'char-to-string '(72 101 108 108 111 32 87 111 114 108 100) ""))

(message-box (prin1-to-string '(Hello Wold)))
90名無しさん@お腹いっぱい。
垢版 |
NGNG
>>84
ttp://www.gnu.org/software/hello/hello.html

# apt-get install hello
# hello
Hello, world!
91名無しさん@お腹いっぱい。
垢版 |
NGNG
# auto-apt run
# hello
92CCルリたん。
垢版 |
NGNG
<HTML>
<TITLE>
Hello World
</TITLE>
<BODY>
Hello World
</BODY>
</HTML>
93awk
垢版 |
NGNG
ちがう >>21
#!/usr/bin/awk
BEGIN{
 print "Hello World";
}
94WRD
垢版 |
NGNG
@STARTUP(400)@WMODE(5)@TON(2);
@LOCATE(3;29)@COLOR(37)@WAIT(8);
Hello World.
NGNG
# /ver/qmail/bin/qmail-inject
to: [email protected]
hello world
ctrl + d

ををっ!なぜか師匠に差出人不明のメールが...
NGNG
>>95
クン・・・
まぁ、Linuxって便利なようね。。。

# /ver/qmail/bin/qmail-inject
to:[email protected]
"hello world"
ctrl + d
"give_me_UPS_to_use_AS/400"
ctrl + d
ctrl + z

クーン,クンクン
97CCルリたん。
垢版 |
NGNG

ruri% wall Hello World
NGNG
\documentclass{jarticle}
\begin{document}
Hello World
\end{document}
99VAX DCL
垢版 |
NGNG
$ WRITE SYS$OUTPUT "Hello World"
$ EXIT

100名無しさん@お腹いっぱい。
垢版 |
NGNG
<TITLE>
Hello World in JavaScript
</TITLE>
<SCRIPT>
document.write ("Hello, world!")
</SCRIPT>
101てーぎふ
垢版 |
NGNG
%TGIF 4.1.16
state(0,37,100.000,0,0,0,16,1,9,1,1,0,0,1,0,1,0,'Courier',0,80640,0,0,0,10,0,0,1,1,0,16,0,0,1,1,1,1,1088,1408,1,0,2880,0).
%
% @(#)$Header$
% %W%
%
unit("1 pixel/pixel").
script_frac("0.6").
fg_bg_colors('black','white').
page(1,"",1,'').
text('black',16,3,1,0,1,99,16,0,13,3,0,0,0,0,2,99,16,0,0,"",0,0,0,0,16,'',[
minilines(99,16,0,0,0,0,0,[
mini_line(99,13,3,0,0,0,[
str_block(0,99,13,3,0,-1,0,0,0,[
str_seg('black','Courier',0,80640,99,13,3,0,-1,0,0,0,0,0,
"Hello World")])
])
])]).
102Y2k
垢版 |
NGNG
#include<stdio.h>
void main()
int a=0;
{
while(1)
{
printf("%d\n",a);
a++;
}
}
103名無しさん@お腹いっぱい。
垢版 |
NGNG
>>102
ハァ?
NGNG
>>102はあほです。
ゆるいしてやってください。
void
105PL/I
垢版 |
NGNG
HW: PROC OPTIONS (MAIN);
   PUT SKIP LIST ('Hello World');
END HW;
106???????????????B
垢版 |
NGNG
test
\
107PostScript
垢版 |
NGNG
%!PS-Adobe-3.0 EPSF-3.0
%%Creator: 2ch-net
%%Pages: 1
%%DocumentFonts: Times-Roman
%%LanguageLevel: 2
%%EndComments

%%BeginProlog
/Hello {
 /Times-Roman findfont 10 scalefont setfont
 moveto
 (Hello, World) show
} def
%%EndProlog

[{
%%BeginFeature: *PageSize A4
  mark { statusdict /a4tray get exec } stopped pop
  userdict /a4 get exec cleartomark
%%EndFeature
} stopped cleartomark

%%Page: 1 1
200 200 Hello
showpage

%%Trailer
%%Pages: 1
%%EOF
108Prolog
垢版 |
NGNG
main:-write('Hello, World.'),nl.
109韓国語
垢版 |
NGNG
あにょはせよ
NGNG
>>102
void 、ハ、ホ、マ、ュ、゚、ホニャ、タ
111Smalltalk
垢版 |
NGNG
Transcript show:'Hello World';cr
NGNG
「日本語Mind」って、↓こんな感じでしたっけ

メインとは、
 "Hello, world!"を表示し、
 終了する。
すること。
113初心者です
垢版 |
NGNG
/* HelloWorld.java */
import java.awt.*;

public class HelloWorld extends Frame {
public static void main( String argv[] ) {
HelloWorld helloWorld = new HelloWorld("4月30日版 ");
helloWorld.show();
}

HelloWorld(String title){
super(title);
setSize(400, 200);
setLayout(null);
this.setBackground(Color.magenta);

Label label = new Label("アンニョンハセヨ セゲー");
label.setLocation(20, 50);
label.setSize(200, 50);
label.setBackground(Color.yellow);
this.add(label);
}
}
114名無しさん@お腹いっぱい。
垢版 |
NGNG
echo "Hello World" > /etc/motd

115名無しさん@お腹いっぱい。
垢版 |
NGNG
>>114
ガイシュツ
NGNG
>>115 どこ?
NGNG
とりあえず、ソースに「Hello, World」を直接書くのは反則にしない?
118login:Penguin
垢版 |
NGNG
優良!
NGNG
>>117
了解!
NGNG
>>117 を踏まえて。。。

C:\>copy con a.txt
Hello World!
^Z
1 個のファイルをコピーしました。

C:\>type a.txt
Hello World!

C:\>

逝ってきます。。。
NGNG

$ smbclient -M YOUR_WINDOWS_CLIENT_NAME
(snip)
Connected. Type your message, ending it with a Control-D
Hello! World
(Ctrl-D)
sent 14 bytes
$

122sed
垢版 |
NGNG

$ sed -r 'a\
Hello! World
'

リターンキーがポイント
NGNG

誰かAppleScriptお願い・・・
124age
垢版 |
NGNG
age
1258086
垢版 |
NGNG
mov ah, 9
mov dx, msg
int 21h
ret
msg db 'Hello World!$'
126PL/SQL block
垢版 |
NGNG
begin
dbms_output.put_line('Hello World!');
end;
/
127訂正
垢版 |
NGNG
>>125
8086 + MS-DOS
128http
垢版 |
NGNG
% telnet webserver 80
GET /helloworld.txt HTTP/1.0

以下略
129秀丸
垢版 |
NGNG
message "Hello World!";
130Tcl/Tk
垢版 |
NGNG
% puts "Hello World"
Hello World
% button .a -text "Hello World" -command {puts "Hello World"}
.a
% pack .a

#好きなだけ押してくれ。
131login:Penguin
垢版 |
NGNG
echo "uryyb, jbeyq" | /usr/games/rot13
132login:Penguin
垢版 |
NGNG
navigator http://www.seri.sakura.ne.jp/~panda/ecg/ecg056.jpg
1331行野郎
垢版 |
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}'
134133
垢版 |
NGNG
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}'
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>
136HTML
垢版 |
NGNG
<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>
137名無しさん@お腹いっぱい。
垢版 |
NGNG
sa
NGNG
// helloworld.asmx
<%@ WebService Language="C#" class="HelloWorld" %>
using System;
using System.Web.Services;

public class HelloWorld {
  [WebMethod]
  public String HelloService() {
    return "Hello World";
  }
}
139あなたも億万長者をめざしませんか?
垢版 |
NGNG
http://www2.csc.ne.jp/~cym10262/
NGNG
139 は  ブラクラです
141汎用機マンセー
垢版 |
NGNG
//JOB
/*MESSAGE HELLO WORLD
//DUMMY EXEC PGM=JDJDUMMY
//
NGNG
>>141
おまえ●立 汎用機か?
143141
垢版 |
NGNG
>>142
日●汎用機だが、何か?
ってかそれがわかる時点でオマエモナー
144Winおばさん厨
垢版 |
NGNG
>>143
おばさんにはそんなのわかんないよ。
SHなら少しはわかるけど。すうぱぁHだべ?
145scripter
垢版 |
NGNG
#!/bin/csh -f
echo "Hello World"
146ドラえもん
垢版 |
NGNG
本当のscripterならこれだろ

#!/bin/sh
echo "Hello World"
147login:Penguin
垢版 |
NGNG
FCB 3F,??
FCB 'H','E','L','L','O',' ','W','O','R','L','D',00
??のところは覚えなし
NGNG
>>146
おしい! >>4で既出
■ このスレッドは過去ログ倉庫に格納されています

ニューススポーツなんでも実況