langs a-z

Task/Character-codes/NetRexx/character-codes.netrexx

@@ -0,0 +1,23 @@
+/* NetRexx */
+options replace format comments java crossref symbols nobinary
+
+runSample(arg)
+return
+
+-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+method runSample(arg) private static
+  -- create some sample data: character, hex and unicode
+  samp = ' ' || 'a'.sequence('e') || '$' || '\xa2'.sequence('\xa5') || '\u20a0'.sequence('\u20b5')
+  -- use the C2D C2X D2C and X2C built-in functions
+  say "'"samp"'"
+  say '   | Chr    C2D  C2X D2C X2C'
+  say '---+ --- ------ ---- --- ---'
+  loop ci = 1 to samp.length
+    cc = samp.substr(ci, 1)
+    cd = cc.c2d -- char to decimal
+    cx = cc.c2x -- char to hexadecimal
+    dc = cd.d2c -- decimal to char
+    xc = cx.x2c -- hexadecimal to char
+    say ci.right(3)"| '"cc"'" cd.right(6) cx.right(4, 0) "'"dc"' '"xc"'"
+    end ci
+  return

Task/Character-codes/OCaml/character-codes-1.ocaml

@@ -0,0 +1,2 @@
+Printf.printf "%d\n" (int_of_char 'a'); (* prints "97" *)
+Printf.printf "%c\n" (char_of_int 97); (* prints "a" *)

Task/Character-codes/OCaml/character-codes-2.ocaml

@@ -0,0 +1,4 @@
+# Char.code ;;
+- : char -> int = <fun>
+# Char.chr;;
+- : int -> char = <fun>

Task/Character-codes/Oberon-2/character-codes.oberon-2

@@ -0,0 +1,11 @@
+MODULE Ascii;
+IMPORT Out;
+VAR
+	c: CHAR;
+	d: INTEGER;
+BEGIN
+	c := CHR(97);
+	d := ORD("a");
+	Out.Int(d,3);Out.Ln;
+	Out.Char(c);Out.Ln
+END Ascii.

Task/Character-codes/Objeck/character-codes.objeck

@@ -0,0 +1,2 @@
+'a'->As(Int)->PrintLine();
+97->As(Char)->PrintLine();

Task/Character-codes/OpenEdge-Progress/character-codes.openedge

@@ -0,0 +1,4 @@
+MESSAGE
+   CHR(97) SKIP
+   ASC("a")
+VIEW-AS ALERT-BOX.

Task/Character-codes/Oz/character-codes.oz

@@ -0,0 +1,2 @@
+{System.show &a}  %% prints "97"
+{System.showInfo [97]}  %% prints "a"

Task/Character-codes/PARI-GP/character-codes.pari

@@ -0,0 +1,2 @@
+print(Vecsmall("a")[1]);
+print(Strchr([72, 101, 108, 108, 111, 44, 32, 119, 111, 114, 108, 100, 33]))

Task/Character-codes/PL-I/character-codes.pli

@@ -0,0 +1,5 @@
+declare 1 u union,
+          2 c character (1),
+          2 i fixed binary (8) unsigned;
+c = 'a'; put skip list (i); /* prints 97  */
+i = 97;  put skip list (c); /* prints 'a' */

Task/Character-codes/Pascal/character-codes.pascal

@@ -0,0 +1,2 @@
+writeln(ord('a'));
+writeln(chr(97));

Task/Character-codes/Perl-6/character-codes.pl6

@@ -0,0 +1,2 @@
+say ord('𪚥').fmt('0x%04x');
+say chr(0x2a6a5);

Task/Character-codes/PowerShell/character-codes-1.psh

@@ -0,0 +1 @@
+$char = [char] 'a'

Task/Character-codes/PowerShell/character-codes-2.psh

@@ -0,0 +1 @@
+$charcode = [int] $char   # => 97

Task/Character-codes/PowerShell/character-codes-3.psh

@@ -0,0 +1 @@
+[int] [char] '☺'          # => 9786

Task/Character-codes/PowerShell/character-codes-4.psh

@@ -0,0 +1,2 @@
+[char] 97    # a
+[char] 9786  # ☺

Task/Character-codes/PureBasic/character-codes-1.purebasic

