Data update

Task/Literals-Integer/Ada/literals-integer.ada

@@ -1,9 +0,0 @@
-with Ada.Integer_Text_IO;  use Ada.Integer_Text_IO;
-
-procedure Test_Literals is
-begin
-   Put (16#2D7#);
-   Put (10#727#);
-   Put (8#1_327#);
-   Put (2#10_1101_0111#);
-end Test_Literals;

Task/Literals-Integer/COBOL/literals-integer-1.cobol

@@ -1,2 +0,0 @@
-display B#10 ", " O#01234567 ", " -0123456789 ", "
-        H#0123456789ABCDEF ", " X#0123456789ABCDEF ", " 1;2;3;4

Task/Literals-Integer/COBOL/literals-integer-2.cobol

@@ -1,2 +0,0 @@
-if 1234 = 1,2,3,4 then display "Decimal point is not comma" end-if
-if 1234 = 1;2;3;4 then display "literals are equal, semi-colons ignored" end-if

Task/Literals-Integer/Emacs-Lisp/literals-integer.l

@@ -1,5 +0,0 @@
-123      ;; decimal           all Emacs
-#b101    ;; binary            Emacs 21 up, XEmacs 21
-#o77     ;; octal             Emacs 21 up, XEmacs 21
-#xFF     ;; hex               Emacs 21 up, XEmacs 21
-#3r210   ;; any radix 2-36    Emacs 21 up (but not XEmacs 21.4)

Task/Literals-Integer/Euphoria/literals-integer.ex

@@ -1,6 +0,0 @@
-printf(1,"Decimal:\t%d, %d, %d, %d\n",{-10,10,16,64})
-printf(1,"Hex:\t%x, %x, %x, %x\n",{-10,10,16,64})
-printf(1,"Octal:\t%o, %o, %o, %o\n",{-10,10,16,64})
-printf(1,"Exponential:\t%e, %e, %e, %e\n",{-10,10,16,64.12})
-printf(1,"Floating Point\t%3.3f, %3.3f, %+3.3f\n",{-10,10.2,16.25,64.12625})
-printf(1,"Floating Point or Exponential:  %g, %g, %g, %g\n",{10,16,64,123456789.123})

Task/Literals-Integer/PowerShell/literals-integer-1.psh

@@ -1,2 +0,0 @@
-727     # base 10
-0x2d7   # base 16

Task/Literals-Integer/PowerShell/literals-integer-2.psh

@@ -1,4 +0,0 @@
-3KB  # 3072
-3MB  # 3145728
-3GB  # 3221225472
-3TB  # 3298534883328

Task/Literals-Integer/REBOL/literals-integer.rebol

@@ -1 +0,0 @@
-1

Task/Literals-Integer/REXX/literals-integer.rexx

@@ -1,5 +1,5 @@
--- 19 May 2025
-include Settings
+-- 23 Aug 2025
+include Setting
 
 say 'LITERALS INTEGER'
 say version
@@ -40,7 +40,7 @@ say left("'5051 5253'X",l) '=' '5051 5253'X
 say left("'50 51 52 53'X",l) '=' '50 51 52 53'X
 say
 say 'Binary...'
-say 'Blanks to separate words, bytes and nibbles are allowed'
+say 'Blanks to highlight words, bytes and nibbles are allowed'
 l = 42
 say left("'1010000010100010101001001010011'B",l) '=' '1010000010100010101001001010011'B
 say left("'01010000010100010101001001010011'B",l) '=' '01010000010100010101001001010011'B
@@ -49,5 +49,4 @@ say left("'01010000 01010001 01010010 01010011'B",l) '=' '01010000 01010001 0101
 say left("'0101 0000 0101 0001 0101 0010 0101 0011'B",l) '=' '0101 0000 0101 0001 0101 0010 0101 0011'B
 exit
 
-include Helper
-include Abend
+include Math