A-M baby

Task/Character-codes/FALSE/character-codes.false

@@ -0,0 +1,2 @@
+'A."
+"65,

Task/Character-codes/Factor/character-codes.factor

@@ -0,0 +1,4 @@
+CHAR: katakana-letter-a .
+"ア" first .
+
+12450 1string print

Task/Character-codes/Fantom/character-codes.fantom

@@ -0,0 +1,4 @@
+fansh> 97.toChar
+a
+fansh> 'a'.toInt
+97

Task/Character-codes/Frink/character-codes.frink

@@ -0,0 +1,4 @@
+println[char["a"]]              // prints 97
+println[char[97]]               // prints a
+println[char["Frink rules!"]]   // prints [70, 114, 105, 110, 107, 32, 114, 117, 108, 101, 115, 33]
+println[[70, 114, 105, 110, 107, 32, 114, 117, 108, 101, 115, 33]]  // prints "Frink rules!"

Task/Character-codes/GAP/character-codes.gap

@@ -0,0 +1,5 @@
+# Code must be in 0 .. 255.
+CHAR_INT(65);
+# 'A'
+INT_CHAR('Z');
+# 90

Task/Character-codes/Golfscript/character-codes-1.golf

@@ -0,0 +1 @@
+97[]+''+p

Task/Character-codes/Golfscript/character-codes-2.golf

@@ -0,0 +1,4 @@
+'a')\;p
+'a'(\;p
+'a'0=p
+'a'{}/p

Task/Character-codes/Groovy/character-codes.groovy

@@ -0,0 +1,2 @@
+printf ("%d\n", ('a' as char) as int)
+printf ("%c\n", 97)

Task/Character-codes/HicEst/character-codes.hicest

@@ -0,0 +1 @@
+WRITE(Messagebox) ICHAR('a'), CHAR(97)

Task/Character-codes/Icon/character-codes.icon

@@ -0,0 +1,6 @@
+procedure main(arglist)
+if *arglist > 0 then L := arglist else L := [97, "a"]
+
+every x := !L do
+   write(x, " ==> ", char(integer(x)) | ord(x) )  # char produces a character, ord produces a number
+end

Task/Character-codes/J/character-codes.j

@@ -0,0 +1,5 @@
+   4 u: 97 98 99 9786
+abc☺
+
+   3 u: 7 u: 'abc☺'
+97 98 99 9786

Task/Character-codes/Joy/character-codes.joy

@@ -0,0 +1,2 @@
+'a ord.
+97 chr.

Task/Character-codes/K/character-codes.k

@@ -0,0 +1,5 @@
+  _ic "abcABC"
+97 98 99 65 66 67
+
+  _ci 97 98 99 65 66 67
+"abcABC"

Task/Character-codes/Lang5/character-codes.lang5

@@ -0,0 +1,9 @@
+: CHAR  "!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[" comb
+        '\\ comb -1 remove append "]^_`abcdefghijklmnopqrstuvwxyz{|}~" comb append ;
+: CODE  95 iota 33 + ;                : comb  "" split ;
+: extract'  rot 1 compress index subscript expand drop ;
+: chr  CHAR CODE extract' ;
+: ord  CODE CHAR extract' ;
+
+'a ord .    # 97
+97 chr .    # a

Task/Character-codes/Liberty-BASIC/character-codes.liberty

@@ -0,0 +1,4 @@
+charCode = 97
+char$ = "a"
+print chr$(charCode) 'prints a
+print asc(char$) 'prints 97

Task/Character-codes/Logo/character-codes.logo

@@ -0,0 +1,2 @@
+print ascii "a    ; 97
+print char 97     ; a

Task/Character-codes/Logtalk/character-codes-1.logtalk

@@ -0,0 +1,4 @@
+|?- char_code(Char, 97), write(Char).
+a
+Char = a
+yes

Task/Character-codes/Logtalk/character-codes-2.logtalk

@@ -0,0 +1,4 @@
+|?- char_code(a, Code), write(Code).
+97
+Code = 97
+yes

Task/Character-codes/MUMPS/character-codes.mumps

@@ -0,0 +1,2 @@
+WRITE $ASCII("M")
+WRITE $CHAR(77)

Task/Character-codes/Maple/character-codes-1.maple

@@ -0,0 +1,4 @@
+> use StringTools in Ord( "A" ); Char( 65 ) end;
+                                   65
+
+                                  "A"

Task/Character-codes/Maple/character-codes-2.maple

@@ -0,0 +1,5 @@
+> convert( "A", bytes );
+                                  [65]
+
+> convert( [65], bytes );
+                                  "A"

Task/Character-codes/Mathematica/character-codes.mathematica

@@ -0,0 +1,2 @@
+ToCharacterCode["abcd"]
+FromCharacterCode[{97}]

Task/Character-codes/Maxima/character-codes.maxima

@@ -0,0 +1,5 @@
+ascii(65);
+"A"
+
+cint("A");
+65

Task/Character-codes/Metafont/character-codes.metafont

@@ -0,0 +1,14 @@
+message "enter a letter: ";
+string a;
+a := readstring;
+message decimal (ASCII a); % writes the decimal number of the first character
+                           % of the string a
+message "enter a number: ";
+num := scantokens readstring;
+message char num;   % num can be anything between 0 and 255; what will be seen
+                    % on output depends on the encoding used by the "terminal"; e.g.
+                    % any code beyond 127 when UTF-8 encoding is in use will give
+                    % a bad encoding; e.g. to see correctly an "è", we should write
+message char10;  % (this add a newline...)
+message char hex"c3" & char hex"a8";  % since C3 A8 is the UTF-8 encoding for "è"
+end

Task/Character-codes/Modula-2/character-codes-1.mod2

@@ -0,0 +1,18 @@
+MODULE asc;
+
+IMPORT  InOut;
+
+VAR     letter          : CHAR;
+        ascii           : CARDINAL;
+
+BEGIN
+  letter := 'a';
+  InOut.Write (letter);
+  ascii := ORD (letter);
+  InOut.Write (11C);            (*  ASCII TAB   *)
+  InOut.WriteCard (ascii, 8);
+  ascii := ascii - ORD ('0');
+  InOut.Write (11C);            (*  ASCII TAB   *)
+  InOut.Write (CHR (ascii));
+  InOut.WriteLn
+END asc.

Task/Character-codes/Modula-2/character-codes-2.mod2

@@ -0,0 +1,2 @@
+jan@Beryllium:~/modula/rosetta$ ./asc
+a             97        1

Task/Character-codes/Modula-3/character-codes.mod3

@@ -0,0 +1,2 @@
+ORD('a') (* Returns 97 *)
+VAL(97, CHAR); (* Returns 'a' *)