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,23 +0,0 @@
|
|||
package Generator is
|
||||
|
||||
type Generator is tagged private;
|
||||
procedure Reset (Gen : in out Generator);
|
||||
function Get_Next (Gen : access Generator) return Natural;
|
||||
|
||||
type Generator_Function is access function (X : Natural) return Natural;
|
||||
procedure Set_Generator_Function (Gen : in out Generator;
|
||||
Func : Generator_Function);
|
||||
|
||||
procedure Skip (Gen : access Generator'Class; Count : Positive := 1);
|
||||
|
||||
private
|
||||
|
||||
function Identity (X : Natural) return Natural;
|
||||
|
||||
type Generator is tagged record
|
||||
Last_Source : Natural := 0;
|
||||
Last_Value : Natural := 0;
|
||||
Gen_Func : Generator_Function := Identity'Access;
|
||||
end record;
|
||||
|
||||
end Generator;
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
package Generator.Filtered is
|
||||
|
||||
type Filtered_Generator is new Generator with private;
|
||||
procedure Reset (Gen : in out Filtered_Generator);
|
||||
function Get_Next (Gen : access Filtered_Generator) return Natural;
|
||||
|
||||
procedure Set_Source (Gen : in out Filtered_Generator;
|
||||
Source : access Generator);
|
||||
procedure Set_Filter (Gen : in out Filtered_Generator;
|
||||
Filter : access Generator);
|
||||
|
||||
private
|
||||
|
||||
type Filtered_Generator is new Generator with record
|
||||
Last_Filter : Natural := 0;
|
||||
Source, Filter : access Generator;
|
||||
end record;
|
||||
|
||||
end Generator.Filtered;
|
||||
|
|
@ -1,62 +0,0 @@
|
|||
package body Generator is
|
||||
|
||||
--------------
|
||||
-- Identity --
|
||||
--------------
|
||||
|
||||
function Identity (X : Natural) return Natural is
|
||||
begin
|
||||
return X;
|
||||
end Identity;
|
||||
|
||||
----------
|
||||
-- Skip --
|
||||
----------
|
||||
|
||||
procedure Skip (Gen : access Generator'Class; Count : Positive := 1) is
|
||||
Val : Natural;
|
||||
pragma Unreferenced (Val);
|
||||
begin
|
||||
for I in 1 .. Count loop
|
||||
Val := Gen.Get_Next;
|
||||
end loop;
|
||||
end Skip;
|
||||
|
||||
-----------
|
||||
-- Reset --
|
||||
-----------
|
||||
|
||||
procedure Reset (Gen : in out Generator) is
|
||||
begin
|
||||
Gen.Last_Source := 0;
|
||||
Gen.Last_Value := 0;
|
||||
end Reset;
|
||||
|
||||
--------------
|
||||
-- Get_Next --
|
||||
--------------
|
||||
|
||||
function Get_Next (Gen : access Generator) return Natural is
|
||||
begin
|
||||
Gen.Last_Source := Gen.Last_Source + 1;
|
||||
Gen.Last_Value := Gen.Gen_Func (Gen.Last_Source);
|
||||
return Gen.Last_Value;
|
||||
end Get_Next;
|
||||
|
||||
----------------------------
|
||||
-- Set_Generator_Function --
|
||||
----------------------------
|
||||
|
||||
procedure Set_Generator_Function
|
||||
(Gen : in out Generator;
|
||||
Func : Generator_Function)
|
||||
is
|
||||
begin
|
||||
if Func = null then
|
||||
Gen.Gen_Func := Identity'Access;
|
||||
else
|
||||
Gen.Gen_Func := Func;
|
||||
end if;
|
||||
end Set_Generator_Function;
|
||||
|
||||
end Generator;
|
||||
|
|
@ -1,59 +0,0 @@
|
|||
package body Generator.Filtered is
|
||||
|
||||
-----------
|
||||
-- Reset --
|
||||
-----------
|
||||
|
||||
procedure Reset (Gen : in out Filtered_Generator) is
|
||||
begin
|
||||
Reset (Generator (Gen));
|
||||
Gen.Source.Reset;
|
||||
Gen.Filter.Reset;
|
||||
Gen.Last_Filter := 0;
|
||||
end Reset;
|
||||
|
||||
--------------
|
||||
-- Get_Next --
|
||||
--------------
|
||||
|
||||
function Get_Next (Gen : access Filtered_Generator) return Natural is
|
||||
Next_Source : Natural := Gen.Source.Get_Next;
|
||||
Next_Filter : Natural := Gen.Last_Filter;
|
||||
begin
|
||||
loop
|
||||
if Next_Source > Next_Filter then
|
||||
Gen.Last_Filter := Gen.Filter.Get_Next;
|
||||
Next_Filter := Gen.Last_Filter;
|
||||
elsif Next_Source = Next_Filter then
|
||||
Next_Source := Gen.Source.Get_Next;
|
||||
else
|
||||
return Next_Source;
|
||||
end if;
|
||||
end loop;
|
||||
end Get_Next;
|
||||
|
||||
----------------
|
||||
-- Set_Source --
|
||||
----------------
|
||||
|
||||
procedure Set_Source
|
||||
(Gen : in out Filtered_Generator;
|
||||
Source : access Generator)
|
||||
is
|
||||
begin
|
||||
Gen.Source := Source;
|
||||
end Set_Source;
|
||||
|
||||
----------------
|
||||
-- Set_Filter --
|
||||
----------------
|
||||
|
||||
procedure Set_Filter
|
||||
(Gen : in out Filtered_Generator;
|
||||
Filter : access Generator)
|
||||
is
|
||||
begin
|
||||
Gen.Filter := Filter;
|
||||
end Set_Filter;
|
||||
|
||||
end Generator.Filtered;
|
||||
|
|
@ -1,35 +0,0 @@
|
|||
with Ada.Text_IO;
|
||||
with Generator.Filtered;
|
||||
|
||||
procedure Generator_Test is
|
||||
|
||||
function Square (X : Natural) return Natural is
|
||||
begin
|
||||
return X * X;
|
||||
end Square;
|
||||
|
||||
function Cube (X : Natural) return Natural is
|
||||
begin
|
||||
return X * X * X;
|
||||
end Cube;
|
||||
|
||||
G1, G2 : aliased Generator.Generator;
|
||||
F : aliased Generator.Filtered.Filtered_Generator;
|
||||
|
||||
begin
|
||||
|
||||
G1.Set_Generator_Function (Func => Square'Unrestricted_Access);
|
||||
G2.Set_Generator_Function (Func => Cube'Unrestricted_Access);
|
||||
|
||||
F.Set_Source (G1'Unrestricted_Access);
|
||||
F.Set_Filter (G2'Unrestricted_Access);
|
||||
|
||||
F.Skip (20);
|
||||
|
||||
for I in 1 .. 10 loop
|
||||
Ada.Text_IO.Put ("I:" & Integer'Image (I));
|
||||
Ada.Text_IO.Put (", F:" & Integer'Image (F.Get_Next));
|
||||
Ada.Text_IO.New_Line;
|
||||
end loop;
|
||||
|
||||
end Generator_Test;
|
||||
|
|
@ -1,28 +0,0 @@
|
|||
;; lexical-binding: t
|
||||
(require 'generator)
|
||||
|
||||
(iter-defun exp-gen (pow)
|
||||
(let ((i -1))
|
||||
(while
|
||||
(setq i (1+ i))
|
||||
(iter-yield (expt i pow)))))
|
||||
|
||||
(iter-defun flt-gen ()
|
||||
(let* ((g (exp-gen 2))
|
||||
(f (exp-gen 3))
|
||||
(i (iter-next g))
|
||||
(j (iter-next f)))
|
||||
(while
|
||||
(setq i (iter-next g))
|
||||
(while (> i j)
|
||||
(setq j (iter-next f)))
|
||||
(unless (= i j)
|
||||
(iter-yield i)))))
|
||||
|
||||
|
||||
(let ((g (flt-gen))
|
||||
(o 'nil))
|
||||
(dotimes (i 29)
|
||||
(setq o (iter-next g))
|
||||
(when (>= i 20)
|
||||
(print o))))
|
||||
|
|
@ -1,47 +1,40 @@
|
|||
(notonline)-->
|
||||
<span style="color: #000080;font-style:italic;">--
|
||||
-- demo\rosetta\Generator_Exponential.exw
|
||||
-- ======================================
|
||||
--</span>
|
||||
<span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- tasks</span>
|
||||
<span style="color: #004080;">bool</span> <span style="color: #000000;">terminate</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">false</span>
|
||||
-- demo\rosetta\Generator_Exponential.exw
|
||||
without js -- tasks
|
||||
|
||||
<span style="color: #004080;">atom</span> <span style="color: #000000;">res</span>
|
||||
atom res
|
||||
bool terminate = false
|
||||
|
||||
<span style="color: #008080;">procedure</span> <span style="color: #000000;">powers</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">p</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">0</span>
|
||||
<span style="color: #008080;">while</span> <span style="color: #008080;">not</span> <span style="color: #000000;">terminate</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">power</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000000;">task_suspend</span><span style="color: #0000FF;">(</span><span style="color: #000000;">task_self</span><span style="color: #0000FF;">())</span>
|
||||
<span style="color: #000000;">task_yield</span><span style="color: #0000FF;">()</span>
|
||||
<span style="color: #000000;">i</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
|
||||
procedure powers(integer p)
|
||||
integer i = 0
|
||||
while not terminate do
|
||||
res = power(i,p)
|
||||
task_suspend(task_self())
|
||||
task_yield()
|
||||
i += 1
|
||||
end while
|
||||
end procedure
|
||||
|
||||
<span style="color: #008080;">constant</span> <span style="color: #000000;">squares</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">task_create</span><span style="color: #0000FF;">(</span><span style="color: #000000;">powers</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">2</span><span style="color: #0000FF;">}),</span>
|
||||
<span style="color: #000000;">cubes</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">task_create</span><span style="color: #0000FF;">(</span><span style="color: #000000;">powers</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">3</span><span style="color: #0000FF;">})</span>
|
||||
constant squares = task_create(powers,{2}),
|
||||
cubes = task_create(powers,{3})
|
||||
|
||||
<span style="color: #004080;">atom</span> <span style="color: #000000;">square</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cube</span>
|
||||
<span style="color: #000000;">task_schedule</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cubes</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000000;">task_yield</span><span style="color: #0000FF;">()</span>
|
||||
<span style="color: #000000;">cube</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">res</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">30</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #008080;">while</span> <span style="color: #000000;">1</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #000000;">task_schedule</span><span style="color: #0000FF;">(</span><span style="color: #000000;">squares</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000000;">task_yield</span><span style="color: #0000FF;">()</span>
|
||||
<span style="color: #000000;">square</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">res</span>
|
||||
<span style="color: #008080;">while</span> <span style="color: #000000;">cube</span><span style="color: #0000FF;"><</span><span style="color: #000000;">square</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #000000;">task_schedule</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cubes</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000000;">task_yield</span><span style="color: #0000FF;">()</span>
|
||||
<span style="color: #000000;">cube</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">res</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #000000;">square</span><span style="color: #0000FF;">!=</span><span style="color: #000000;">cube</span> <span style="color: #008080;">then</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">></span><span style="color: #000000;">20</span> <span style="color: #008080;">then</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #000000;">square</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
|
||||
<span style="color: #000000;">terminate</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
|
||||
<span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>
|
||||
<!--
|
||||
atom square, cube
|
||||
task_schedule(cubes,1)
|
||||
task_yield()
|
||||
cube = res
|
||||
sequence snq = {}
|
||||
for i=1 to 30 do
|
||||
do
|
||||
task_schedule(squares,1)
|
||||
task_yield()
|
||||
square = res
|
||||
while cube<square do
|
||||
task_schedule(cubes,1)
|
||||
task_yield()
|
||||
cube = res
|
||||
end while
|
||||
until square!=cube
|
||||
if i>20 then snq &= square end if
|
||||
end for
|
||||
?snq
|
||||
terminate = 1
|
||||
wait_key()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue