Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,19 +0,0 @@
|
|||
WITH Ada.Containers.Generic_Array_Sort, Ada.Text_IO;
|
||||
USE Ada.Text_IO;
|
||||
PROCEDURE Main IS
|
||||
TYPE Natural_Array IS ARRAY (Positive RANGE <>) OF Natural;
|
||||
FUNCTION Less (L, R : Natural) RETURN Boolean IS (L'Img < R'Img);
|
||||
PROCEDURE Sort_Naturals IS NEW Ada.Containers.Generic_Array_Sort
|
||||
(Positive, Natural, Natural_Array, Less);
|
||||
PROCEDURE Show (Last : Natural) IS
|
||||
A : Natural_Array (1 .. Last);
|
||||
BEGIN
|
||||
FOR I IN A'Range LOOP A (I) := I; END LOOP;
|
||||
Sort_Naturals (A);
|
||||
FOR I IN A'Range LOOP Put (A (I)'Img); END LOOP;
|
||||
New_Line;
|
||||
END Show;
|
||||
BEGIN
|
||||
Show (13);
|
||||
Show (21);
|
||||
END Main;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
identification division.
|
||||
program-id. LexicographicalNumbers.
|
||||
|
||||
data division.
|
||||
working-storage section.
|
||||
78 MAX-NUMBERS value 21.
|
||||
77 i pic 9(2).
|
||||
77 edited-number pic z(2).
|
||||
|
||||
01 lex-table.
|
||||
05 table-itms occurs MAX-NUMBERS.
|
||||
10 number-lex pic x(2).
|
||||
|
||||
procedure division.
|
||||
main.
|
||||
*>-> Load numbers
|
||||
perform varying i from 1 by 1 until i > MAX-NUMBERS
|
||||
move i to edited-number
|
||||
move edited-number to number-lex(i)
|
||||
call "C$JUSTIFY" using number-lex(i), "Left"
|
||||
end-perform
|
||||
|
||||
*>-> Sort in lexicographic order
|
||||
sort table-itms ascending number-lex
|
||||
|
||||
*>-> Show ordered numbers
|
||||
display "[" no advancing
|
||||
perform varying i from 1 by 1 until i > MAX-NUMBERS
|
||||
display function trim(number-lex(i)) no advancing
|
||||
if i < MAX-NUMBERS
|
||||
display ", " no advancing
|
||||
end-if
|
||||
end-perform
|
||||
display "]"
|
||||
stop run
|
||||
.
|
||||
|
|
@ -1,13 +1,11 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
|
||||
<span style="color: #008080;">function</span> <span style="color: #000000;">lexicographic_order</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">return</span> <span style="color: #7060A8;">extract</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">custom_sort</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">sprint</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">))))</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
|
||||
with javascript_semantics
|
||||
function lexicographic_order(sequence s)
|
||||
return extract(s,custom_sort(apply(s,sprint),tagset(length(s))))
|
||||
end function
|
||||
|
||||
<span style="color: #0000FF;">?</span><span style="color: #000000;">lexicographic_order</span><span style="color: #0000FF;">({</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #000000;">lexicographic_order</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">5</span><span style="color: #0000FF;">))</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #000000;">lexicographic_order</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">13</span><span style="color: #0000FF;">))</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #000000;">lexicographic_order</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">21</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">2</span><span style="color: #0000FF;">))</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #000000;">lexicographic_order</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">11</span><span style="color: #0000FF;">,-</span><span style="color: #000000;">21</span><span style="color: #0000FF;">,</span><span style="color: #000000;">4</span><span style="color: #0000FF;">))</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #000000;">lexicographic_order</span><span style="color: #0000FF;">({</span><span style="color: #000000;">1.25</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">6</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">9</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">11.3</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">13</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">3</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">0</span><span style="color: #0000FF;">})</span>
|
||||
<!--
|
||||
?lexicographic_order({1,0})
|
||||
?lexicographic_order(tagset(5))
|
||||
?lexicographic_order(tagset(13))
|
||||
?lexicographic_order(tagset(21,1,2))
|
||||
?lexicographic_order(tagset(11,-21,4))
|
||||
?lexicographic_order({1.25, -6, -10, 9, -11.3, 13, -3, 0})
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue