zettacode 0.1.3 → 0.1.4

data/files.zettacode2/hello_world.text/cfengine.txt

@@ -0,0 +1,11 @@
+#!/usr/bin/env cf-agent
+# without --no-lock option to cf-agent
+# this output will only occur once per minute
+# this is by design.
+bundle agent main
+{
+  reports:
+    "Hello world!";
+}
+
+See https://docs.cfengine.com/docs/master/examples.html for a more complete example and introduction.

data/files.zettacode2/hello_world.text/chapel.txt

@@ -0,0 +1 @@
+writeln("Hello world!");

data/files.zettacode2/hello_world.text/chef.txt

@@ -0,0 +1,36 @@
+Goodbye World Souffle.
+ 
+Ingredients.
+71 g green beans
+111 cups oil
+98 g butter
+121 ml yogurt
+101 eggs
+44 g wheat flour
+32 zucchinis
+119 ml water
+114 g red salmon
+108 g lard
+100 g dijon mustard
+33 potatoes
+ 
+Method.
+Put potatoes into the mixing bowl.
+Put dijon mustard into the mixing bowl.
+Put lard into the mixing bowl.
+Put red salmon into the mixing bowl.
+Put oil into the mixing bowl.
+Put water into the mixing bowl.
+Put zucchinis into the mixing bowl.
+Put wheat flour into the mixing bowl.
+Put eggs into the mixing bowl.
+Put yogurt into the mixing bowl.
+Put butter into the mixing bowl.
+Put dijon mustard into the mixing bowl.
+Put oil into the mixing bowl.
+Put oil into the mixing bowl.
+Put green beans into the mixing bowl.
+Liquefy contents of the mixing bowl.
+Pour contents of the mixing bowl into the baking dish.
+ 
+Serves 1.

data/files.zettacode2/hello_world.text/chuck.txt

@@ -0,0 +1 @@
+<<< "Hello world!">>>;

data/files.zettacode2/hello_world.text/cind.txt

@@ -0,0 +1,6 @@
+
+
+execute() {
+    host.println("Hello world!");
+}
+

data/files.zettacode2/hello_world.text/clay.txt

@@ -0,0 +1,3 @@
+main() {
+    println("Hello world!");
+}

data/files.zettacode2/hello_world.text/clean.txt

@@ -0,0 +1 @@
+Start = "Hello world!"

data/files.zettacode2/hello_world.text/clio.txt

@@ -0,0 +1 @@
+'hello world!' -> print

data/files.zettacode2/hello_world.text/clipper.txt

@@ -0,0 +1 @@
+? "Hello world!"

data/files.zettacode2/hello_world.text/clips.txt

@@ -0,0 +1 @@
+(printout t "Hello world!" crlf)

data/files.zettacode2/hello_world.text/clojure.txt

@@ -0,0 +1 @@
+(println "Hello world!")

data/files.zettacode2/hello_world.text/clu.txt

@@ -0,0 +1,4 @@
+start_up = proc ()
+    po: stream := stream$primary_output()
+    stream$putl(po, "Hello world!")
+end start_up

data/files.zettacode2/hello_world.text/cmake.txt

@@ -0,0 +1,5 @@
+message(STATUS "Hello world!")
+
+This outputs
+
+-- Hello world!

data/files.zettacode2/hello_world.text/cobol.txt

@@ -0,0 +1,22 @@
+Using fixed format.
+{{works with|OpenCOBOL}}
+{{works with|Dell Enterprise COBOL}}
+
+	program-id. hello.
+	procedure division.
+		display "Hello world!".
+		stop run.
+
+Using relaxed compilation rules, the hello program can become a single DISPLAY statement.
+{{works with|GnuCOBOL}}
+
+display"Hello, world".
+
+prompt$ cobc -x -frelax-syntax -free hello.cob
+hello.cob: 1: Warning: PROGRAM-ID header missing - assumed
+hello.cob: 1: Warning: PROCEDURE DIVISION header missing - assumed
+
+prompt$ ./hello
+Hello, world
+
+''Note how COBOL can handle the DISPLAY reserved word without a space before the quoted string, the quote being a compile time scan delimiter.  The full stop period after the single statement is still mandatory, at least for GnuCOBOL and a clean compile to executable.''