@@ -0,0 +1,11 @@
+If OpenConsole()
+  ;Results are the same when compiled for Ascii or Unicode
+  charCode.c = 97
+  Char.s = "a"
+  PrintN(Chr(charCode))   ;prints a
+  PrintN(Str(Asc(Char)))  ;prints 97
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
+  Input()
+  CloseConsole()
+EndIf

Task/Character-codes/PureBasic/character-codes-2.purebasic

@@ -0,0 +1,11 @@
+If OpenConsole()
+  ;UTF-8 encoding compiled for Unicode (UCS-2)
+  charCode.c = 960
+  Char.s = "π"
+  PrintN(Chr(charCode))   ;prints π
+  PrintN(Str(Asc(Char)))  ;prints 960
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
+  Input()
+  CloseConsole()
+EndIf

Task/Character-codes/Retro/character-codes.retro

@@ -0,0 +1 @@
+'c putc

Task/Character-codes/Run-BASIC/character-codes.run

@@ -0,0 +1,2 @@
+print chr$(97) 'prints a
+print asc("a") 'prints 97

Task/Character-codes/SNOBOL4/character-codes.sno

@@ -0,0 +1,14 @@
+        define('chr(n)') :(chr_end)
+chr     &alphabet tab(n) len(1) . chr :s(return)f(freturn)
+chr_end
+
+        define('asc(str)c') :(asc_end)
+asc     str len(1) . c
+        &alphabet break(c) @asc :s(return)f(freturn)
+asc_end
+
+*       # Test and display
+        output = char(65) ;* Built-in
+        output = chr(65)
+        output = asc('A')
+end

Task/Character-codes/Seed7/character-codes.seed7

@@ -0,0 +1,2 @@
+writeln(ord('a'));
+writeln(chr(97));

Task/Character-codes/Slate/character-codes.slate

@@ -0,0 +1,2 @@
+$a code.
+97 as: String Character.

Task/Character-codes/Standard-ML/character-codes.ml

@@ -0,0 +1,2 @@
+print (Int.toString (ord #"a") ^ "\n"); (* prints "97" *)
+print (Char.toString (chr 97) ^ "\n"); (* prints "a" *)

Task/Character-codes/TI-83-BASIC/character-codes.ti-83

@@ -0,0 +1,4 @@
+"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789→Str1
+Disp inString(Str1,"A
+Input "CODE? ",A
+Disp sub(Str1,A,1

Task/Character-codes/TI-89-BASIC/character-codes.ti-89

@@ -0,0 +1,21 @@
+Prgm
+  Local k, s
+  ClrIO
+  Loop
+    Disp "Press a key, or ON to exit."
+    getKey() © clear buffer
+    0 → k : While k = 0 : getKey() → k : EndWhile
+    ClrIO
+    If k ≥ 256 Then
+      Disp "Not a character."
+      Disp "Code: " & string(k)
+    Else
+
+      char(k) → s                           ©
+      © char() and ord() are inverses.      ©
+      Disp "Character: " & s                ©
+      Disp "Code: " & string(ord(s))        ©
+
+    EndIf
+  EndLoop
+EndPrgm

Task/Character-codes/TUSCRIPT/character-codes.tuscript

@@ -0,0 +1,3 @@
+$$ MODE TUSCRIPT
+SET character ="a", code=DECODE (character,byte)
+PRINT character,"=",code

Task/Character-codes/Trith/character-codes-1.trith

@@ -0,0 +1,2 @@
+"a" ord print
+97 chr print

Task/Character-codes/Trith/character-codes-2.trith

@@ -0,0 +1,2 @@
+"π" ord print
+960 chr print

Task/Character-codes/Ursala/character-codes.ursala

@@ -0,0 +1,9 @@
+#import std
+#import nat
+
+chr = -: num characters
+asc = -:@rlXS num characters
+
+#cast %cnX
+
+test = (chr97,asc`a)

Task/Character-codes/Visual-Basic-.NET/character-codes.visual

@@ -0,0 +1,2 @@
+Console.WriteLine(Chr(97)) 'Prints a
+Console.WriteLine(Asc("a")) 'Prints 97

Task/Character-codes/XPL0/character-codes.xpl0

@@ -0,0 +1,2 @@
+IntOut(0, ^a);  \(Integer Out)  displays "97" on the console (device 0)
+ChOut(0, 97);   \(Character Out) displays "a" on the console (device 0)