Anonymous user
Knuth's algorithm S: Difference between revisions
m
→{{header|Ada}}
(→{{header|Ada}}: Ada solution added) |
m (→{{header|Ada}}) |
||
Line 91:
type D_10 is range 0 .. 9;
-- the instantiation of the generic package S_Of_N_Creator generates
-- a package with the desired functionality
package S_Of_3 is new S_Of_N_Creator(Sample_Size => 3, Item_Type => D_10);
Sample: S_Of_3.Item_Array;
Result: array(D_10) of Natural := (others => 0);
| |||