data/files.zettacode2/hello_world.text/cobra.txt

@@ -0,0 +1,3 @@
+class Hello
+    def main
+        print 'Hello world!'

data/files.zettacode2/hello_world.text/coffeescript.txt

@@ -0,0 +1,4 @@
+{{works with|Node.js}}
+console.log "Hello world!"
+{{works with|Rhino engine}}
+print "Hello world!"

data/files.zettacode2/hello_world.text/coldfusion.txt

@@ -0,0 +1 @@
+<cfoutput>Hello world!</cfoutput>

data/files.zettacode2/hello_world.text/comal.txt

@@ -0,0 +1 @@
+PRINT "Hello world!"

data/files.zettacode2/hello_world.text/comefrom0x10.txt

@@ -0,0 +1,3 @@
+'Hello world!'
+
+"Hello world!"

data/files.zettacode2/hello_world.text/commodore_basic.txt

@@ -0,0 +1,5 @@
+By default some Commodore computers boot into uppercase/graphics mode (C64, C128, VIC-20, Plus 4, etc.) while others (PET, CBM etc.) boot into lowercase/uppercase mode. Therefore, depending on machine used, the CHR$(14) may or may not be required to switch into mixed-case mode.
+10 print chr$(147);chr$(14);:REM 147=clear screen, 14=switch to lowercase mode
+20 print "Hello world!"
+30 end
+

data/files.zettacode2/hello_world.text/common_lisp.txt

@@ -0,0 +1,18 @@
+(format t "Hello world!~%")
+
+Or
+
+(print "Hello world!")
+
+===Alternate solution===
+I use [https://franz.com/downloads/clp/survey Allegro CL 10.1]
+
+
+;; Project : Hello world/Text
+
+(format t "~a" "Hello world!")
+
+Output:
+
+Hello world!
+

data/files.zettacode2/hello_world.text/component_pascal.txt

@@ -0,0 +1,10 @@
+
+MODULE Hello;
+	IMPORT Out;
+	
+	PROCEDURE Do*;
+	BEGIN
+		Out.String("Hello world!"); Out.Ln
+	END Do;
+END Hello.
+Run command ''Hello.Do'' by commander.

data/files.zettacode2/hello_world.text/coq.txt

@@ -0,0 +1,5 @@
+
+Require Import Coq.Strings.String.
+
+Eval compute in ("Hello world!"%string).
+

data/files.zettacode2/hello_world.text/corescript.txt

@@ -0,0 +1 @@
+print Hello world!

data/files.zettacode2/hello_world.text/cowgol.txt

@@ -0,0 +1,4 @@
+include "cowgol.coh";
+print("Hello world!");
+print_nl();
+

data/files.zettacode2/hello_world.text/crack.txt

@@ -0,0 +1,4 @@
+
+import crack.io cout;
+cout `Hello world!\n`;
+

data/files.zettacode2/hello_world.text/creative_basic.txt

@@ -0,0 +1,15 @@
+<syntaxhighlight lang="creative basic">
+OPENCONSOLE
+
+PRINT"Hello world!"
+
+'This line could be left out.
+PRINT:PRINT:PRINT"Press any key to end."
+
+'Keep the console from closing right away so the text can be read.
+DO:UNTIL INKEY$<>""
+
+CLOSECONSOLE
+
+END
+

data/files.zettacode2/hello_world.text/crystal.txt

@@ -0,0 +1 @@
+puts "Hello world!"

data/files.zettacode2/hello_world.text/d.txt

@@ -0,0 +1,6 @@
+{{works with|D|2.0}}
+import std.stdio;
+
+void main() {
+    writeln("Hello world!");
+}

data/files.zettacode2/hello_world.text/dafny.txt

@@ -0,0 +1,6 @@
+
+method Main() {
+  print "hello, world!\n";
+  assert 10 < 2;
+}
+

data/files.zettacode2/hello_world.text/dao.txt

@@ -0,0 +1 @@
+io.writeln( 'Hello world!' )

data/files.zettacode2/hello_world.text/dart.txt

@@ -0,0 +1,4 @@
+main() {
+    var bye = 'Hello world!';
+    print("$bye");
+}

data/files.zettacode2/hello_world.text/dataweave.txt

@@ -0,0 +1 @@
+"Hello world!"

data/files.zettacode2/hello_world.text/dbl.txt

@@ -0,0 +1,15 @@
+;
+;       Hello world for DBL version 4 by Dario B.
+;
+                                PROC
+;------------------------------------------------------------------
+        XCALL FLAGS (0007000000,1)           ;Suppress STOP message
+
+        OPEN (1,O,'TT:')
+        WRITES (1,"Hello world")
+
+        DISPLAY (1,"Hello world",10)
+        DISPLAY (1,$SCR_MOV(-1,12),"again",10)  ;move up, right and print
+
+        CLOSE 1
+END

data/files.zettacode2/hello_world.text/dc.txt

@@ -0,0 +1,3 @@
+[Hello world!]p
+...or print a numerically represented string.
+5735816763073014741799356604682 P

data/files.zettacode2/hello_world.text/dcl.txt

@@ -0,0 +1 @@
+$ write sys$output "Hello world!"

data/files.zettacode2/hello_world.text/ddnc.txt

@@ -0,0 +1,40 @@
+
+DDNC can only output to a single 7-segment LED display digit, so first we must convert each character into its 7-segment equivalent numerical value.
+
+The three horizontal bars are assigned bits 6, 3, and 0 from top to bottom. The top two vertical bars are assigned bits 5 and 4 while the bottom two vertical bars are assigned bits 2 and 1 from left to right.
+
+Because DDNC can only interpret literals in decimal, each binary number was converted and stored in consecutive memory cells starting at cell 10.
+
+The code can be divided into three sections. The first stores the character numbers in order in an array. The second sets up the loop by loading a delay of 500 milliseconds to slot 3, the start address of the character array in memory to slot 2, and the number of times to loop (14) plus one to slot 5. The third section starts the loop of displaying the characters, waiting for the delay time, incrementing the pointer, decrementing the counter, and checking if the counter is negative to know whether to continue the loop.
+
+
+0 111 10
+0 15 11
+0 15 12
+0 31 13
+0 47 14
+0 59 15
+0 125 16
+0 3 17
+0 0 18
+0 63 19
+0 15 20
+0 12 21
+0 36 22
+0 31 23
+0 17 24
+
+0 500 3
+0 10 2
+0 15 5
+
+60 4
+2 2 1
+80 1
+72 3
+30 2
+31 5
+62 5
+61 4
+64
+

data/files.zettacode2/hello_world.text/delphi.txt

@@ -0,0 +1,7 @@
+
+program ProjectGoodbye;
+{$APPTYPE CONSOLE}
+begin
+  WriteLn('Hello world!');
+end.
+

data/files.zettacode2/hello_world.text/deviousyarn.txt

@@ -0,0 +1 @@
+o:"Hello world!

data/files.zettacode2/hello_world.text/dibol-11.txt

@@ -0,0 +1,14 @@
+<syntaxhighlight lang="dibol-11">
+          START     ;Hello World
+
+          RECORD  HELLO
+,         A11, 'Hello World'
+
+          PROC
+          XCALL FLAGS (0007000000,1)          ;Suppress STOP message
+
+          OPEN(8,O,'TT:')
+          WRITES(8,HELLO)
+          END
+
+

data/files.zettacode2/hello_world.text/diego.txt

@@ -0,0 +1,12 @@
+Once the caller has met the computer and its printer...
+with_computer(comp1)_printer(lp1)_text(Hello World!);
+If the caller is the computer...
+with_me()_printer(lp1)_text(Hello World!);
+...or can be shortened as...
+me()_ptr(lp1)_txt(Hello World!);
+If the computer has more than one printer...
+me()_printer()_text(Hello World!);
+If there are more than one computer which have zero or more printers...
+with_computer()_printer()_text(Hello World!);
+If there are zero or more printers connected to any thing (device)...
+with_printer()_text(Hello World!);

data/files.zettacode2/hello_world.text/div_games_studio.txt

@@ -0,0 +1,12 @@
+
+PROGRAM HELLOWORLD;
+
+BEGIN
+
+    WRITE_TEXT(0,160,100,4,"HELLO WORLD!");
+    LOOP
+        FRAME;
+    END
+END
+
+

data/files.zettacode2/hello_world.text/dm.txt

@@ -0,0 +1,5 @@
+
+/client/New()
+    ..()
+    src << "Hello world!"
+

data/files.zettacode2/hello_world.text/draco.txt

@@ -0,0 +1,3 @@
+proc nonrec main() void:
+    writeln("Hello world!")
+corp

data/files.zettacode2/hello_world.text/dragon.txt

@@ -0,0 +1,3 @@
+
+showln "Hello world!"
+

data/files.zettacode2/hello_world.text/dwscript.txt

@@ -0,0 +1,3 @@
+
+PrintLn('Hello world!');
+

data/files.zettacode2/hello_world.text/dyalect.txt

@@ -0,0 +1 @@
+print("Hello world!")

data/files.zettacode2/hello_world.text/dylan.net.txt

@@ -0,0 +1,28 @@
+{{works with|Mono|2.6.7}}
+{{works with|Mono|2.10.x}}
+{{works with|Mono|3.x.y}}
+{{works with|.NET|3.5}}
+{{works with|.NET|4.0}}
+{{works with|.NET|4.5}}
+One Line version:
+<syntaxhighlight lang="dylan.net">Console::WriteLine("Hello world!")
+
+Hello World Program:
+<syntaxhighlight lang="dylan.net">
+//compile using the new dylan.NET v, 11.5.1.2 or later
+//use mono to run the compiler
+#refstdasm mscorlib.dll
+
+import System
+
+assembly helloworld exe
+ver 1.2.0.0
+
+class public Program
+
+   method public static void main()
+      Console::WriteLine("Hello world!")
+   end method
+
+end class
+

data/files.zettacode2/hello_world.text/dylan.txt

@@ -0,0 +1,5 @@
+
+module: hello-world
+
+format-out("%s\n", "Hello world!");
+

data/files.zettacode2/hello_world.text/d/303/251j/303/240_vu.txt

@@ -0,0 +1 @@
+!print "Hello world!"

data/files.zettacode2/hello_world.text/e.txt

@@ -0,0 +1,3 @@
+println("Hello world!")
+
+stdout.println("Hello world!")

data/files.zettacode2/hello_world.text/easylang.txt

@@ -0,0 +1,2 @@
+
+print "Hello world!"

data/files.zettacode2/hello_world.text/ec.txt

@@ -0,0 +1,7 @@
+class GoodByeApp : Application
+{
+   void Main()
+   {
+      PrintLn("Hello world!");
+   }
+}

data/files.zettacode2/hello_world.text/echolisp.txt

@@ -0,0 +1,3 @@
+
+(display "Hello world!" "color:blue")
+

data/files.zettacode2/hello_world.text/ecl.txt

@@ -0,0 +1,3 @@
+
+OUTPUT('Hello world!');
+

data/files.zettacode2/hello_world.text/ecstasy.txt

@@ -0,0 +1,8 @@
+module HelloWorld
+    {
+    void run()
+        {
+        @Inject Console console;
+        console.println("Hello World!");
+        }
+    }

data/files.zettacode2/hello_world.text/edsac_order_code.txt

@@ -0,0 +1,34 @@
+The EDSAC did not support lower-case letters. The method used here is to include a separate <code>O</code> order to print each character: for short messages and labels this is quite adequate. A more general (though slightly more involved) solution for printing strings is given at [[Hello world/Line printer#EDSAC order code]].
+[ Print HELLO WORLD ]
+[ A program for the EDSAC ]
+[ Works with Initial Orders 2 ]
+
+T64K  [ Set load point: address 64 ]
+GK    [ Set base address ]
+O13@  [ Each O order outputs one ]
+O14@  [ character. The numerical ]
+O15@  [ parameter gives the offset ]
+O16@  [ (from the base address) where ]
+O17@  [ the character to print is ]
+O18@  [ stored ]
+O19@
+O20@
+O21@  
+O22@
+O23@
+O24@
+ZF    [ Stop ]
+*F    [ Shift to print letters ]
+HF    [ Character literals ]
+EF
+LF
+LF
+OF
+!F    [ Space character ]
+WF
+OF
+RF
+LF
+DF
+EZPF  [ Start program beginning at
+        the load point ]

data/files.zettacode2/hello_world.text/efene.txt

@@ -0,0 +1,10 @@
+short version (without a function)
+
+io.format("Hello world!~n")
+
+complete version (put this in a file and compile it)
+
+@public 
+run = fn () {
+    io.format("Hello world!~n")
+}

data/files.zettacode2/hello_world.text/egel.txt

@@ -0,0 +1,3 @@
+
+def main = "Hello World!"
+

data/files.zettacode2/hello_world.text/egison.txt

@@ -0,0 +1,6 @@
+
+
+(define $main
+  (lambda [$argv]
+    (write-string "Hello world!\n")))
+

data/files.zettacode2/hello_world.text/egl.txt

@@ -0,0 +1,9 @@
+{{works with|EDT}}
+{{works with|RBD}}
+
+program HelloWorld
+    function main()
+        SysLib.writeStdout("Hello world!");
+    end
+end
+

data/files.zettacode2/hello_world.text/eiffel.txt

@@ -0,0 +1,11 @@
+{{wikipedia|Eiffel (programming language)}}
+class
+    HELLO_WORLD
+create
+    make
+feature
+    make
+        do
+            print ("Hello world!%N")
+        end
+end

data/files.zettacode2/hello_world.text/ela.txt

@@ -0,0 +1,2 @@
+open monad io
+do putStrLn "Hello world!" ::: IO

data/files.zettacode2/hello_world.text/elan.txt

@@ -0,0 +1 @@
+putline ("Hello, world!");

data/files.zettacode2/hello_world.text/elastic.txt

@@ -0,0 +1,20 @@
+From the [http://www.elasticworld.org/man/elastic.html elastiC Manual].
+
+package hello;
+
+    // Import the `basic' package
+    import basic;
+
+    // Define a simple function
+    function hello()
+    {
+        // Print hello world
+        basic.print( "Hello world!\n" );
+    }
+
+    /*
+     *  Here we start to execute package code
+     */
+
+    // Invoke the `hello' function
+    hello();

data/files.zettacode2/hello_world.text/elena.txt

@@ -0,0 +1,5 @@
+ELENA 4.x:
+public program()
+{
+    console.writeLine:"Hello world!"
+}

data/files.zettacode2/hello_world.text/elisa.txt

@@ -0,0 +1 @@
+ "Hello world!"? 

data/files.zettacode2/hello_world.text/elixir.txt

@@ -0,0 +1,3 @@
+
+IO.puts "Hello world!"
+

data/files.zettacode2/hello_world.text/elm.txt

@@ -0,0 +1 @@
+main = text "Goodbye World!"

data/files.zettacode2/hello_world.text/emacs_lisp.txt

@@ -0,0 +1,6 @@
+
+(message "Hello world!")
+
+Alternatively, <code>princ</code> can be used:
+
+(princ "Hello world!\n")

data/files.zettacode2/hello_world.text/emojicode.txt

@@ -0,0 +1,3 @@
+🏁 🍇
+  😀 🔤Hello world!🔤
+🍉

data/files.zettacode2/hello_world.text/erlang.txt

@@ -0,0 +1 @@
+io:format("Hello world!~n").

data/files.zettacode2/hello_world.text/erre.txt

@@ -0,0 +1,7 @@
+
+! Hello World in ERRE language
+PROGRAM HELLO
+BEGIN
+  PRINT("Hello world!")
+END PROGRAM
+

data/files.zettacode2/hello_world.text/euler_math_toolbox.txt

@@ -0,0 +1,4 @@
+
+
+"Hello world!"
+

data/files.zettacode2/hello_world.text/extended_brainf***.txt

@@ -0,0 +1,2 @@
+
+[.>]@Hello world!