|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ S T ┃
Length: 1089 (0x441)
Types: TextFile
Names: »SUITE«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
question 3:
le package generique est instancie ainsi:
subtype mots is positive range 1..20;
word_counter is new histo (mots);
les fonctions de lecture et comptage de caracteres peuvent ensuite etre
ajoutees.
question 4:
conception d'un iterateur decroissant sur l'histogramme (integre au package
generique) :
3 fonctions :
start_it return discret: appel a l'iterateur qui se positionne sur l'element
ayant le plus d'occurence, et retourne ce premier element (pas la valeur);
next_item return discret: recherche sur toute la collection de l'element
inferieur le plus proche de celui precedemment trouve.
is_at_end return boolean: verifie si la collection a ete entierement parcourue.
ce mode d'iteration implique de changer la definition de l'objet generique:
type val_tab is array (Discret) if Natural;
type object is record
val_list : val_tab (others=>0);
it_val : Natural;
end record;
en effet, la valeur courante de l'iterateur doit etre memorisee pour trouver
la suivante.