langs a-z

Task/Literals-String/OCaml/literals-string-1.ocaml

@@ -0,0 +1,2 @@
+# 'a';;
+- : char = 'a'

Task/Literals-String/OCaml/literals-string-2.ocaml

@@ -0,0 +1,2 @@
+# "Hello world";;
+- : string = "Hello world"

Task/Literals-String/OCaml/literals-string-3.ocaml

@@ -0,0 +1,3 @@
+# "abc\
+    def";;
+- : string = "abcdef"

Task/Literals-String/OCaml/literals-string-4.ocaml

@@ -0,0 +1,3 @@
+# "abc
+   def";;
+- : string = "abc\n def"

Task/Literals-String/Objective-C/literals-string.m

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

Task/Literals-String/Octave/literals-string.octave

@@ -0,0 +1,5 @@
+    s1 = 'abcd'   % simple string
+    s2 = 'ab''cd'   % string containing a single quote using an escaped single quote
+    s3 = 'ab"cd'   % simple string containing a double quote
+    s4 = "ab'cd"   % string containing a single quote
+    s5 = "ab""cd"   % string containing a double quote using an escaped double quote

Task/Literals-String/Oz/literals-string.oz

@@ -0,0 +1,15 @@
+declare
+Digit0 = &0       %% the character '0'
+NewLine = &\n     %% a character with special representation
+NewLine = &\012   %% characters can also be specified with octals
+
+%% Strings are lists of characters, but can also be written in double quotes:
+[&H &e &l &l &o] = "Hello"
+
+AnAtom = 'Hello'         %% single quotes are used for atoms
+Atom2 = hello = 'hello'  %% for atoms starting with a lower case letter, they are optional
+
+%% To build strings out of other values, so-called virtual strings are used:
+MyName = "Peter"
+MyAge = 8
+{System.showInfo MyName # " is " # MyAge # " years old."}

Task/Literals-String/PL-I/literals-string.pli

@@ -0,0 +1,6 @@
+'H'                  /* a single character as a literal.             */
+'this is a string'
+''                   /* an empty string literal.                     */
+'John''s cat'        /* a literal containing an embedded apostrophe. */
+                     /* stored are <<John's cat>>                    */
+'101100'b            /* a bit string, stored as one bit per digit.   */

Task/Literals-String/Perl-6/literals-string-1.pl6

@@ -0,0 +1 @@
+my $raw = Q'$@\@#)&!#';

Task/Literals-String/Perl-6/literals-string-2.pl6

@@ -0,0 +1,3 @@
+say qq:to/END/;
+    Your ad here.
+    END

Task/Literals-String/Perl-6/literals-string-3.pl6

@@ -0,0 +1,15 @@
+"\a"        # BELL
+"\b"        # BACKSPACE
+"\t"        # TAB
+"\n"        # LINE FEED
+"\f"        # FORM FEED
+"\r"        # CARRIAGE RETURN
+"\e"        # ESCAPE
+"\x263a"    # ☺
+"\o40"      # SPACE
+"\0"        # NULL
+
+"\cC"       # CTRL-C
+"\c8"       # BACKSPACE
+"\c[13,10]" # CRLF
+"\c[LATIN CAPITAL LETTER A, COMBINING RING ABOVE]"

Task/Literals-String/Pike/literals-string.pike

@@ -0,0 +1,7 @@
+'c';          // Character code (ASCII) (result: 99)
+"c";          // String (result: "c")
+"\n";         // String (result: newline character)
+"hi " + world // String (result: "hi " and the contents of the variable world)
+#"multiple line
+string using the
+preprocessor" // single literal string with newlines in it

Task/Literals-String/Pop11/literals-string-1.pop11

@@ -0,0 +1 @@
+'a'    ;;; string consisting of single character

Task/Literals-String/Pop11/literals-string-2.pop11

@@ -0,0 +1 @@
+'\'\n' ;;; string consisting of quote and newline

Task/Literals-String/PureBasic/literals-string-1.purebasic

@@ -0,0 +1,16 @@
+; Characters (*.c), can be ASCII or UNICODE depending on compiler setting
+Define.c  AChar='A'
+; defines as *.a it will be ASCII and *.u is always UNICODE
+Define.a  A='b'
+Define.u  U='水'
+
+; Strings is defined as **.s or ending with '$'
+Define.s  AStrion     ="String #1"
+Define    BStrion.s   ="String #2"
+Define    CString$    ="String #3"
+; Fixed length stings can be defined if needed
+Define XString.s{100} ="I am 100 char long!"
+
+; '"' can be included via CHR() or its predefined constant
+Define AStringQuotes$=Chr(34)+"Buu"+Chr(34)+" said the ghost!"
+Define BStringQuotes$=#DOUBLEQUOTE$+"Buu"+#DOUBLEQUOTE$+" said yet a ghost!"

Task/Literals-String/PureBasic/literals-string-2.purebasic

@@ -0,0 +1,6 @@
+Select StringByteLength("X")
+  Case 1
+    Print("ASCII-mode;  Soo, Hello world!")
+  Case 2
+    Print("UNICODE-mode; Soo, 您好世界!")
+EndSelect

Task/Literals-String/Retro/literals-string.retro

@@ -0,0 +1,2 @@
+'c
+"hello, world!"

Task/Literals-String/Seed7/literals-string-1.seed7

@@ -0,0 +1 @@
+var char: ch is 'z';

Task/Literals-String/Seed7/literals-string-2.seed7

@@ -0,0 +1 @@
+var string: stri is "hello";

Task/Literals-String/Seed7/literals-string-3.seed7

@@ -0,0 +1,3 @@
+var string: example is "this is a string\
+                       \ which continues in the next line\n\
+                       \and contains a line break";

Task/Literals-String/Slate/literals-string-1.slate

@@ -0,0 +1,6 @@
+$a
+$D
+$8
+$,
+$\s
+$\n

Task/Literals-String/Slate/literals-string-2.slate

@@ -0,0 +1 @@
+'Hello\'s the word.'

Task/Literals-String/Standard-ML/literals-string-1.ml

@@ -0,0 +1,2 @@
+- #"a";
+val it = #"a" : char

Task/Literals-String/Standard-ML/literals-string-2.ml

@@ -0,0 +1,2 @@
+- "Hello world";
+val it = "Hello world" : string

Task/Literals-String/Standard-ML/literals-string-3.ml

@@ -0,0 +1,3 @@
+- "abc\
+    \def";
+val it = "abcdef" : string

Task/Literals-String/TUSCRIPT/literals-string.tuscript

@@ -0,0 +1,12 @@
+$$ MODE TUSCRIPT,{}
+s1=*
+DATA "string"
+s2=*
+DATA + "double" quotes
+s3=*
+DATA + 'single' quotes
+s4=*
+DATA + "double" + 'single' quotes
+show=JOIN(s1," ",s2,s3,s4)
+show=JOIN(show)
+PRINT show

Task/Literals-String/UNIX-Shell/literals-string-1.sh

@@ -0,0 +1,2 @@
+echo "The boy said 'hello'."
+echo 'The girl said "hello" too.'

Task/Literals-String/UNIX-Shell/literals-string-2.sh

@@ -0,0 +1 @@
+print "The man said \"hello\".";

Task/Literals-String/UNIX-Shell/literals-string-3.sh

@@ -0,0 +1,6 @@
+cat << END
+1, High Street,
+SMALLTOWN,
+West Midlands.
+WM4 5HD.
+END

Task/Literals-String/Ursala/literals-string-1.ursala

@@ -0,0 +1 @@
+a = `x

Task/Literals-String/Ursala/literals-string-2.ursala

@@ -0,0 +1 @@
+cr = 13%cOi&

Task/Literals-String/Ursala/literals-string-3.ursala

@@ -0,0 +1 @@
+b = 'a string'

Task/Literals-String/Ursala/literals-string-4.ursala

@@ -0,0 +1 @@
+c = 'Hobson''s choice'

Task/Literals-String/Ursala/literals-string-5.ursala

@@ -0,0 +1,4 @@
+d =
+
+-[this is a list
+of strings]-

Task/Literals-String/Ursala/literals-string-6.ursala

@@ -0,0 +1,3 @@
+e = -[the front matter -[ d ]- the rest of it]-
+
+f = -[text -[ d ]- more -[ e ]- text ]-

Task/Literals-String/Ursala/literals-string-7.ursala

@@ -0,0 +1 @@
+g "x" = -[ Dear -[ "x" ]- bla bla ]-

Task/Literals-String/V/literals-string.v

@@ -0,0 +1 @@
+'hello world' puts

Task/Literals-String/Visual-Basic-.NET/literals-string.visual

@@ -0,0 +1,2 @@
+Dim s = "Tom said, ""The fox ran away."""
+Result: Tom said, "The fox ran away."

Task/Literals-String/XSLT/literals-string.xslt

@@ -0,0 +1 @@
+<xsl:if test="starts-with(@name, 'Mr.')">Mister</xsl:if>