DouKaku?beta

challenge Hello, world!

「Hello, world!」と表示するプログラムを作ってください。
post comment

Posted feedbacks - Nested

Flatten Hidden
オーソドックスに。 
1
print "Hello, world!"

1
2
3
4
5
6
7
#include <stdio.h>

int main()
{
    printf("Hello, world!");
    return 0;
}
# perlもrubyも 
1
2
# perl6
"Hello, world!".say

C++で書いてみました。mainには何も書かない方向で。
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
#include <iostream>

class hello
{
public:
    hello(){
        std::cout << "hello world" << std::endl;
    }
} world;


int main()
{
    return 0;
}

>mainには何も書かない方向で。
return 0;を書かなくても規格範囲内．
芸はないけど、for completeness 
1
(print "Hello, world!")
PHPです。 
1
Hello, World!


	

	
	
	
    

      
1
2
3
4
5
public class HelloWorld{
	public static void main(String args[]){
		System.out.println("Hello World");
	}
}




    

	

  
  








  


  

  
    







  
  

	

	  
HQ9+で

	

	
	
	
    

      
1
H




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
print ''.join(map(chr, [72, 101, 108, 108, 111, 44, 32, 119, 111, 114, 108, 100, 33]))




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
「Hello, world!」と言う。




    

	

  
  








  


  

  
    







  
  

	

	  
DB2のテーブルってなんだっけ？
↓はOracle

	

	
	
	
    

      
1
SELECT 'Hello, world!' FROM DUAL;




    

	

  
  








  
    

      
      







  
  

	

	  
MySQLならFROMなくても平気。

	

	
	
	
    

      
1
select 'Hello, world!';




    

	

  
  








  


    

  


  

  
    







  
  

	

	  フォーマット文字列内の参照文字列をリストのインデックス番号で指定。
	

	
	
	
    

      
1
2
words = ['hello', 'world']
print '%(0)s, %(1)s!' % dict([w == 'hello' and (`i`, w.capitalize()) or (`i`, w) for i, w in enumerate(words)])




    

	

  
  








  


  

  
    







  
  

	

	  高階関数としてのstr.__add__の利用方法。文字列を+で連結するので実行速度は遅い。

	

	
	
	
    

      
1
2
3
4
words = ['hello', 'world']
words[0] = ''.join(['H', words[0][1:]])
words[1] = ''.join([', ', words[1], '!'])
print reduce(str.__add__, words)




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
main=putStrLn"Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
echo 'Hello, world!'




    

	

  
  








  


  

  

  
    







  
  

	

	  カバレッジを上げるために投稿
	

	
	
	
    

      
1
alert('Hello, world!');




    

	

  
  








  
    

      
      







  
  

	

	  表示の方法を変更して
	

	
	
	
    

      
1
document.write("Hello, world!");




    

	

  
  








  


    

  


  

  
    







  
  

	

	  C# MessageBox版
	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
using System;
using System.Windows.Forms;

namespace Doukaku
{
	static class Hello
	{
		[STAThread]
		static void Main()
		{
			MessageBox.Show("Hello, world!");
		}
	}
}




    

	

  
  








  


  

  
    







  
  

	

	  
erl -noshell -s helloworld hello -s init stop
で実行．

	

	
	
	
    

      
1
2
3
4
5
-module(helloworld).
-export([hello/0]).

hello() ->
        io:format("Hello, World!~n").




    

	

  
  








  


  

  

  
    







  
  

	

	  

	

	
	
	
    

      
1
'Hello, world!' asMorph openInHand




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
<?='Hello, World!'?>




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
2
3
4
5
require 'open-uri'
open("http://ja.doukaku.org/2/") {|f|
  f.string =~ /<h2><a .*?>(.*?)<\/a><\/h2>/
  print $1,"\n"
}




    

	

  
  








  


  

  
    







  
  

	

	  HelloWorldいっぱい
	

	
	
	
    

      
1
start http://www.helloworld.org/




    

	

  
  








  


  

  
    







  
  

	

	  うろ覚えのＭｉｎｄで書いてみた。
	

	
	
	
    

      
1
2
3
※ お題：「Hello, world!」と表示するプログラムを作ってください。 
メインとは
　　「Hello, world!」を　表示すること。




    

	

  
  








  


  

  
    







  
  

	

	  Rexx
	

	
	
	
    

      
1
say "Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  
cygwin（bash）で確認しました

	

	
	
	
    

      
1
ruby -e "puts \"Hello, world\!\""




    

	

  
  








  
    

      
      







  
  

	

	  
こっちがスマート (^^;

	

	
	
	
    

      
1
ruby -e 'puts "Hello, world!"'




    

	

  
  








  


    

  


  

  
    







  
  

	

	  
VBでコンソールに出してみる

	

	
	
	
    

      
1
2
3
4
5
Module Module1
    Sub Main()
        Console.Out.WriteLine("Hello, world!")
    End Sub
End Module




    

	

  
  








  


  

  

  
    







  
  

	

	  
「『言語』欄にアセンブラないの？」
って書きたかったんですっ。

VS 2005使用。

	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
	.586
	.model flat

extrn   _printf:near
public	_main

	.data
msg db "Hello, World", 0

	.code
_main	proc near
        push ebp
        mov  ebp, esp
	mov  eax, offset msg
	push eax
	call _printf
	pop eax
	mov esp, ebp
        pop ebp
        ret 0
_main	endp
	end




    

	

  
  








  


  

  
    







  
  

	

	  OCamlもあっていいよね？
	

	
	
	
    

      
1
Printf.printf "Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  debug < hello.txtでどーぞ(WinXP)
	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
a 100
MOV	DX,0108
MOV	AH,09
INT	21
RET
DB "Hello, world!$"

R CX
16
N HE.COM
W
Q




    

	

  
  








  


  

  
    







  
  

	

	  
WSH(Windows Script Host)のVBScript版です。拡張子はvbsで、cscriptとwscriptどちらからでも起動可能です。

	

	
	
	
    

      
1
WScript.Echo("Hello, World!")




    

	

  
  








  
    

      
      







  
  

	

	  
同じくJScript版です。VBScriptとは微妙に違います…

	

	
	
	
    

      
1
WScript.Echo("Hello, World!");




    

	

  
  








  


    

  


  

  

  
    







  
  

	

	  
	

	
	
	
    

      
1
+++++++++[->+++++>++++++++>+++++++++++<<<]>>.>++.+++++++..+++.<<-.[->-<]>++++.>++++++++.--------.+++.------.--------.<+.




    

	

  
  








  


  

  
    







  
  

	

	  文字の修正を困難にしてみました。

	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
#include<stdio.h>
int func1(int x)
{
    return 87.5+x*(49.6-x*(23.4+x*(10.92-x*(8.9926+x*(0.9083-x*(1.15363
            +x*(0.058376-x*(0.0680293+x*(0.0036643-x*(0.001878514
            +x*(1.313232e-4-x*(1.94342e-5+x*1.685236e-6))))))))))));
}
int main(){
    int n;
    for(n=-7;n<7;n++){
        putchar(func1(n));
    }
    return 0;
}




    

	

  
  








  


  

  
    







  
  

	

	  awk でオーソドックスに。
ただし、Anerchy Golf の結果から分かるようにこれが最短ではないです。
	

	
	
	
    

      
1
BEGIN{print "Hello, world!"}




    

	

  
  








  
    

      
      







  
  

	

	  
屁理屈のようだけれど、“Hello World!”と書いたテキスト・ファイルを用意しておいて、“test.txt”とでも名前をつけておく。
chmod +x　test.txt とやって、実行すればいい。


	

	
	
	
    

      
1
2
3
#! gawk

{ print }




    

	

  
  








  


    

  


  

  
    







  
  

	

	  Hello, world! がうしろの方から出てきます :D
	

	
	
	
    

      
1
2
3
4
5
6
7
8
(defun hello-world ()
  (interactive)
  (let ((str "Hello, world!"))
    (dotimes (i 14 str)
      (message (substring str (- 13 i) 13))
      (sit-for 0.1))))

(hello-world)




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
2
3
4
5
6
7
class Program
{
  static void Main()
  {
    System.Console.WriteLine("Hello, world!");
  }
}




    

	

  
  








  


  

  
    







  
  

	

	  
Mathematicaで書いている人が誰もいなかったので…

	

	
	
	
    

      
1
Print["Hello, World!"]




    

	

  
  








  


  

  
    







  
  

	

	  
XSLTです。


	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
<?xml version="1.0" encoding="UTF-8"?>
<xsl:transform version="1.0"
	xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

<xsl:output method="text" encoding="UTF-8"/>

<xsl:template match="/">
	<xsl:text>Hello, world!</xsl:text>
</xsl:template>

</xsl:transform>




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
2
3
4
5
6
class HelloWorld {
    static {
        java.util.logging.Logger.getAnonymousLogger().severe("Hello, world!");
        System.exit(0);
    }
}




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
println("Hello, world!")




    

	

  
  








  


  

  
    







  
  






  


  

  
    







  
  

	

	  昔お世話になったので、ちょっと書いてみた。
	

	
	
	
    

      
1
mes "Hello, world!"




    

	

  
  








  
    

      
      







  
  

	

	  あぁ、間違えた。
コメントとコードが逆だ。
	

	
	
	

  
  








  
    

      
      







  
  

	

	  直しておきました。
	

	
	
	

  
  








  


    

  


    

  


  

  

  
    







  
  

	

	  

	

	
	
	
    

      
1
print("Hello, world!")




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
(format t "hello world!")




    

	

  
  








  


  

  

  
    







  
  

	

	  とりあえずHelloworldくらいは全言語埋めたいですねえ。
	

	
	
	
    

      
1
2
3
4
5
6
7
8
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD-01.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
MAIN.
	DISPLAY "Hello, world!"
	STOP RUN.




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
print "Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
2
3
module doukaku;
private import std.stdio;
void main() { std.stdio.writefln("Hello, world!"); }




    

	

  
  








  


  

  
    







  
  

	

	  
とりあえず

	

	
	
	
    

      
1
puts 'Hello, world!'




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
trace('Hello, world!');




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
display dialog "Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
2
3
4
program Hello;
begin
  writeln ('Hello, world!');
end.




    

	

  
  








  


  

  
    







  
  

	

	  Delphiのコンソールアプリケーションでは、$APPTYPE CONSOLEを指定しないとエラーになります。
	

	
	
	
    

      
1
2
3
4
5
program hello;
{$APPTYPE CONSOLE}
begin
  WriteLn('Hello, world!');
end.




    

	

  
  








  


  

  
    







  
  

	

	  N88-BASIC 懐かしい。。。
	

	
	
	
    

      
1
10 PRINT "Hello, World!"




    

	

  
  








  


  

  
    







  
  






  
    

      
      







  
  

	

	  まあ、、、こんな簡単なプログラムで、ミスを。。。恥かしい。。。
	

	
	
	
    

      
1
2
3
C234567
      WRITE(*,*) 'Hello, World!'
      END




    

	

  
  








  


    

  


  

  

  
    







  
  

	

	  Bash が許されるなら、DOS の COMMAND.COM も　許されるはず。。。
	

	
	
	
    

      
1
ECHO Hello, World!




    

	

  
  








  


  

  
    







  
  

	

	  以外と忘れられてますね。VBA。
	

	
	
	
    

      
1
2
3
Sub HelloWorld()
    MsgBox "Hello, World!"
End Sub




    

	

  
  








  


  

  
    







  
  

	

	  これ、sed スクリプトというのかどうか疑問ですが、一応ポスト。
	

	
	
	
    

      
1
echo "" | sed 'c Hellow, world!'




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
:-writeln('Hello World!').




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
2
3
4
5
6
7
#include <stdio.h>

int main ()
{
	printf("Hello, world!\n");
	return 0;
}




    

	

  
  








  
    

      
      







  
  

	

	  

	

	
	
	
    

      
1
2
3
4
5
6
7
#import <Foundation/Foundation.h>

int main ()
{
	NSLog(@"Hello, world!\n");
	return 0;
}




    

	

  
  








  


    

  


  

  

  
    







  
  

	

	  
あると思ったけど無かった。 Linux, 32bitで　hello world OS依存しまくりｗ

	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
section .data
msg	db 'hello, world', 0Ah
len	equ	$-msg

section .text
global  _start
_start: mov	edx, len
	mov	ecx, msg
	mov	ebx, 1
	mov	eax, 4
	int	0x80

	mov	ebx, 0
	mov	eax, 1
	int	0x80




    

	

  
  








  
    

      
      







  
  

	

	  x86 cpuって事もつけたしとく
	

	
	
	

  
  








  


    

  


  

  
    







  
  

	

	  
!抜かしてた

	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
section .data
msg	db 'hello, world!', 0Ah
len	equ	$-msg

section .text
global  _start
_start: mov	edx, len
	mov	ecx, msg
	mov	ebx, 1
	mov	eax, 4
	int	0x80

	mov	ebx, 0
	mov	eax, 1
	int	0x80




    

	

  
  








  


  

  

  
    







  
  

	

	  
win verです　nasmコンパイラ　32bit(16bitでも動くはずだけど) x86cpu 

レジスタのみで処理は完結

	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
mov ah, 02

mov dl, 48h
int 21h
mov dl, 65h
int 21h
mov dl, 6Ch
int 21h
mov dl, 6Ch
int 21h
mov dl, 6Fh
int 21h
mov dl, 2Ch
int 21h
mov dl, 77h
int 21h
mov dl, 6Fh
int 21h
mov dl, 72h
int 21h
mov dl, 6Ch
int 21h
mov dl, 64h
int 21h
mov dl, 21h
int 21h

mov ah, 4ch
mov al, 0
int 21h




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
module doukaku;
private import std.stdio;

class Hello
{
  this()
  {
    writef("Hello");
  }

  void puts(void delegate() dg)
  {
    dg();
  }

  ~this()
  {
    writef(" world!\n");
  }
}

int main()
{
  (new Hello()).puts(
  {
    writef(",");
  });
  return 0;
}




    

	

  
  








  


  

  
    







  
  

	

	  これだけの事に無意味にクラス。無意味に関数。
	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
$hello_world = new hello_world();

print $hello_world->print_word();

class hello_world{
	function hello_world(){
	}

	function print_word(){
		$str = "Hello, world!";
		return $str;
	}
}




    

	

  
  








  


  

  
    







  
  

	

	  Matlabで単純に
	

	
	
	
    

      
1
disp('Hello, world!');




    

	

  
  








  


  

  
    







  
  

	

	  
C++始めました。ど素人ですが、ちょこちょこ投稿するつもりです。とりあえず、g++を使用しました。

	

	
	
	
    

      
1
2
3
4
5
6
7
#include <iostream>

int main()
{
	std::cout << "Hello, world!" << std::endl;
	return 0;
}




    

	

  
  








  


  

  
    







  
  

	

	  PHPから移植……すいませんごめんなさい。
	

	
	
	
    

      
1
Hello, world!




    

	

  
  








  


  

  
    







  
  

	

	  
たまにはこういうのもいいですよね☆

	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include<stdio.h>
int main(void){
  int c[]={
    0x7f,0x08,0x08,0x08,0x7f,0x00,
    0x38,0x54,0x54,0x54,0x58,0x00,
    0x00,0x41,0x7f,0x40,0x00,0x00,
    0x00,0x41,0x7f,0x40,0x00,0x00,
    0x38,0x44,0x44,0x44,0x38,0x00,
    0x00,0x50,0x30,0x00,0x00,0x00,
    0x3c,0x40,0x30,0x40,0x3c,0x00,
    0x38,0x44,0x44,0x44,0x38,0x00,
    0x7c,0x08,0x04,0x04,0x08,0x00,
    0x00,0x41,0x7f,0x40,0x00,0x00,
    0x30,0x48,0x48,0x48,0x7f,0x00,
    0x00,0x00,0x5f,0x00,0x00,0x00};
  for(int i=0;i<8;i++){
    for(int j=0;j<72;j++)
      printf("%c",(c[j]>>i&1)*3+32);
    printf("\n");
  }
  return 0;
}




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
"Hello, World!"




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
println("Hello, world!")




    

	

  
  








  


  

  
    







  
  

	

	  
印刷できると思います。

	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
%!
/inch {72 mul} bind def
/sheetheight 11.64 inch def
/sheetwidth   8.27 inch def
/Courier 24 selectfont

sheetwidth  24 2 div 12 mul sub 2 div
sheetheight 2 div
moveto
(Hello world!) show
showpage




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
println "Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  
ぐるんぐるんいっぱい出力するようにしてみました。


	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
%!

/inch {72 mul} bind def
/sheetheight 11.64 inch def
/sheetwidth   8.27 inch def
/Helvetica 12 selectfont

sheetwidth 2 div sheetheight 2 div moveto

0 20 720 {
  gsave
    currentpoint translate
    dup
    rotate
    80 div dup
    scale
    15 0 moveto
    (Hello, world!) show
  grestore
} for

showpage




    

	

  
  








  


  

  
    







  
  

	

	  基本を
	

	
	
	
    

      
1
2
import java.lang.System;
System.out.print("Hello World");




    

	

  
  








  


  

  
    







  
  

	

	  
GUI も書いてみました。

	

	
	
	
    

      
1
2
3
4
5
6
7
import javafx.ui.*;
Frame{
  content:Label{
    text:"hello world"
  }
  visible:true
}




    

	

  
  








  


  

  
    







  
  

	

	  
OCamlはあるのにStandardMLは無い。。。

	

	
	
	
    

      
1
print ("Hello, world!")




    

	

  
  








  


  

  
    







  
  

	

	  
% tex helloworld.tex
This is TeX, Version 3.141592 (Web2C 7.5.4)
(./helloworld.tex [1] )
Output written on helloworld.dvi (1 page, 228 bytes).
Transcript written on helloworld.log.

	

	
	
	
    

      
1
Hello, world!\end




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
"Hello, world!".p;




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
print ("Hello, world!")




    

	

  
  








  


  

  

  
    







  
  

	

	  
	

	
	
	
    

      
1
"Hello, world!" print




    

	

  
  








  


  

  
    







  
  

	

	  
HSPが初プログラミングだからねっ



	

	
	
	
    

      
1
2
;HSP on helloworld
mes "Hello,World!"




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
2
3
use autobox;
use autobox::Core;
'hello, world!'->ucfirst()->print();




    

	

  
  








  


  

  
    







  
  

	

	  
import __hello__ と書きたかったけど、お題と文字がちょっと違う。。

print, sys.stdout.write が出てるので、YAWTDI: バイトコード版

	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
import new
from opcode import opmap

consts = [None, 'Hello, world!']
bytecode = ''.join(map(chr, [
  opmap['LOAD_CONST'], consts.index('Hello, world!'), 0,
  opmap['PRINT_ITEM'],
  opmap['PRINT_NEWLINE'],
  opmap['LOAD_CONST'], consts.index(None), 0,
  opmap['RETURN_VALUE']
]))

exec new.code( 0, 0, 1, 1, bytecode, tuple(consts), (), (), "", "hello", 0, "\x00\x01")




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
2
3
4
5
6
7
8
9
// hello.icl
module hello
import StdEnv
($) infixr 1
($) a b :== a b
(>>=) infixl 0
(>>=) a b = \ w -> (\ (x, w) -> b x w ) $ a w
liftM m :== \ lst -> \ w ->  (m lst, w)
Start w = snd ((stdio >>= liftM (fwrites "Hello World!\n") >>= fclose) w)




    

	

  
  








  
    

      
      







  
  

	

	  
よりhaskell風に

	

	
	
	
    

      
1
2
3
module hello
import StdEnv;($) infixr 1;($) a b :== a b;(>>.) infixl 0;(>>.) a b = \ w -> (\ (_, w) -> b w) (a w);(>>=) infixl 0;(>>=) a b = \ w -> (\ (x, w) -> b x w ) (a w);liftM m :== \ lst -> \ w ->  (m lst, w);join del [x:xs]= (toString x) +++ del +++ (join del xs);join _ [] = "";putStr str = \w -> (stdio >>= liftM ( fwrites str) >>= fclose) w;Start w =snd $ main w;
main = putStr "Hello," >>. putStr " World!\n"




    

	

  
  








  


    

  


  

  

  
    







  
  

	

	  
Gauche勉強中です

	

	
	

	  see: 人に優しい出力
	
  
	
	
	
    

      
1
(display "Hello world!")




    

	

  
  








  


  

  
    







  
  

	

	  
Unlambdaです

	

	
	
	
    

      
1
`````````````.H.e.l.l.o.,. o.w.o.r.l.d.!v




    

	

  
  








  
    

      
      







  
  

	

	  
o.wのoって必要ですか？

	

	
	
	

  
  








  


    

  


  

  

  
    







  
  

	

	  
オンライン版(http://dolittle.eplang.jp/pconline/applet.html)もあるので気軽に試せます。

	

	
	

	  see: プログラミング言語「ドリトル」 
	
  
	
	
	
    

      
1
ラベル！『Hello, world!』作る。




    

	

  
  








  


  

  

  
    







  
  

	

	  
まだ出ていないようなので。

	

	
	
	
    

      
1
2
3
4
5
with ada.text_io;
procedure HelloWorld is
begin
 ada.text_io.put_line("Hello, world!");
end HelloWorld;




    

	

  
  








  


  

  
    







  
  

	

	  秀丸マクロがまだなかったようなので。
	

	
	
	
    

      
1
message "Hello, World!";




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
echo 'Hello, world!'




    

	

  
  








  


  

  
    







  
  

	

	  
だいぶ前からFortressあるのに誰も使ってなかったので。


	

	
	
	
    

      
1
2
export Executable
run(args) = print "Hello, world!\n"




    

	

  
  








  


  

  
    







  
  

	

	  


コンピュータプログラミングの概念・技法・モデルで利用されている言語Ozです。







コードは参考ページそのままです。



id:mizp さんに感謝します。



	

	
	

	  see: 
	
  
	
	
	
    

      
1
2
3
4
5
6
7
8
functor
import
   Application
   System
define
   {System.show 'Hello,world!!'}
   {Application.exit 0}
end




    

	

  
  








  
    

      
      







  
  

	

	  
参考ページがでてなかったので追記


	

	
	

	  see: ozでHello,world - みずぴー日記
	
  
	
	
	

  
  








  


    

  
    

      
      







  
  

	

	  
さらにミスに気づいた。
id:mizp じゃなくて id:mzp


	

	
	
	

  
  








  


    

  


  

  

  

  
    







  
  

	

	  
POV-Rayで。
どこまで省略できるか、どんどん消してみた。


	

	
	
	
    

      
1
2
background {1}
text {ttf "crystal.ttf","Hello, world!",0,0 translate <-3.3,0,6>}




    

	

  
  








  


  

  
    







  
  

	

	  

Object#write を使った場合．



Object#writeln もある．





	

	
	
	
    

      
1
write("Hello, world!")




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
paste("Hello,","world!")




    

	

  
  








  


  

  
    







  
  

	

	  
uwscというのはwindowsのマウス操作の記録・再生ツールと思っていたら、
マニュアルを見るとまるきり言語ですね。

ところで、"Hello, world!"って、誰が誰に向かって言ってるんでしょうか。
プログラムの発する「うぶ声」ということなんでしょうかね。


	

	
	
	
    

      
1
msgbox("Hello, world!")




    

	

  
  








  


  

  
    







  
  

	

	  
Mac OS X (PowerPC) 付属の as で。
適当なファイルに保存して、次のコマンドでコンパイルします。


% as -o hello.o hello.s
% ld -o hello hello.o
% ./hello



	

	
	

	  see: 玄箱でアセンブリ
	
  
	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
        .machine ppc
        .globl _main

_main:
        lis     r4, ha16(msg)
        addi    r4, r4, lo16(msg)
        li      r3, 1           ; stdout                                          
        lis     r5, ha16(msg_len)
        addi    r5, r5, lo16(msg_len)
        li      r0, 4           ; sys_write                                       
        sc                      ; system call                                     

        li      r3, 0
        li      r0, 1           ; sys_exit                                        
        sc

        .data
        .align  2

msg:
        .asciz  "Hello, world!\n"
        msg_len = . - msg - 1




    

	

  
  








  


  

  
    







  
  

	

	  
Lisp 1.5です。文字の扱いがいまいち不確かなのですが、
上の命令は、指定した文をプリンタに出力します。
システムには大文字しか存在しないので全部大文字になります。
PRINTの代わりにPUNCHを使うとパンチカードに出力できるようです。

	

	
	
	
    

      
1
PRINT($$/HELLO, WORLD!/)




    

	

  
  








  


  

  
    







  
  

	

	  

スクレイピングで。





	

	
	
	
    

      
1
2
3
4
5
6
require "mechanize"
require "nkf"
agent = WWW::Mechanize.new
agent.user_agent_alias = 'Windows IE 6'
page = agent.get('http://ja.doukaku.org/2/').root
puts NKF.nkf("-s -xm0", page.at("/html/body//div[@id=\"comment3358\"]//div[@class=\"comment_body\"]").innerText).slice(/「(.+?)」/, 1)




    

	

  
  








  


  

  
    







  
  

	

	  
げんてー？


	

	
	

	  see: Gentee: Open Source Free Programming Language
	
  
	
	
	
    

      
1
2
3
4
func hello <main>
{
   print( "Hello, World!" )
}




    

	

  
  








  


  

  
    







  
  

	

	  
Factor です。


	

	
	
	
    

      
1
USE: io "Hello, world!" write




    

	

  
  








  


  

  
    







  
  

	

	  Arc発表記念投稿！



arc> (pr "Hello, World!\n")

Hello, World!

"Hello, World!\n"
	

	
	

	  see: Arc Forum | Arc
	
  
	
	
	
    

      
1
(pr "Hello, World!\n")




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
print("Hello, world!\n");




    

	

  
  








  


  

  
    







  
  

	

	  
Forthでの初投稿。


	

	
	
	
    

      
1
." Hello, World!"




    

	

  
  








  


  

  
    







  
  

	

	  
Palo Alto 版の Tiny Basic です。
CP/M Emulator 上で確認しました。


	

	
	

	  see: CP/M Emulator for Macintosh
	
  
	
	
	
    

      
1
10 PRINT "Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
print "\x48\x65\x6c\x6c\x6f\x2c\x20\x77\x6f\x72\x6c\x64\x21\n";




    

	

  
  








  


  

  
    







  
  

	

	  
だれもやっていないみたいなので Sukuna で。


	

	
	
	
    

      
1
." Hello, world!" cr




    

	

  
  








  


  

  
    







  
  

	

	  
HSPによる別解です。


	

	
	
	
    

      
1
2
3
4
5
6
#uselib "user32.dll"
#func MessageBoxA "MessageBoxA" sptr, sptr, sptr, sptr
outString="Hello World!"
capString="Win32HSP"
MessageBoxA hwnd, outString, capString, 0x0
stop




    

	

  
  








  


  

  

  
    







  
  

	

	  
アセンブラで、コマンドプロンプト(cmd.exe)から起動する場合はこうなりますか。
NASMとALINKで実行ファイル作って確認しました。
オブジェクトファイル名はmain.objとして、ALINKの"-subsys con"オプションでリンクします。
その他のオプションは通常のwin32アプリ作成と同じにしました。


	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
extern ExitProcess
extern GetStdHandle
extern WriteConsoleA
section .text
global main
main:
        push -11d             
        Call GetStdHandle     
        push 0x0              
        push wtnChars         
        push dword [outsize]  
        push outstring        
        push eax              
        call WriteConsoleA    
        call ExitProcess      
        ret
section .data
outstring: db "Hello, World!"
outsize:   dd $-outstring
wtnChars: dd 0x0




    

	

  
  








  


  

  
    







  
  

	

	  

64bit Linux で NASM によるアセンブラです。
   64bit ではシステムコールは int 0x80 ではなく syscall を使います。システムコール番号も違い、システムコールで使うレジスタも次の順番になります。



    
 
  1. 
     rdi
 
    2. 

 
  2. 
     rsi
 
    3. 

 
  3. 
     rdx
 
    4. 

 
  4. 
     rcx
 
    5. 

 
  5. 
     r8
 
    6. 

 
  6. 
     r9
 
    7. 





	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
;;; nasm -f elf64 hello.asm && ld -o hello hello.o && ./hello
        bits 64
section .text
global _start
_start:
        mov rax, 1
        mov rdi, 1
        mov rsi, msg
        mov rdx, len
        syscall

        mov rax, 60
        xor rdi, rdi
        syscall

section .data
        msg     db      'Hello, world!'
        len     equ     $ - msg




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
2
3
4
5
6
7
8
9
print_endline (Obj.magic
  [|6.5188685003647886e+265; 4.77846189372792702e-299|]:string);;

(* open Obj;;
let of_string (s:string) =
  let t = dup (repr s) in
  set_tag t double_array_tag;
  (obj t:float array);;
*)




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
Write-Output "Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  
だれも書かないので。


	

	
	
	
    

      
1
"Hello World!" println ;




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
2
3
4
5
6
7
8
MODULE HelloWorld;

IMPORT InOut;

BEGIN
    InOut.WriteString("Hello World!");
    InOut.WriteLn
END HelloWorld.




    

	

  
  








  


  

  
    







  
  

	

	  改行なし版
	

	
	
	
    

      
1
print 'Hello, world!'




    

	

  
  








  


  

  
    







  
  

	

	  


map覚えたてです



	

	
	
	
    

      
1
map{print chr hex}qw(48 65 6c 6c 6f 2c 20 77 6f 72 6c 64 21);




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
#include <iostream>

using namespace std;

int main()
{
    printf("Hello, world!");
    
    return 0;
}




    

	

  
  








  


  

  
    







  
  

	

	  Arcのようにprnもあるようですが、printlnで
	

	
	

	  see: Clojure
	
  
	
	
	
    

      
1
(println "Hello, World!")




    

	

  
  








  


  

  
    







  
  

	

	  
マニュアルに載っている例そのままですが。


	

	
	

	  see: LLVM Language Reference Manual
	
  
	
	
	
    

      
1
2
3
4
5
6
7
8
9
declare i32 @puts(i8 *)

@msg = internal constant [13 x i8] c"Hello, world!"

define i32 @main() {
    %cast = getelementptr [13 x i8]* @msg, i32 0, i32 0
    call i32 @puts(i8 * %cast)
    ret i32 0
}




    

	

  
  








  
    

      
      







  
  

	

	  
文字列定数の最後に0をつけるべきでした。


	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
--- a/hello.s   Sat Sep 20 02:38:09 2008 +0900
+++ b/hello.s   Sat Sep 20 14:05:19 2008 +0900
@@ -1,9 +1,9 @@ declare i32 @puts(i8 *)
 declare i32 @puts(i8 *)
 
-@msg = internal constant [13 x i8] c"Hello, world!"
+@msg = internal constant [14 x i8] c"Hello, world!\00"
 
 define i32 @main() {
-    %cast = getelementptr [13 x i8]* @msg, i32 0, i32 0
+    %cast = getelementptr [14 x i8]* @msg, i32 0, i32 0
     call i32 @puts(i8 * %cast)
     ret i32 0
 }




    

	

  
  








  


    

  


  

  

  
    







  
  

	

	  
limboはじめました。
まずはエディタではまる。

コードは公式のドキュメントほぼそのまま。
d2.bとして保存、
limbo d2.b
でビルド。
d2
で実行。


	

	
	

	  see: Vita Nuova
	
  
	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
implement d2;

include "sys.m";
include "draw.m";

d2: module
{
    init: fn(ctxt: ref Draw->Context, argv: list of string);
};

init (ctxt: ref Draw->Context, argv: list of string)
{
    sys: Sys;
    sys = load Sys Sys->PATH;
    sys->print("Hello, World!\n");
}




    

	

  
  








  


  

  
    







  
  

	

	  
入門書に載っていそう。


	

	
	
	
    

      
1
2
3
4
5
6
7
8
9
using System;

class Program
{
    static void Main()
    {
        Console.WriteLine("Hello, world!");
    }
}




    

	

  
  








  


  

  
    







  
  

	

	  
whitespaceで。


	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
                
    
                        
    
                        
    
                        
    
                              
    
                    
    
              
    
                              
    
                              
    
                        
    
                        
    
                     
    
                 
    
               
    
  


.




    

	

  
  








  


  

  
    







  
  

	

	  
FORTRANと言ったらこうでしょう(^^;。

	

	
	
	
    

      
1
2
3
4
5
C234567
      WRITE(6,100)
      STOP
  100 FORMAT(1H ,13HHELLO, WORLD!)
      END




    

	

  
  








  
    

      
      







  
  

	

	  
　あ，題意の Hello, world! になってませんね。全部大文字になっています。でも初期のFORTRANでは全部大文字になるのが当たり前だったんです。

　最近の処理系なら小文字でもコンパイルできますけど。

	

	
	
	
    

      
1
2
3
4
5
C234567
      WRITE(6,100)
      STOP
  100 FORMAT(1H ,13HHello, world!)
      END




    

	

  
  








  


    

  


  

  

  
    







  
  

	

	  
言語は ViViScript

	

	
	
	
    

      
1
cout << "Hello, world!\n";




    

	

  
  








  


  

  
    







  
  

	

	  
その２からやってこっちを忘れていた。

	

	
	
	
    

      
1
exit echo "Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  
間違えました。Jの引用符は「'」だけでした。

	

	
	
	
    

      
1
exit echo 'Hello, world!'




    

	

  
  








  


  

  
    







  
  

	

	  Loose XAMLです。.NET Framework 3.0のある環境で、このコードを拡張子xamlで保存すれば、ダブルクリックすると表示できます。
	

	
	
	
    

      
1
2
3
4
5
6
7
8
9
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Page
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
    <Label
        FontSize="36pt"
        HorizontalContentAlignment="Center"
        VerticalContentAlignment="Center">Hello, wrold!</Label>
</Page>




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
say "Hello,World"




    

	

  
  








  


  

  
    







  
  

	

	  CIL（共通中間言語）とかMSIL（MS中間言語）とか言う奴、すなわち.NET言語における中間言語です。C#ではできない、クラス外（アセンブリの範囲）で関数mainを定義したり、エントリポイントの名前がMainではなくC++風にmainとしていたりするなど自由です。
	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
.assembly HelloWorld {}

.method static void main()
{
    .entrypoint
    .maxstack 1
    ldstr    "Hello, world!"
    call    void [mscorlib]System.Console::WriteLine(string)
    ret
}




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
2
3
4
5
6
7
#include <stdio.h>

int main(void)
{
    printf("Hello, world!\n");
    return 0;
}




    

	

  
  








  


  

  
    







  
  

	

	  まだWindows Script Hostを使ったものが出ていないようなので。
	

	
	
	
    

      
1
WScript.Echo('Hello, world!');




    

	

  
  








  
    

      
      







  
  

	

	  

ごめんなさい。#313で既出でした。





	

	
	
	

  
  








  


    

  


  

  

  
    







  
  

	

	  
HTMLで書いて言語にOtherを選ぶよりは、XHTMLで書いてOther(XML)とするほうを選びました。lang属性の使い方に自信がありませんがbody要素にまで使ってみました。


	

	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
  <head>
    <title>どう書く？org お題: Hello, world!</title>
  </head>
  <body xml:lang="en" lang="en">
    <p>Hello, World!</p>
  </body>
</html>




    

	

  
  








  


  

  
    







  
  

	

	  DOS (16 bit) アセンブリ言語です。NASMを使いました。コマンドラインはnasm -f bin -o hello.com hello.asmという風になります。
	

	
	

	  see: 目指せプログラマー - アセンブラ ～MS-DOSの世界～ - コマンドラインからの引数
	
  
	
	
	
    

      
1
2
3
4
5
6
7
8
org 100h
    mov    ah,9
    mov    dx,msg
    int    21h ; $が現れるまでの文字列出力
    mov    ax,4c00h
    int    21h ; 終了
msg:
    db    'Hello, world!$'




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	

	  see: Fortran入門:モジュール
	
  
	
	
	
    

      
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
Module Universe
     implicit none
     Public :: HelloWorld
     contains
         Subroutine HelloWorld()
             Print *, "Hello World"
         End Subroutine HelloWorld
End Module

Program Main
     use Universe, Only: HelloWorld
     implicit none
     call HelloWorld
End Program Main




    

	

  
  








  


  

  
    







  
  

	

	  最近話題のGoで書いてみる。

	

	
	

	  see: The Go Programming Language 	
	
  
	
	
	
    

      
1
2
3
4
5
6
7
package main
import "fmt"

func main()
{
        fmt.Printf("Hello, World!\n")
}




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
"Hello, world!" | print;




    

	

  
  








  


  

  
    







  
  

	

	  

	

	
	
	
    

      
1
puts "Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
write,"Hello, world!"




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
`|




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
2
using system;
puts "Hello, world!";




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
print("Hello, world!")




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
print("Hello, woeld!");




    

	

  
  








  


  

  
    







  
  

	

	  
	

	
	
	
    

      
1
printf("Hello, world!")




    

	

  
  








  


  
















Index





Feed










Other





Link




Pathtraq



loading...














Creative Commons License
このサイトの内容は、
クリエイティブ・コモンズ・ライセンスの下でライセンスされています。
[詳細]